Macro de sauvegarde (choix du chemin)

kayl83 · 17 Janvier 2012

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).

Code:

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 · 17 Janvier 2012

Re : Macro de sauvegarde (choix du chemin)

Bonjour kayl83,

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

Code:

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 · 17 Janvier 2012

Re : Macro de sauvegarde (choix du chemin)

Merci. C'est niquel !!

Pierrot93 · 17 Janvier 2012

Re : Macro de sauvegarde (choix du chemin)

Bonjour,

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

bon après midi
@+

Macro de sauvegarde (choix du chemin)

kayl83

XLDnaute Nouveau

ralph45

XLDnaute Impliqué

kayl83

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires