Bonjour à tous,

Je suis en train de créer une petite macro qui devrait me permettre d'automatiser la sauvegarde de document sous un nom de répertoire définie par l'utilisateur.
J'explique mon raisonnement. Sur la feuille de calcul, l'utilisateur voit une bouton lui permettant de commencer à travailler.Quand il clique, cela ouvre un UserForm lui demandant le chemin de sauvegarde. Une fois rentré, le fichier est sauvegardé sous un nom définie par deux cellules.
Ce que j'aimerais c'est crée une fonction qui me permettrais de conserver le chemin de sauvegarde rentré par l'utilisateur. Le problème est que je n'arrive pas à conserver la valeur du chemin de sauvegarde...
Peut être cela est t'il plus parlant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Function Saves()
 
    Dim way As String
    Dim ProjectName As String
    Dim ProjectNumber As String
 
        Range("B1").Select
            ProjectNumber = ActiveCell.Text
        Range("B2").Select
            ProjectName = ActiveCell.Text
    If ProjectName = "0" Then
        MsgBox ("Enter the Project Name in Report MR Sheet")
        Exit Function
    End If
 
    If ProjectNumber = "0" Then
        MsgBox ("Enter the Project Number in Report MR Sheet")
        Exit Function
    End If
 
    way = Debut.SaveWay.Value
    ActiveWorkbook.SaveAs Filename:=way & ProjectName & "-" & ProjectNumber & ".xls"
 
End Function
Merci de votre aide.