C/C et fermer un fichier

C/C et fermer un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 06-06-2014 à 15:35:29    

Bonjour, je veux créer un code ou j'ouvre un grande nombre de fichier excel pour C/C dans un fiche synthèse les mêmes cellules pour pouvoir faire un comparatif ensuite.  
 
J'ai deux problèmes, de 1 je n'arrive pas à copier les valeurs du fichier excel ouvert automatiquement pour le mettre dans la feuille contenant la macro et de 2 je n'arrive pas à refermer le fichier une fois ouvert pour passer au suivant..; Je vous montre ce que j'ai pour le moment !
 

Code :
  1. Option Explicit
  3. Dim F(), Col
  4. Dim Chemin, NomFichier, wb2, Fdép
  7. Sub SyntheseDesOutils()
  8.    
  9.     Application.ScreenUpdating = False
  10.     Application.EnableEvents = False
  11.    
  12.  
  13.    
  14.     Set Fdép = ActiveSheet
  15.     Chemin = ThisWorkbook.Path & "\"
  16.     NomFichier = Dir(Chemin & "*.xls*" ) 'ouvre tous les fichiers .xls*
  17.    With Fdép
  18.         Do While Len(NomFichier) > 0
  19.             If NomFichier <> ThisWorkbook.Name Then
  20.                 Set wb2 = Workbooks.Open(Chemin & NomFichier) 'Ouvre le fichier
  21.            End If
  22.            
  23.             Col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
  24.             .Range("B:B" ).Copy .Range(.Columns(Col), .Columns(Col + 1))
  25.            
  26.    
  27.                 wb2.Close False
  28.        Loop
  29.    
  30.    
  31.     Columns("B:B" ).Hidden = True
  32.    
  33.     End With
  35. End Sub


 
 
Ce que j'ai surligné est surligné en Jaune sur mon code quand j'execute ma macro !
Merci d'avance à ceux qui voudront bien m'aider ! :)

Reply

Marsh Posté le 06-06-2014 à 15:35:29   

Reply

Marsh Posté le 06-06-2014 à 18:04:01    

 
           Bonjour,
 
           simple erreur de logique : déplacer la ligne n°21 entre la 27 et la 28 …
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed