Macro de sauvegarde (choix du chemin)

[kayl83]

Bonjour,

pour la macro. suivante, je voudrais que le chemin d'accès se trouve dans une cellule (les personnes utilisant le fichier pourront choisir eux-mêmes le chemin d'accès).

Sub Mise_a_jour()
'
' Mise_a_jour Macro
' Actu, date et enregistrement
'

'
    ActiveWorkbook.RefreshAll
    Range("A1").Select
    ActiveWorkbook.SaveAs Filename:= _
        "C:\chemin d'accés\nom du fichier", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[ralph45]

Re : Macro de sauvegarde (choix du chemin)

Bonjour kayl83,

En supposant que le chemin d'enregistrement soit en B2 :

Sub Mise_a_jour()
'
' Mise_a_jour Macro
' Actu, date et enregistrement

    ActiveWorkbook.RefreshAll
    Range("A1").Select
    ActiveWorkbook.SaveAs Filename:= _
        "Range("B2").Value", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

A plus !!

 

[kayl83]

Re : Macro de sauvegarde (choix du chemin)

Merci. C'est niquel !!

 

[Pierrot93]

Re : Macro de sauvegarde (choix du chemin)

Bonjour,

euh... étonnant que cela fonctionne avec :
"Range("B2").Value"
entre guillemets...

bon après midi
@+