ooxzar à chaque jour suffit sa peine | 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 :
- Option Explicit
- Dim F(), Col
- Dim Chemin, NomFichier, wb2, Fdép
- Sub SyntheseDesOutils()
-
- Application.ScreenUpdating = False
- Application.EnableEvents = False
-
-
-
- Set Fdép = ActiveSheet
- Chemin = ThisWorkbook.Path & "\"
- NomFichier = Dir(Chemin & "*.xls*" ) 'ouvre tous les fichiers .xls*
- With Fdép
- Do While Len(NomFichier) > 0
- If NomFichier <> ThisWorkbook.Name Then
- Set wb2 = Workbooks.Open(Chemin & NomFichier) 'Ouvre le fichier
- End If
-
- Col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
- .Range("B:B" ).Copy .Range(.Columns(Col), .Columns(Col + 1))
-
-
- wb2.Close False
- Loop
-
-
- Columns("B:B" ).Hidden = True
-
- End With
- 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 !  |
