XL 2019 VBA Macro enregistrer en PDF

Chloé Dubois

XLDnaute Nouveau
Bonjour, j'essaye tout simplement d'enregistrer la zone d'impression défini en tant que PDF dans le dossier document de mon ordinateur.
Mais le code ne fonctionne pas et apparait en jaune.

Sub PDF_SAVE()

Dim LHeure As String, LeDate As String

LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,
Filename:= _"C:\SandrineMohring\OneDrive- RGF Groupe\Création du fichier le " & LaDate & " " & LHeure & " .pdf",
Quality:= _xlQualityStandard , IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Meri ")

End Sub

Ma feuille se nomme "Audi A3 plug-in" , le fichier "Voitures2".

Pourriez-vous m'aider ? :)
Merci d'avance
 

Lolote83

XLDnaute Barbatruc
Bonjour
En copiant ton code tel quel, j'avais effectivement un problème. Juste au niveau des retour à la ligne avec le _
Essaye donc avec ce code modifié, sinon, il y a un problème sur le chemin....
VB:
Sub PDF_SAVE()
    Dim LHeure As String, LeDate As String
  
    LHeure = Format(Time, "HMS")
    LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
  
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\SandrineMohring\OneDrive- RGF Groupe\Création du fichier le " & LaDate & " " & LHeure & " .pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
  
    MsgBox "Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Meri"
End Sub
@+ Lolote83
 

Lolote83

XLDnaute Barbatruc
Re Bonjour,
C'est certainement une erreur de chemin, car chez moi, le code fourni au post#2 fonctionne
Résultat du fichier créé
1620042492874.png

@+ Lolote83
 

Discussions similaires

Réponses
13
Affichages
2 K
Haut Bas