XL 2019 vba sauvegarde pdf noms variables

sofmat

XLDnaute Junior
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

1695306115738.png
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Junior
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

XLDnaute Barbatruc
Supporter XLD
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 :
1695310803140.png
 

sofmat

XLDnaute Junior
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é :
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

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Statistiques des forums

Discussions
313 198
Messages
2 096 133
Membres
106 504
dernier inscrit
Kannankin Maxime