Bonsoir à tous,
Voilà mon problème...
Quand je veux créer/exporter un pdf, qui dans son nom de fichier, contient des valeur "Date", cela me renvoie l'erreur 1004...
La macro:
Function CréationPDFMétrés() As String
Dim sRep As String ' Répertoire de sauvegarde du pdf
Dim sFilename As String ' Nom du pdf
Dim strRep As String ' Répertoire du dossier "Métrés"
Dim dateTime As Date ' Mémorise la date et l'heure de création du fichier
sRep = "C:\Users\Devis clients\" & ActiveSheet.[I8] & "\Métrés\"
sFilename = "Métrés N°" & ActiveSheet.[F9] & "XXX" & "_" & ActiveSheet.[I8] & Format(Now, " (dd/mm/yyyy - hh'nn'ss)") & ".pdf"
strRep = "C:\Users\Devis clients\" & ActiveSheet.[I8] & "\Métrés"
Call CreerRepertoire(strRep)
dateTime = Now()
Sheets("Métrés").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sRep & sFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
' On vérifie que le fichier a bien était créé
If sRep = ("Métrés N°" & ActiveSheet.[F9] & "XXX" & "_" & ActiveSheet.[I8] & " (" & dateTime & ")" & ".pdf") <> "" Then
MsgBox "- Le dossier client a était créé avec succès!" & vbCrLf & _
"- Le .pdf de ""Métrés"" a était créé avec succès!", vbInformation, "Infos..."
Else
MsgBox "ERREUR, Le .pdf de Métrés n'a pas était créé...", vbExclamation, "Ooups !"
End If
End Function
A savoir que:
ActiveSheet.[F9] = "2016/12-"