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

christ77000

XLDnaute Occasionnel
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.
Code:
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.

VB:
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

XLDnaute Accro
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

XLDnaute Occasionnel
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 :)

VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas