Forcer le chemin d'enregistrement

Bonjour à tous ,

On me demande de sauvegarder les saisies d'un formulaire contenu sur un fichier Excel.

Le format de sauvegarde est pdf.

L'enregistrement se fait dans un repertoire à distance.

Ces instructions doivent figurer dans le code.

On me fournit le chemin.

Voici ce que j'ai tenté au niveau du code

Private Sub CommandButton2_Click()

    Dim LaDate As String, Nmut As String, Nfic2 As String, MonCheminDistant As String
    LaDate = Format(Date, "yyyymmdd")
    Nmut = TextBox14.Value
    Nfic2 = "A"
    MonCheminDistant = \\adresse imposée
    nom_fichier_pdf = Nmut & Nfic2 & LaDate & ".pdf"

    If Worksheets("A").Visible = xlSheetVeryHidden Then
        Worksheets("A").Visible = xlSheetVisible
    End If

    With Worksheets("A")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename:=MonCheminDistant & "\" & nom_fichier_pdf, OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With  

Mais j'ai deux lignes qui sortent en rouge avec le même message d'erreur que voici:

J'ai tenté autre chose avant de poster le fichier

Private Sub CommandButton2_Click()
Dim LaDate As String, Nmut As String, Nfic1 As String, Nfic2 As String, Nfic3 As String
LaDate = Format(Date, "yyyymmdd")
Nmut = TextBox2.Value
Nfic1 = "A"
Nfic2 = "B"
Nfic3 = "C"
Const MonChemin As String = "\\xxx\xxxxx\xxxx\xxxx"

If Worksheets("A").Visible = xlSheetVeryHidden Then
    Worksheets("A").Visible = xlSheetVisible
    End If
With Worksheets("A")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename:=Nmut & Nfic1 & LaDate & ".pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With

If Worksheets("B").Visible = xlSheetVeryHidden Then
    Worksheets("B").Visible = xlSheetVisible
    End If
With Worksheets("B")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename:=Nmut & Nfic2 & LaDate & ".pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With

 If Worksheets("C").Visible = xlSheetVeryHidden Then
    Worksheets("C").Visible = xlSheetVisible
    End If
With Worksheets("C")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename:=Nmut & Nfic3 & LaDate & ".pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With
End Sub

Mais là encore les exports ne sortent pas au bon endroit.

Cela me parait logique car "MonChemin" est absent de la seconde partie du code soit

With Worksheets("C")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename:=Nmut & Nfic3 & LaDate & ".pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With
End Sub

Mais si je tente de le placer après Filename j'ai à nouveau une erreur

Du coup je suis complètement perdu et je me sens plus nul que jamais.

Est-ce que quelqu'un a une idée?

MERCI

Siga

Bonsoir siga2fadial

Ta constante chemin doit se terminer par un "\"

Const MonChemin As String = "\\xxx\xxxxx\xxxx\xxxx\"

Ensuite pour ton Export, FileName peut/doit comprendre le chemin d'accès

With Worksheets("C")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename:=MonChemin & Nmut & Nfic3 & LaDate & ".pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With

Voilà

Bonjour ,

BrunoM45 je te remercie d'avoir pris le temps de me répondre.

C'est dingue ce qu'un "\" manquant peut générer.

En faisant mes recherches c'était la première fois que je voyais ce "Const" est-ce que tu sais à quoi cela correspond

et quelle est la différence avec "Dim3

Je vais tester sur le serveur distant et reviens valider la réponse au plus vite.

MERCI

Siga