Peaufiner une macro faite avec l'enregistreur.

[Icedarts]

Bonsoir à tous,

Voila un code fait avec l'enregistreur:

Sub COPIE()
    Sheets("Equipe").Select
    Sheets("Equipe").Copy
    ActiveSheet.Shapes("Button 1").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 4").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 2").Select
    Selection.Cut
    ActiveSheet.Shapes("Button 3").Select
    Selection.Cut
    Sheets("Equipe").Select
    Windows("zut_la_bulle.xls").Activate
End Sub

Cette macro me sert à extraire une copie d'une feuille de mon classeur.
Est-il possible d'ajouter du code pour enregistrer la feuille sur mon bureau avec un nom défini à l'avance?
Si oui le nom serait "Journée P2:Q2" ou P2:Q2 est une cellule fusionnée contenant un chiffre.

Merci d'avance.

 

[ROGER2327]

Re : Peaufiner une macro faite avec l'enregistreur.

Bonsoir Icedarts

Essayez ceci :

[COLOR="DarkSlateGray"][B]Sub COPIE()
Dim nom$
   Sheets("Equipe").Select
   nom = "Journée " & Range("P2")
   Sheets("Equipe").Copy
   ActiveSheet.Shapes("Button 1").Cut
   ActiveSheet.Shapes("Button 4").Cut
   ActiveSheet.Shapes("Button 2").Cut
   ActiveSheet.Shapes("Button 3").Cut
   ActiveWorkbook.SaveAs Filename:="E:\XLD\" & nom & ".xls", FileFormat:= _
      xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
      , CreateBackup:=False
   ActiveWorkbook.Close
   Windows("zut_la_bulle.xls").Activate
End Sub[/B][/COLOR]

ROGER2327
#3112

 

[Icedarts]

Re : Peaufiner une macro faite avec l'enregistreur.

Merci cela fonctionne à merveille!

J'ai juste modifié le chemin car chez moi E:\XLD\ n'existe pas 😉

Merci beaucoup.

 

[ROGER2327]

Re : Peaufiner une macro faite avec l'enregistreur.

Re...

Merci cela fonctionne à merveille!

J'ai juste modifié le chemin car chez moi E:\XLD\ n'existe pas 😉

Merci beaucoup.

J'ai oublié de le signaler !
Mais vous avez rectifié de vous-même.
​

Bonne nuit !
ROGER2327
#3113