Peaufiner une macro faite avec l'enregistreur.

Icedarts · 11 Avril 2010

Bonsoir à tous,

Voila un code fait avec l'enregistreur:

Code:

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 · 12 Avril 2010

Re : Peaufiner une macro faite avec l'enregistreur.

Bonsoir Icedarts

Essayez ceci :

Code:

[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 · 12 Avril 2010

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 · 12 Avril 2010

Re : Peaufiner une macro faite avec l'enregistreur.

Re...

Icedarts à dit:
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

Peaufiner une macro faite avec l'enregistreur.

Icedarts

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Icedarts

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Discussions similaires

Peaufiner une macro faite avec l'enregistreur.

Icedarts

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Icedarts

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency