Enregistrement PDF avec chemin d'accès contenu dans une cellule

Bonjour à tous,

Je souhaiterai pouvoir enregistrer une feuille en PDF avec un chemin d'accès contenu dans une cellule d'une autre feuille.

Voici mon code actuel qui fonctionne mais qui enregistre sous le chemin d'accès indiqué. Je ne parviens pas à "insérer" ma cellule contenant le chemin d'accès.

Sub ImpPDFestimMOA()

Sheets("Estimation MOA").Select
Range("A1:n23").Select

With ActiveSheet.PageSetup
.PrintArea = "$A$1:$n$23"
.CenterHorizontally = True
.Zoom = False

 End With

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "R:\pc\1-ADMINISTRATION - MP\TEST-AMO CR INFRA\" & Range("A2") & " " & "Estimation SPS.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

End Sub

Merci pour votre aide !

BOB

Bonjour,

Si la cellule contient bien le bon chemin existant avec le "\" final et sans les guillemets de débuts et de fin alors :

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Range("La cellule") & Range("A2") & " " & "Estimation SPS.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

Par exemple si je mets en A1 : C:\Users\jean\Downloads\ alors mon code fonctionne.

Sinon merci de joindre le fichier.

Cdlt,

Ca fonctionne ! j'ai rajouté (& "\" &) à la suite de ma cellule contenant le chemin d'accès !

Merci de votre aide =)

Rechercher des sujets similaires à "enregistrement pdf chemin acces contenu"