macro enregistrer

Dull

XLDnaute Barbatruc

• 29 Octobre 2011

• #2

Re : macro enregistrer

Salut yvon07, le Forum

a Tester

Code:

Sub Rectangleàcoinsarrondis1_Cliquer()
    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & Replace([J2], "/", "-") & " " & [B1] & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

le Fichier sera copié dans le même dossier que le fichier source si c'est pas le cas replacer ThisWorkbook.Path par "C:\Documents and Settings\..."

Bonne Journée

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Octobre 2011

• #3

Re : macro enregistrer

voilà cà devrait marché si le chemin existe vraiment 🙄

enlever les rem de ces lignes

Code:

    'ChDrive ("D")
    'ChDir "D:\Mes documents Yvon\fiche tableau de bord\pro"

et comme vous avez la version 2010 remplacez FilterIndex = 4 par FilterIndex = 2

 

Pièces jointes

• essai enregistre.xlsm

  25.5 KB · Affichages: 48

Dernière édition: 29 Octobre 2011

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 29 Octobre 2011

• #4

Re : macro enregistrer

merci a tous les deux,cela fonctionne tres bien
sauf que dans la version de Gilbert,j'aimerai bien un separateur entre la datte et le n° Vh
encor merci pour votre aide precieuse

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Octobre 2011

• #5

Re : macro enregistrer

yvon07 à dit:

merci a tous les deux,cela fonctionne tres bien
sauf que dans la version de Gilbert,j'aimerai bien un separateur entre la datte et le n° Vh
encor merci pour votre aide precieuse

Cliquez pour agrandir...

modifier cette ligne

Code:

adr = .[b1].Value & .[j2].Value

par

Code:

adr = .[b1].Value &" "& .[j2].Value

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 29 Octobre 2011

• #6

Re : macro enregistrer

bonsoir
c'est parfait
Merci à vous deux, les 2 me conviennent,reste a me decider,et la mettre dans mon fichier.
encor mille merci
Cordialement

 

Vote positif 0 Vote négatif