XL 2016 Enregistrer un onglet en pdf avec nom et chemin dans cellule

[christ77000]

Bonsoir à tous, je bloque sur cette macro. Cette macro enregistre l'onglet Excel au format PDF avec le nom en K13 et le chemin en A83. J'ai essayer avec ma petite connaissance du VBA de sortir une macro mais sans résultat. Pourriez vous svp m'aider, merci à vous.

Mon code d'origine qui fonctionne bien avec le nom mais pas de chemin prédéfini.

Sub Importer_pdf()
'
' Macro1 Macro
'

'
    Range("A1:E81").Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & Range("K13").Value & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Range("A6:B6").Select
End Sub

Et ma tentative de modification.

Sub Importer_pdf()
'
' Macro1 Macro
'
Application.ScreenUpdating = False '---cacher les actions de la macro---
Dim Path As String, Nom As String

Application.DisplayAlerts = False
Path = Range("A83").Value
Nom = Range("K13").Value & ".pdf"

If Dir(Path & Nom) <> "" Then
    Else
'
    Range("A1:E81").Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Path & Nom & , Quality:=
        xlQualityStandard , IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Range("A6:B6").Select
End Sub

 

[M12]

Bonjour,
Sans voir le nom du chemin, il est possible qu'il n'y a pas l'antislash "\" entre le chemin et le nom
Path & "\" & Nom

 

[christ77000]

Bonjour et merci pour votre aide. Mon chemin à bien l'antislash

 

[christ77000]

Bonjour et merci, la nuit porte conseil. J'ai modifier mon chemin réseau, corrigé la coupure du code et mit le End If qui manquait. Bonne journée à tous

Sub Exporter_pdf()
'
' Macro1 Macro
'
Application.ScreenUpdating = False '---cacher les actions de la macro---
Dim Path As String, Nom As String

Application.DisplayAlerts = False
Path = Range("A85").Value
Nom = Range("K13").Value & ".pdf"

If Dir(Path & Nom) <> "" Then
    Else
'
    Range("A1:E81").Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Path & "\" & Nom, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        End If
    Range("A6:B6").Select
End Sub

 

[kiki29]

Salut, si curieux voir par ici