Importer des feuilles dans Excel

[cedric91]

Bonjour à tous,
je cherche à importer dans un fichier Excel de synthèse la première feuille d'un nombre inconnu de fichirs Excel tous enregistrés dans le même dossier. et je ne sais pas comment faire... (j'y arrive en connaissant le nom et le nombre de fichiers Excel par des toutes bêtes liaisons, mais là je ne vois pas)

Si quelqu'un peux m'éclairer sur la démarche à suivre,
Merci d'avance
Cedric91

 

[JC de Lorient]

Re : Importer des feuilles dans Excel

salut
que veux tu faire exactement?
cumuler les feuilles ou les mettre les unes en dessous des autres ?
Sont elles toutes identiques ?

 

[cedric91]

Re : Importer des feuilles dans Excel

Je voudrais qu'elles soient importées en tant que nouvelles feuilles, charge à moi par la suite de mettre à jour ma feuille définitive

 

[JC de Lorient]

Re : Importer des feuilles dans Excel

re
là j'aurai un peu de mal
par contre si tu souhaites une feuille de récap là pas de soucis
faut il pour se faire que tes feuilles soient identiques

 

[cedric91]

Re : Importer des feuilles dans Excel

elles sont toutes strictement identiques dans la forme (pas dans les valeurs évidemment), elles sont toutes issues du même fichier qui est enregistré sous un nom différent chaque fin de mois (j'espere que je suis clair)

 

[JC de Lorient]

Re : Importer des feuilles dans Excel

re
si tu veux faire un cumul de tes feuilles ce code devrait le faire
Sub MAJ_Données_Résultats()
Application.ScreenUpdating = False
Dim classeurs, fichier, newclass As Object
Dim chemin As String
chemin = ThisWorkbook.Path
Set fichier = CreateObject("Scripting.filesystemobject").getfolder(chemin).Files
For Each classeurs In fichier
If classeurs.Name <> ThisWorkbook.Name Then
Workbooks.Open classeurs
Set newclass = ActiveWorkbook
Sheets("Feuil1").Select
Range("A1😀100").Copy ' A définir
Windows("monclasseur.xls").Activate ' A définir
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
newclass.Close False
End If
Next
End Sub

 

[cedric91]

Re : Importer des feuilles dans Excel

Merci,
dans ton code, monclasseur.xls est le nom du fichier final?
cedric91

 

[JC de Lorient]

Re : Importer des feuilles dans Excel

re
oui c le fichier qui récupère les données
faut que tu ajuste en fonction du nom de ton classeur et des plages a copier

 

[cedric91]

Re : Importer des feuilles dans Excel

question bête (désolé), je définis comment mes cellules à copier
c'est sur la ligne Range, mais je paramètre comment...

Cedric

 

[JC de Lorient]

Re : Importer des feuilles dans Excel

re
si ta plage a copier est de A1 à J100
alors tu fais Range("A1:J100")

 

[cedric91]

Re : Importer des feuilles dans Excel

Merci beaucoup pour ton aide, je vais bosser la dessus.
Cedric