Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic excel copie de feuil

excel copie de feuil

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-marc
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_' ;
Avatar
Rosalie Mignon
excellent !

merci beaucoup.


"Jean-marc" a écrit dans le message
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_' ;