JBOBO
XLDnaute Accro
Bonjour à tous,
Tout d'abord, une Bonne et heuruese année 2009 à Tous.
Mon problème est le suivant :
Je souhaiterais copier 2 onglets (dont celui actif, qui ne porte pas toujours le même nom) d'un classeur dans un nouveau classeur qui prendrait le nom de l'onglet actif.
Après avoir cherché dans ce forum, j'ai trouvé comment copier l'onglet actif et creer un nouveau classeur portant son nom mais je ne parviens pas à lui associer également la copie d'un autre onglet.
Voici ce que j'ai déjà :
Sub testo()
ActiveSheet.Select ' Feuille active
ActiveSheet.Copy
Application.DisplayAlerts = False
' Le chemin du fichier en cours : ThisWorkbook.Päth
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Merci d'avance.
Tout d'abord, une Bonne et heuruese année 2009 à Tous.
Mon problème est le suivant :
Je souhaiterais copier 2 onglets (dont celui actif, qui ne porte pas toujours le même nom) d'un classeur dans un nouveau classeur qui prendrait le nom de l'onglet actif.
Après avoir cherché dans ce forum, j'ai trouvé comment copier l'onglet actif et creer un nouveau classeur portant son nom mais je ne parviens pas à lui associer également la copie d'un autre onglet.
Voici ce que j'ai déjà :
Sub testo()
ActiveSheet.Select ' Feuille active
ActiveSheet.Copy
Application.DisplayAlerts = False
' Le chemin du fichier en cours : ThisWorkbook.Päth
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Merci d'avance.