Bonjour à tous,
cheickna,
On peut trés bien importer les onglets des nouveaux classeurs dans celui à macro.
Avec ce code (Selection est le nom de l'onglet) qui ouvre le répertoire des dossiers.
'message d'ouverture fichier d'export
MsgBox "Veuillez sélectionner le fichier à remplir, en format *.xlm ." & Chr(10) & "Le fichier ne doit pas être déjà ouvert."
'ouverture fichier source
CheminFichier = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xlsm*), *.xlsm*", _
Title:="Choisissez le fichier excel d'export à ouvrir", MultiSelect:=False)
'Définir le classeur de destination
Set WbD = Workbooks.Open(CheminFichier, 0, ReadOnly:=False)
WbD.Sheets("Feuil1").Cells.Clear 'efface données precedentes
'Copier la feuille "sélection" de ce classeur
WbS.Sheets("Selection").Copy
With WbD.Sheets("Feuil1")
.Range("A1").Select 'onglet
ActiveSheet.Paste
Application.CutCopyMode = False 'enleve pointillés copiage
End With
Si çà ne fonctionne pas, envoyer moi les fichiers.
Edit modo : vous n'êtes pas seul sur ce forum
Cdt