copier des feuilles dans un autre classeur Fermé

Question

salutJe cherche comment copier toutes les feuilles (visibles uniquement) d'un classeur Excel dans un autre classeur Excel.voici le code que j'ai trouvé, mais ça plante au niveau duSheets(FeuilleExportation).Copy after:=Workbooks("GestControlChefDEP").SheetsPrivate Sub cmdExporter_Click()'exporte les feuilles dans un autre document Excel'ouverture d'un autre document ExcelWorkbooks.Open FileName:= _"C:\Mise en production protected\GestControlChefDEP.xlt"'sélectionne le classeur du departement en contrôleWorkbooks("Ccgi - Beta.xls").Activate'désactive la protection du classeurActiveWorkbook.Unprotect Password:="y25p918"For Each FeuilleExportation In WorksheetsIf FeuilleExportation.Visible = True ThenSheets(FeuilleExportation).Copy after:=Workbooks("GestControlChefDEP").SheetsEnd IfNextEnd Subquelqu'un pourrait m'aider ?merciet non à la guerre...

bmgg4 · Answer

Bonjour,Essaie avec une instruction comme celle-ciSheets("Liste").Copy After:=Workbooks("Classeur2.xls").Sheets("Total")MoniqueElle est pas belle la vie ?

mouloud · Answer

Désolé, mais ca ne marche pas...

WhiteFang · Answer

;-)Private Sub cmdExporter_Click()'--Déclaration des variablesDim LeClasseur, ClasseurActif, ExportDansClasseur, F'--Nom du classeur qui va recevoir les feuillesLeClasseur = Application.GetOpenFilename'--Test du retour de la boîteIf UCase(LeClasseur) = "FAUX" Then Exit Sub'--Affectation de l'objetSet ClasseurActif = Workbooks(ActiveWorkbook.Name)'--Ouverture du classeur receveurWorkbooks.Open Reponse'--Affectation de l'objetSet ExportDansClasseur = Workbooks(ActiveWorkbook.Name)'--Copie des feuillesFor Each F In ClasseurActif.Sheets  If F.Visible = True Then Sheets(F.Name).Copy Before:=ExportDansClasseur.Sheets(1)  NextEnd Sub;-)Ca devrait rouler !! ;-)Wild and Free

Copier des feuilles dans un autre classeur

3 réponses

Discussions similaires