XL 2019 VBA Macro enregistrer en PDF

[Chloé Dubois]

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]

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....

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

 

[Chloé Dubois]

Je viens de copier/coller et ça met "Erreur d'exécution 1004" et quand je clique sur déboggage, les 4 lignes avec "activesheet" apparaissent en jaune.
Le chemin c'est : C:\Users\SandrineMohring\OneDrive - RGF Groupe\Documenten

 

[kadelmalin]

Bonjour le forum,
mon cher chloé vous avez déclaré "LeDate" comme chaine mais votre variable est "LaDate", voyez de ce coté.

 

[Lolote83]

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

@+ Lolote83