Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel copier une feuille dans un autre classeur

copier une feuille dans un autre classeur

2 réponses
Avatar
flex
bonjour
j'essaie de copier une feuille(qui contient des données et un graphe) dans
un autre classeur.

Pour cela, j'utilise le code vba suivant:

...
WBName = "nom_new_classeur.xls"
Set Wk = Workbooks.Add
Wk.SaveAs Filename:=cheminFichier
ThisWorkbook.Activate
Sheets("DataZones").Copy Before:=Workbooks(WBName ).Sheets(1)
....


Le problème c'est que ma feuille "DataZones" n'est jamais copié dans le
nouveau classeur.
Quelqu'un peut il m'aider svp?
Merci
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
Daniel
Bonjour.
Sans savoir ce qu'il y a dans cheminFichier, je dirais qu'il faut mettre :
Wk.SaveAs Filename:=cheminFichier & WBName
Cordialement.
Daniel
"flex" a écrit dans le message de news:
u8$
bonjour
j'essaie de copier une feuille(qui contient des données et un graphe) dans
un autre classeur.

Pour cela, j'utilise le code vba suivant:

...
WBName = "nom_new_classeur.xls"
Set Wk = Workbooks.Add
Wk.SaveAs Filename:=cheminFichier
ThisWorkbook.Activate
Sheets("DataZones").Copy Before:=Workbooks(WBName ).Sheets(1)
....


Le problème c'est que ma feuille "DataZones" n'est jamais copié dans le
nouveau classeur.
Quelqu'un peut il m'aider svp?
Merci





Avatar
michdenis
Bonjour Flex,

Pour copier la feuille, ceci est suffisant !

Sheets("DataZones").Copy

Pour enregistrer le nouveau classeur contenant la feuille

Chemin = "c:Excel"
NomFichier = "MonClasseur.xls"
Activeworkbook.saveas Chemin & NomFichier



Salutations!



"flex" a écrit dans le message de news: u8$
bonjour
j'essaie de copier une feuille(qui contient des données et un graphe) dans
un autre classeur.

Pour cela, j'utilise le code vba suivant:

...
WBName = "nom_new_classeur.xls"
Set Wk = Workbooks.Add
Wk.SaveAs Filename:=cheminFichier
ThisWorkbook.Activate
Sheets("DataZones").Copy Before:=Workbooks(WBName ).Sheets(1)
....


Le problème c'est que ma feuille "DataZones" n'est jamais copié dans le
nouveau classeur.
Quelqu'un peut il m'aider svp?
Merci