Coment copier une feuille xls avec vba ? [Résolu]

Signaler
Messages postés
41
Date d'inscription
jeudi 6 septembre 2007
Statut
Membre
Dernière intervention
23 juillet 2008
-
Messages postés
41
Date d'inscription
jeudi 6 septembre 2007
Statut
Membre
Dernière intervention
23 juillet 2008
-
je souhaite copier une feuille xl d'un classeur vers un autre avec une macro, coment faire ?

voila le bout qui permet de crée le nouveau classeur, le nom et l'emplacement ne sont pas définis !

If Graphique = "Y" Then
           
      Set NewBook = Workbooks.Add
    
            Do
                fName = Application.GetSaveAsFilename(InitialFileName:="XXX", fileFilter:="Excel Files (*.xls), *.xls")



            Loop Until fName <> False
                              
                NewBook.SaveAs Filename:=fName, FileFormat:=xlNormal, Password:="", WriteResPassword:="",   ReadOnlyRecommended:=False, CreateBackup:=False

      

2 réponses

Messages postés
797
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
23 février 2011
5
    'Définition des variables
    Dim NomFichier As String
    Dim NewBook as Workbook
    
    'Initialisation des variables
    NomFichier = ActiveWorkbook.Name
    Set NewBook = Workbooks.Add
   
    'Création du fichier Excel
    Do
        fName = Application.GetSaveAsFilename(InitialFileName:="XXX", fileFilter:="Excel Files (*.xls), *.xls")
   
    Loop Until fName <> False
    NewBook.SaveAs Filename:=fName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False


    'Copie de la feuille 1 du fichier contenant le code dans le fichier crée
    Workbooks(NomFichier).Worksheets("Feuil1").Copy After:=Workbooks(NewBook.Name).Sheets(1)

Molenn
Messages postés
41
Date d'inscription
jeudi 6 septembre 2007
Statut
Membre
Dernière intervention
23 juillet 2008

Merci Molenn