Bonsoir
J'ai une feuille de calcul dans un classeur,
je souhaite après clic sur un bouton copier cette feuille de calcul afin de
la transformer en classeur et que celui-ci soit copier sur mon bureau.
Merci
Michel
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
MichDenis
Bonjour Michel,
Dim Nomfichier as string Dim Chemin as string
Nomfichier = "SonNom"
'Chemin du bureau pour windows xp pro Chemin = "C:Documents and SettingsDenisBureau"
'Création nouveau classeur avec ta feuille Worksheets("NomDeLaFeuilleACopier").copy 'enregistrement de ton classeur sur le bureau Activeworkbook.SaveAs chemin & NomFichier & ".xls"
Et si tu veux fermer ton classeur Activeworkbook.Close
Salutations!
"Michel" a écrit dans le message de news: Bonsoir J'ai une feuille de calcul dans un classeur, je souhaite après clic sur un bouton copier cette feuille de calcul afin de la transformer en classeur et que celui-ci soit copier sur mon bureau. Merci Michel
Bonjour Michel,
Dim Nomfichier as string
Dim Chemin as string
Nomfichier = "SonNom"
'Chemin du bureau pour windows xp pro
Chemin = "C:Documents and SettingsDenisBureau"
'Création nouveau classeur avec ta feuille
Worksheets("NomDeLaFeuilleACopier").copy
'enregistrement de ton classeur sur le bureau
Activeworkbook.SaveAs chemin & NomFichier & ".xls"
Et si tu veux fermer ton classeur
Activeworkbook.Close
Salutations!
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news: uN7ryLCTFHA.2996@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'ai une feuille de calcul dans un classeur,
je souhaite après clic sur un bouton copier cette feuille de calcul afin de
la transformer en classeur et que celui-ci soit copier sur mon bureau.
Merci
Michel
'Chemin du bureau pour windows xp pro Chemin = "C:Documents and SettingsDenisBureau"
'Création nouveau classeur avec ta feuille Worksheets("NomDeLaFeuilleACopier").copy 'enregistrement de ton classeur sur le bureau Activeworkbook.SaveAs chemin & NomFichier & ".xls"
Et si tu veux fermer ton classeur Activeworkbook.Close
Salutations!
"Michel" a écrit dans le message de news: Bonsoir J'ai une feuille de calcul dans un classeur, je souhaite après clic sur un bouton copier cette feuille de calcul afin de la transformer en classeur et que celui-ci soit copier sur mon bureau. Merci Michel
Michel
Merci beaucoup Denis Je teste demain au boulot Salutations ;-) Michel
"MichDenis" a écrit dans le message de news: %
Bonjour Michel,
Dim Nomfichier as string Dim Chemin as string
Nomfichier = "SonNom"
'Chemin du bureau pour windows xp pro Chemin = "C:Documents and SettingsDenisBureau"
'Création nouveau classeur avec ta feuille Worksheets("NomDeLaFeuilleACopier").copy 'enregistrement de ton classeur sur le bureau Activeworkbook.SaveAs chemin & NomFichier & ".xls"
Et si tu veux fermer ton classeur Activeworkbook.Close
Salutations!
"Michel" a écrit dans le message de news:
Bonsoir J'ai une feuille de calcul dans un classeur, je souhaite après clic sur un bouton copier cette feuille de calcul afin de la transformer en classeur et que celui-ci soit copier sur mon bureau. Merci Michel
Merci beaucoup Denis
Je teste demain au boulot
Salutations ;-)
Michel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23oLwgPDTFHA.1044@TK2MSFTNGP10.phx.gbl...
Bonjour Michel,
Dim Nomfichier as string
Dim Chemin as string
Nomfichier = "SonNom"
'Chemin du bureau pour windows xp pro
Chemin = "C:Documents and SettingsDenisBureau"
'Création nouveau classeur avec ta feuille
Worksheets("NomDeLaFeuilleACopier").copy
'enregistrement de ton classeur sur le bureau
Activeworkbook.SaveAs chemin & NomFichier & ".xls"
Et si tu veux fermer ton classeur
Activeworkbook.Close
Salutations!
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
uN7ryLCTFHA.2996@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'ai une feuille de calcul dans un classeur,
je souhaite après clic sur un bouton copier cette feuille de calcul afin
de
la transformer en classeur et que celui-ci soit copier sur mon bureau.
Merci
Michel
Merci beaucoup Denis Je teste demain au boulot Salutations ;-) Michel
"MichDenis" a écrit dans le message de news: %
Bonjour Michel,
Dim Nomfichier as string Dim Chemin as string
Nomfichier = "SonNom"
'Chemin du bureau pour windows xp pro Chemin = "C:Documents and SettingsDenisBureau"
'Création nouveau classeur avec ta feuille Worksheets("NomDeLaFeuilleACopier").copy 'enregistrement de ton classeur sur le bureau Activeworkbook.SaveAs chemin & NomFichier & ".xls"
Et si tu veux fermer ton classeur Activeworkbook.Close
Salutations!
"Michel" a écrit dans le message de news:
Bonsoir J'ai une feuille de calcul dans un classeur, je souhaite après clic sur un bouton copier cette feuille de calcul afin de la transformer en classeur et que celui-ci soit copier sur mon bureau. Merci Michel
