Export pdf dans dossier non existant + avertissement

Bonjour à tous,

J'ai un fichier excel contenant une macro permettant d'exporter un pdf vers un dossier qui "pourrait" ne pas exister (le dossier "Prépas")

Dans l'exemple que je vous transmets, le fichier s'exporte vers C:\USERS\NOM DU DOSSIER\Prépas\

Seulement voilà... Si "NOM DU DOSSIER" n'existe pas, excel n'exporte rien.

Le fait qu'excel n'exporte pas vers "NOM DU DOSSIER", ni ne le créer, me va très bien.

Ce que je souhaiterais, ce serait juste un petit message d'avertissement "NOM DU DOSSIER n'existe pas"

Car là actuellement, la macro ne plante pas et le seul moyen que j'ai trouvé pour comprendre que "NOM DU DOSSIER" n'existe pas, c'était de mettre OpenAfterPublish:=True

Si le pdf ne s'ouvre pas, je comprend immédiatement mais... c'est pas terrible comme solution, surtout pour les autres utilisateurs :)

J'ai conscience que ça doit être une bricole, mais après avoir tenté différents MsgBox sans succès... je capitule et demande votre aide

Merci par avance

Cordialement,

Bonjour FBidee,

A priori c'est juste une mauvaise gestion de l'erreur,

Essayes ce code:

Sub Export_Prépa()
 Dim nompdf As String, dossier As String, sousdossier As String

 Application.ScreenUpdating = False

  For i = 1 To Sheets.Count
   With Sheets(i)
    dossier = .Range("U4").Value
    nompdf = .Range("U3").Value
    sousdossier = .Range("U2").Value & "\Prépas\"
    chemin = dossier & sousdossier & nompdf

     On Error GoTo fin
existe = GetAttr(dossier & sousdossier)
If existe = "" Then
MkDir dossier & sousdossier
End If

    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, _
    From:=1, To:=2, OpenAfterPublish:=True
   End With

  Next i
Exit Sub
fin:
MsgBox ("Le dossier " & sousdossier & " n'éxiste pas")
End Sub

A+

Bonjour Gabin37,

Merci pour ta réponse !

Le message d'alerte fonctionne parfaitement...

...Cependant, si "NOM DU DOSSIER" existe, il me dit qu'il n'existe pas et n'exporte pas.

Merci par avance :)

Bonjour FBidee, désolé pour le délai de réponse.

Tu dois avoir une erreur dans le code même si le dossier existe.

Peux-tu enlever cette ligne:

On Error GoTo fin

Et tester le code étape par étape avec la touche F8

Pour essayer de trouver où se trouve l'erreur