Copier des feuilles dans un autre classeur

Fermé
mouloud - 4 avril 2003 à 15:54
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
- 6 avril 2003 à 10:39
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...

3 réponses

bmgg4
Messages postés
179
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
29 juin 2006
23
4 avril 2003 à 20:17
Bonjour,

Essaie avec une instruction comme celle-ci

Sheets("Liste").Copy After:=Workbooks("Classeur2.xls").Sheets("Total")

Monique
Elle est pas belle la vie ?
0
Désolé, mais ca ne marche pas...
0
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
205
5 avril 2003 à 14:46
;-)

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
0
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
205
5 avril 2003 à 14:50
;-)

Pardon, je viens de me relire !!

Il faut écrire :

For Each F In ClasseurActif.Sheets
If F.Visible = True Then ClasseurActif.Sheets(F.Name).Copy Before:=ExportDansClasseur.Sheets(1)
Next

;-)

Wild and Free
0
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
205
6 avril 2003 à 10:39
Rhaaa, j'écris trop vite !! Je viens de voir une autre erreur !!

=> Workbooks.Open LeClasseur

!! Rhaa le boulet, luiii !! ;-)

Wild and Free
0