Problème codage nom du fichier

Bonjour,

Je bloque sur un problème de compilation de la macro suivante :

Sub convert_selection_to_pdf()
Dim NDF As String, NDF2 As String, Rep As String
Dim WordApp As Object, WordDoc As Object
Dim chemin As String
Dim aujourdhui As String

    chemin = ActiveWorkbook.Path
    aujourdhui = Sheets("Indicateurs").Range("T1").Value

    Rep = MsgBox("Un ficher Pdf va être généré, souhaitez-vous poursuivre ?", vbYesNo + vbQuestion, "")

    If Rep = vbYes Then

    Rep = chemin
    NDF = Rep & "\Reporting\"

    Range("A1:S88").Select
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NDF & "Analyse des risques du " & aujourdhui & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
Else
    MsgBox "Opération annulée"
End If
End Sub

Il bloque au niveau du Titre du pdf en effet je n'arrive pas a mettre le contenu de la Cellule T1 dans le nom du fichier.

Si quelqu'un à une idée...

Merci

Cdlt

Bonjour,

le code fonctionne très bien chez moi ..

Pense donc à vérifier que tu as bien le dossier "Reporting" dans le dossier du fichier où est présent le code !

Si l'erreur ne vient pas de là, peut-être pourrait tu nous dire quelle erreur est donné par le débogage et nous fournir un fichier

Bon courage,

RemBabar

Bonjour,

Voici le message émis par la boite de dialogue :

Erreur 1004 :

Document non enregistré. Le document est peut être ouvert ou une erreur s'est produite lors de l'enregistrement.

Quand j'enlève "aujourdhui" dans l'enregistrement, la il n'y a pas de problème.

Bouton "reporting" de la macro 9 situé dans la feuille "Indicateurs".

Bonjour,

j'ai compris d'où vient ton problème !

En effet, ta date est au format jj/mm/aaaa, et un nom de fichier ne peut contenir de "/"

Je te propose de remplacer dans ton code la ligne d'aujourdhui par :

aujourdhui = Format(Now(), "dd-mm-yyyy")

Ce qui devrait fonctionner.

Félicitation pour ton fichier, j'aime beaucoup ! Tu as dû y passer pas mal de temps !

RemBabar

Rebonjour Rembabar,

Merci pour ta réponse ! c'est nickel !

Oui beaucoup d'investissement car je suis complètement novice mais le résultat est bientôt la ! encore quelques finitions...