Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1839 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur dans macro

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

erreur dans macro

n°2125805
varik
Posté le 10-02-2012 à 10:42:48  profilanswer
 

merci de votre collaboration et je reviens à vous car j'ai besoin de votre aide encore une fois.
la fonction m'ouvre réellement le fichier excel au lieu d'écrire directement sans affichage.
 
autre précision: les fichier excel sont de 97-2003 et j'aimerais qu'il conserve leur format.
 
avant que j'oublie mes feuill1 ont des noms différent
 
merci d'avance  
 
 
 
Option Explicit
Sub PRINTER()
Dim Fso As Object, MonRepertoire As String
Dim f1 As Object, f2 As Object, wrk As Workbook
 
Set Fso = CreateObject("Scripting.FileSystemObject" )
MonRepertoire = "C:\Documents and Settings\FR22034\Bureau\RETEST"
 
For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders
For Each f2 In f1.Files
 
Set wrk = Application.Workbooks.Open(f2)
 
'modifie la cellule A1 de l'onglet Feuil1
wrk.ActiveSheet.Cells(11, 44).Value = "xxxxxxxxx"
wrk.ActiveSheet.Cells(25, 39).Value = "xxxxxxxxx"
 
 
'Sauvegarde le classeur
wrk.Save
 
'Ferme le classeur et libère la variable wrk
wrk.Close
Set wrk = Nothing
Next f2
Next f1
End Sub


Message édité par varik le 10-02-2012 à 11:22:42
mood
Publicité
Posté le 10-02-2012 à 10:42:48  profilanswer
 

n°2125837
olivthill
Posté le 10-02-2012 à 12:07:02  profilanswer
 

Quel est le problème ?
 
Une erreur sur quelle ligne ?
Ou bien le problème viendrait de l'affichage ? Alors quel serait l'affichage souhaité ?
(Ou le problème serait la touche majuscule qui ne voudrait pas s'activer toute seule pour la première lettre de chaque phrase ;) )
 
En tous cas, peut-être que l'affichage ne se ferait pas en mettant la ligne

Application.ScreenUpdating = False

n°2125883
varik
Posté le 10-02-2012 à 15:30:27  profilanswer
 

j'avoue qu'il manque des explications ;le programme doit normalement juste ecrire directement
sans ouverture ,mais le soucis est que excel s'ouvre et me demande si je veux mettre les liens à jour et me demande si je veux enregistrer les changements.
 
le wrk.save n'a pas l'air de fonctionné ; je précise que les fichiers sont de type excel 4 donc ...
 
merci de votre collaboration
 
Option Explicit
Sub PRINTER()
Dim Fso As Object, MonRepertoire As String
Dim f1 As Object, f2 As Object, wrk As Workbook
 
Set Fso = CreateObject("Scripting.FileSystemObject" )
MonRepertoire = "C:\Documents and Settings\FR22034\Bureau\RETEST"
 
For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders
    For Each f2 In f1.Files
     
    Set wrk = Application.Workbooks.Open(f2)
 
'modifie la cellule A1 de l'onglet Feuil1
wrk.ActiveSheet.Cells(11, 44).Value = "bla bla bla"
wrk.ActiveSheet.Cells(25, 39).Value = "bla bla bla"
 
 
'Sauvegarde le classeur
wrk.Save
'Ferme le classeur et libère la variable wrk
wrk.Close
Set wrk = Nothing
     Next f2
Next f1
End Sub


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur dans macro

 

Sujets relatifs
besoin d'aide (URGENT) pour une macro-EXCEL VBAMacro insertion et copie de lignes
Répétition macroSPRING WEB MVC erreur lors d'un addobject
Executer une macro dans un classeur deja ouvert[php débutant] formulaire avec mess. d'erreur (tp minichat siteduzero)
Erreur 1004 sur macroerreur avec une macro d'excel
Help !! Erreur de syntaxe sur macro Catia V5R16Macro Word qui me fait une erreur 5152
Plus de sujets relatifs à : erreur dans macro


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR