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