XL 2019 VBA Macro enregistrer en PDF

Chloé Dubois · 3 Mai 2021

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 · 3 Mai 2021

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

Chloé Dubois · 3 Mai 2021

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 · 3 Mai 2021

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

Lolote83 · 3 Mai 2021

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

XL 2019 VBA Macro enregistrer en PDF

Chloé Dubois

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Chloé Dubois

XLDnaute Nouveau

kadelmalin

XLDnaute Occasionnel

Lolote83

XLDnaute Barbatruc

Discussions similaires