XL 2019 vba sauvegarde pdf noms variables

sofmat · 21 Septembre 2023

Bonjour,
J'ai une erreur dans ma formule et je tourne en rond depuis des heures. Quelqu'un pourrait m'aider ? Merci beaucoup!!

Sub sauve_insp_mecanique_pdf()
texte = Sheets("Insp_Méc").Range("C11") & " " & Range("P11") & " - " & Range("P7") & " - " & Range("H17") & " - " & Range("P17") & " - " & _
Range("W17") & " - " & Range("C19") & " - " & Range("c17") & " - " & Range("c7").Value & " - " & _
Format(Date, "dd.mm.yyyy") & ".pdf"

chemin = "\\Freebox_Server\serveur maison\Fichiers Maison\Kylian\VISION\CLIENTS\CONTROLE VOILES\RAPPORTS FAITS A FACTURER" & "/"

Sheets("Insp_Méc").Select

Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=chemin & texte, _
quality:=x1QualityMinimum, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

MsgBox ("Le rapport en Pdf a été créé")

End Sub

sylvanu · 21 Septembre 2023

Bonjour Softmat,
Essayez avec peut être:

VB:

chemin = "\\Freebox_Server\serveur maison\Fichiers Maison\Kylian\VISION\CLIENTS\CONTROLE VOILES\RAPPORTS FAITS A FACTURER" & "\"

"\" au lieu de "/"
et en supposant qu'aucune des cellules composant le texte n'inclut de caractères interdit ( \,/,* ... )

sofmat · 21 Septembre 2023

Bonjour, Merci pour votre réponse mais cela ne fonctionne toujours pas.

sofmat · 21 Septembre 2023

Pourtant j'ai une autre formule sur un autre fichier qui inclut plusieurs onglets qui fonctionne parfaitement. Donc je ne comprends pas où se trouve l'erreur...
Le seul changement est
Sheets("Insp_Méc").Select
celui qui fonctionne : Sheets(Array("Révision périodique", "Mesure pour client", "Plan")).Select

Sub sauve_revision_periodique_pdf()
texte = Sheets("Révision périodique").Range("C11") & " " & Range("P11") & " - " & Range("P7") & " - " & Range("H17") & " - " & Range("P17") & " - " & _
Range("W17") & " - " & Range("C19") & " - " & Range("c17") & " - " & Range("c7").Value & " - " & _
Format(Date, "dd.mm.yyyy") & ".pdf"

chemin = "\\Freebox_Server\serveur maison\Fichiers Maison\Kylian\VISION\CLIENTS\CONTROLE VOILES\RAPPORTS FAITS A FACTURER" & "/"

Sheets(Array("Révision périodique", "Mesure pour client", "Plan")).Select
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=chemin & texte, _
quality:=x1QualityMinimum, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

sylvanu · 21 Septembre 2023

Vous avez toujours votre "/" à la fin de chemin. Vous avez modifié ?
Après la ligne "texte = .... "
Aoutez la ligne range("A1")=texte
et posez le contenu de A1.

sylvanu · 21 Septembre 2023

J'ai testé :

VB:

Sub sauve_insp_mecanique_pdf()

texte = [A1] & ".pdf"

chemin = "C:\Users\PC_PAPA\Desktop\"

Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=chemin & texte, _
quality:=x1QualityMinimum, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

MsgBox ("Le rapport en Pdf a été créé")
End Sub

avec en A1 "EssaiPourVoir"
et tout marche :

AtTheOne · 21 Septembre 2023

Bonjour à toutes & à tous, bonjour @sofmat & @sylvanu
S'assurer que les paramètres type et quality sont bien xlTypePdf et xlQualityMinimun et commencent par xl et non x1

sofmat · 21 Septembre 2023

AtTheOne à dit:
Bonjour à toutes & à tous, bonjour @sofmat & @sylvanu
S'assurer que les paramètres type et quality sont bien xlTypePdf et xlQualityMinimun et commencent par xl et non x1

