Importer plusieurs fichiers sur une meme feuille Excel
Bonjour la communauté, encore moi, le grand nullard en VBa
Je re-re-reviens vers vous pour une aide
J’ai un dossier avec 100 fichiers Excel et je voulais tous les reunir sur un seul , tous sur la meme feuille
J’ai copié ce code sur le forum mais je bloque
Les autres fichiers ne s’ajoutent pas.
A l’aide svp
Option Explicit
Dim wD, f, i, n, nf, derLnf, derLng, derColf, lng
Sub Importer()
Set wD = ThisWorkbook
f = Application.GetOpenFilename(, , , , True)
For i = 1 To UBound(f)
Workbooks.Open (f(i))
For n = 1 To 4
nf = Choose(n, "Feuil1")
With ActiveWorkbook.Sheets(nf)
derLnf = .Range("A" & Rows.Count).End(xlUp).Row
derColf = .UsedRange.Columns.Count 'Cells(1, Columns.Count).End(xlToLeft).Column
lng = ThisWorkbook.Sheets(nf).Range("A" & Rows.Count).End(xlUp)(2).Row
.Range(.Cells(2, 1), .Cells(derLnf, derColf)).Copy wD.Sheets(nf).Range("A" & lng)
End With
Next n
ActiveWindow.Close
Next i
End Sub
Sub essai()
ActiveSheet.UsedRange.Select
Bonjour Soumsoum, bonjour le forum,
je n'ai pas la solution mais il me manques des données...
Dans un premier temps, déclarer toute les variable sur la même ligne pourquoi pas mais à condition d'en spécifier le type de chacune. Sinon elle prennent toutes par défaut le type Variant, plus gourmand en mémoire. Ensuite tu ne donnes pas le code pour Choose. Pour terminer, est ce la macro plante (quel message, quelle ligne) ou bien est-ce qu'elle n'agit que sur le premier fichier ?
Merci pour ta Réponse rapide tout d'abord,
J'ai créé un classeur ou je lance la macro:
- une fenêtre s'ouvre pour me demander de choisir un fichier
Ce fichier s'ajoute à la feuille ou se trouve la macro
Je répète la même opération et la meme fenêtre s'ouvre je choisis un autre fichier qui s'ajoute à ma feuille.
Je répète l'opération manuellement pour tous les fichiers .
Après avoir lancé la macro, un message d'erreur s'affiche ( incompatible..... ligne 13) mais les données sont importées. ( le plus important )
Nouvelle Question: je pourrai avoir un petit truc qui me permettait d'afficher l'origine du fichier (un petit nom par exemple)
Je pense avoir bien expliqué.
Désolé pour les explications, ton language est ..... trop technique pour moi nullard