excel copie de feuil

Le
Rosalie Mignon
Bonjour

je voudrais ouvrir simultanement 2 classeurs excel avec vb6 et copier une
feuille d'un classeur vers l'autre classeur.

merci pour vos bons conseils
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-marc
Le #15368351
Rosalie Mignon wrote:
Bonjour

je voudrais ouvrir simultanement 2 classeurs excel avec vb6 et copier
une feuille d'un classeur vers l'autre classeur.



Hello,

Supposons que tu ais 2 classeurs : classeur1 et classeur2
Dans classeur1, il y a une feuille nommée "toto"
Tu désires copier cette feuille "toto" dans classeur2,
disons avant une feuille de classeur2 nommée "titi".

Voici :

Private Sub Command1_Click()

Dim classeur1 As Excel.Workbook
Dim classeur2 As Excel.Workbook

Set classeur1 = Excel.Workbooks.Open("c:tempclass1.xlsx")
Set classeur2 = Excel.Workbooks.Open("c:tempclass2.xlsx")

classeur1.Sheets("toto").Copy Before:=classeur2.Sheets("titi")

classeur2.Save

classeur1.Close
classeur2.Close

Set classeur1 = Nothing
Set classeur2 = Nothing

End Sub

Si tu ne connais pas les feuilles dans classeur2, ty peux remplacer
classeur1.Sheets("toto").Copy Before:=classeur2.Sheets("titi")
par

classeur1.Sheets("toto").Copy Before:=classeur2.Sheets(1)

Ceci copiera toujours en tête de classeur 2.

Voila !

Tout ça ne fonctionne que si tu n'oublies pas d'ajouter une
référence à Excel dans ton projet vb, bien sur.

Si tu n'es pas familière avec ces concepts, tu trouveras de l'aide
et des liens utiles dans la FAQ du groupe :
http://faq.vb.free.fr/index.php?question4
http://faq.vb.free.fr/index.php?questionv
http://faq.vb.free.fr/index.php?questionx

Et pour la syntaxe rigolote avec les ":=", voir
http://faq.vb.free.fr/index.php?question6

Cordialement;

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Rosalie Mignon
Le #15368341
excellent !

merci beaucoup.


"Jean-marc" de news: 47d2ea48$0$2994$
Rosalie Mignon wrote:
Bonjour

je voudrais ouvrir simultanement 2 classeurs excel avec vb6 et copier
une feuille d'un classeur vers l'autre classeur.



Hello,

Supposons que tu ais 2 classeurs : classeur1 et classeur2
Dans classeur1, il y a une feuille nommée "toto"
Tu désires copier cette feuille "toto" dans classeur2,
disons avant une feuille de classeur2 nommée "titi".

Voici :

Private Sub Command1_Click()

Dim classeur1 As Excel.Workbook
Dim classeur2 As Excel.Workbook

Set classeur1 = Excel.Workbooks.Open("c:tempclass1.xlsx")
Set classeur2 = Excel.Workbooks.Open("c:tempclass2.xlsx")

classeur1.Sheets("toto").Copy Before:=classeur2.Sheets("titi")

classeur2.Save

classeur1.Close
classeur2.Close

Set classeur1 = Nothing
Set classeur2 = Nothing

End Sub

Si tu ne connais pas les feuilles dans classeur2, ty peux remplacer
classeur1.Sheets("toto").Copy Before:=classeur2.Sheets("titi")
par

classeur1.Sheets("toto").Copy Before:=classeur2.Sheets(1)

Ceci copiera toujours en tête de classeur 2.

Voila !

Tout ça ne fonctionne que si tu n'oublies pas d'ajouter une
référence à Excel dans ton projet vb, bien sur.

Si tu n'es pas familière avec ces concepts, tu trouveras de l'aide
et des liens utiles dans la FAQ du groupe :
http://faq.vb.free.fr/index.php?question4
http://faq.vb.free.fr/index.php?questionv
http://faq.vb.free.fr/index.php?questionx

Et pour la syntaxe rigolote avec les ":=", voir
http://faq.vb.free.fr/index.php?question6

Cordialement;

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;






Publicité
Poster une réponse
Anonyme