XL 2019 vba sauvegarde pdf noms variables

[sofmat]

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]

Bonjour Softmat,
Essayez avec peut être:

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]

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

 

[sofmat]

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]

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]

J'ai testé :

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]

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]

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.

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

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

J'ai testé :

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]

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]

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

J'ai une erreur dans ma formule

 

[Staple1600]

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)

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]

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]

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]

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]

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 ?