Export PDF : Nom de fichier avec Date & Heure impossible

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

Bonjour,

Ne serait-ce pas un doublon que tu viens de faire là ?

Un nom de fichier ne peut contenir le caractère "/". Formater la date autrement avec format()

eric

bonsoir ériiic,

Désolé pour le doublon, pourtant j'ai cherché un cas similaire mais rien trouvé !

N'y a t'il aucune solution pour contourner ce problème ?

J'ai essayer sans les "/" et effectivement sa fonctionne...

Ne peut-ont pas faire en sorte qu'a la création du fichier, excel ignore les "/" ???

La solution est dans mon post précédent. Il faut lire et se servir de l'aide (F1) si besoin.

Je suis en train de chercher ton post précédent mais je ne trouve rien pour l'instant...

c'est dans "Une demande peut-être impossible a résoudre..." ???

précédent... ici !!! La réponse que je t'ai donnée au-dessus quoi.

Re,

Désolé pour ma réponse tardive...

OK ériiic, Je prends note...

Pas de nom de fichier avec des "\"

Merci pour le renseignement, je passe en résolu...

Bonjour,

il y avait écrit ça aussi :

Formater la date autrement avec format()

eric

Rechercher des sujets similaires à "export pdf nom fichier date heure impossible"