Oui c'est bien un l et non un 1.

AtTheOne à dit:
Bonjour à toutes & à tous, bonjour @sofmat & @sylvanu
S'assurer que les paramètres type et quality sont bien xlTypePdf et xlQualityMinimun et commencent par xl et non x1

sylvanu à dit:

J'ai testé :

VB:

Sub sauve_insp_mecanique_pdf()

texte = [A1] & ".pdf"

chemin = "C:\Users\PC_PAPA\Desktop\"

Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=chemin & texte, _
quality:=x1QualityMinimum, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

MsgBox ("Le rapport en Pdf a été créé")
End Sub

avec en A1 "EssaiPourVoir"
et tout marche :
Regarde la pièce jointe 1179304

En enlevant les variables cela fonctionne, mais comment puis-je faire car il faut que j'utilise les variables, avez-vous une idée ?

sylvanu · 21 Septembre 2023

sofmat à dit:
En enlevant les variables cela fonctionne, mais comment puis-je faire car il faut que j'utilise les variables, avez-vous une idée ?

Oui, le problème se situe dans les variables.

Pourquoi ne répondez vous pas aux questions ?

1- Avez vous changé le "/" en "\" ?
2- Modifiez le code comme demandé au post #5 et postez la valeur de A1.

Malgré tous mes efforts, ma boule de cristal refuse de fonctionner.

Phil69970 · 21 Septembre 2023

Bonjour à tous

Perso j'aimerais savoir :

1) Ce qu'il y a dans les cellules

texte = Sheets("Révision périodique").Range("C11") & " " & Range("P11") & " - " & Range("P7") & " - " & Range("H17") & " - " & Range("P17") & " - " & _
Range("W17") & " - " & Range("C19") & " - " & Range("c17") & " - " & Range("c7").Value & " - " & _
Format(Date, "dd.mm.yyyy") & ".pdf"

2) Et quelle erreur ? N° erreur etc ...

sofmat à dit:
J'ai une erreur dans ma formule

Staple1600 · 21 Septembre 2023

Bonsoir le fil

En remplaçant par 0 (pour éviter l'erreur de typo(*) soulevée par @AtTheOne), je m'évite des soucis
(code initial fourni par l'enregistreur de macros)

Enrichi (BBcode):

Sub Macro1()
ActiveSheet.ExportAsFixedFormat _
    Type:=0, Filename:="C:\Users\STAPLE\Documents\test.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

(*): x1TypePDF au lieu de xlTypePDF

sylvanu · 21 Septembre 2023

Re, Bonsoir Staple,
Mon code du post #6 marche.
Mais si vous posez une question à Sofmat, il ne répond pas. Voir post #9.
Je suppute un caractère spécial dans texte, en plus du "/" au lieu de "\" dans le chemin.
Et si vous donnez un ex de code qui marche, vous devenez invisible.

Staple1600 · 21 Septembre 2023

Re @sylvanu

je ne pose aucune question
je poste juste une suggestion pour éviter les erreurs de frappes
Quoique on pourrait (mais faudrait vraiment le vouloir ) faire cette erreur
ActiveSheet.ExportAsFixedFormat _
Type:=O,

sofmat · 22 Septembre 2023

sofmat à dit:
Oui c'est bien un l et non un 1.

En enlevant les variables cela fonctionne, mais comment puis-je faire car il faut que j'utilise les variables, avez-vous une idée ?

sylvanu · 22 Septembre 2023

Pourquoi tant de haine ?

Vous avez lu mon post #9 ? Pourquoi ne livrez vous pas le "texte que vous calculez ?
Vous avez testé mon code post #6 en l'adaptant pour le chemin ?

XL 2019 vba sauvegarde pdf noms variables

sofmat

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

sofmat

XLDnaute Junior

sofmat

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

AtTheOne

XLDnaute Accro

sofmat

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

sofmat

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Discussions similaires