Importer données dans un fichier xlsx
Bonjour à tous,
J'ai consulté plusieurs sujets, mais aucuns ne répondent à mes recherches...
J'explique mon cas, j'ai plusieurs fichiers Excel portant le nom de la date du jour (20161003 par exemple) dans le même dossier
Tous mes fichiers Excel ont la même structure (lignes et colonnes) et j'aimerai pouvoir les dupliquer dans un et même fichier Excel
Par exemple, je souhaiterai copier/dupliquer la colonne "A" de tous mes fichiers dans un seul et sur des colonnes différentes....
Avez-vous une idée?
Merci de votre aide.
Cordialement.
Bonsoir à toi gmb,
Merci pour ton code, par contre, j'ai testé sur mon dossier, cela ne fonctionne pas... J'ai omis dire que c'était des fichiers partagés....
Est-il possible pour de tels fichiers?
Étant en déplacement en ce moment, je ne peux, être réactif...
En fait, j'aimerai pouvoir aller chercher juste quelques cellules (ex: A3,B6,C66666,...)
Dès que je suis chez moi, je t'envoi quelques fichiers
Bonjour,
Je joins trois fichiers Excel, deux plannings et l'autre où j'aimerai importer certaines valeurs pour avoir une vue globale...
À votre avis, est-ce possible de générer un tel fichier (Avancement.xlxs) sachant que tous mes plannings ont la même structure et qu'ils sont présents dans le même dossier?
Merci de votre aide.
Cordialement.
Bobbyte
Bonjour à tous,
J'ai enfin réussi grâce à ce code...
Sub CreationSynthese()
Application.ScreenUpdating = False
' Parcours de tous les fichiers
' -----------------------------
Chemin = "C:\test\"
ClasseurPlanning = Dir(Chemin & "*.xlsx")
While Len(ClasseurPlanning) > 0
Set wb = Workbooks.Open(Chemin & ClasseurPlanning)
Range("BJ2:CA2").Copy
Workbooks("Avancement.xlsm").Activate
Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(ClasseurPlanning).Close
ClasseurPlanning = Dir
Wend
' Fin des travaux
' ---------------
End Sub