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...

A voir également:

Copier des feuilles dans un autre classeur
Copier une vidéo youtube - Guide
Super copier - Télécharger - Gestion de fichiers
Copier un disque dur - Guide
Copier texte pdf - Guide
Fusionner feuilles excel - Guide

3 réponses

Réponse 1 / 3

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 ?

Réponse 2 / 3

mouloud
4 avril 2003 à 22:51

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

Réponse 3 / 3

WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
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

WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
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

WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
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

Discussions similaires

Dessiner avec son clavier et avec des lettres

Reporter valeur sur autre feuille avec critere

Les feuilles Diddl

recopier une formule sans décalage

Discussions similaires

Newsletters