macro enregistrer

[yvon07]

bonjour a tous
je vient vers vous car apres plusieurs tentative,je ne parvient pas a ce que je veut.
creer une macro pour enregistrer un fichier,en cliquant sur un bouton.
en utilisant la date du jour et le "N°Vh" qui se trouve dans une cellule.
voir fichier joint
encor merci a vous
Salutations

 

[Dull]

Re : macro enregistrer

Salut yvon07, le Forum

a Tester

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

 

[gilbert_RGI]

Re : macro enregistrer

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

enlever les rem de ces lignes

    '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

 

[yvon07]

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

 

[gilbert_RGI]

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

modifier cette ligne

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

par

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

 

[yvon07]

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