Copier feuilles dans un seul fichier Excel
Bonjour le fofo,
Je voudrais, via VBA, ouvrir tous les fichiers excel présents dans un dossier et copier à chaque fois la première feuille dans un seul et même fichier excel.
Comment faire ?
Bonjour,
Avec XL2016 tu peux utiliser PowerQuery
Oui, comment intégrer cette fonction dans une boucle VBA ?
Car par la suite je vais continuer de programmer afin d'analyser ces données. Ainsi, je voudrais automatiser un maximum....
En VBA, voici un exemple ...
le zip contient les fichiers à compiler
Bonjour,
C'est dans le boucle ...
monFichier = Dir(chemin & "*.xlsx")
Do While monFichier <> ""
' ...
monFichier = Dir
LoopTu peux ajouter Debug.Print monFichier pour voir les différentes valeurs que la macro trouve dans le répertoire. Ouvre la fenêtre d'exécution par Ctrl+G comme ci-dessous
non mais la va falloir m'aider je suis en train de péter un boulon sur le code haha
En gros je voudrais rassembler et copier le contenu de tous les dossiers des bon d'enlèvements dans le fichier synthèse. Je galère sur le code qui ma été donné.
Une idée
Ah, enfin des fichiers ... je regarde.
Un bout de code ... mais tes fichiers ne sont pas homogènes !!!!!!!!!!!!
Merci beaucoup, oui effectivement les colonnes ne sont pas identiques, mais cela est mon affaire !
Merci beaucoup pour le bout de code, on en apprend tous les jours.