Vérification avec la fonction Dir si le fichier existe déjà

Bonjour,

je dois faire un bouton qui crée un pdf du fichier Excel le boutons fonction bien mais le problème c'est que si dans le dossier ou en veut enregistrer le fichier a déjà un autre fichier avec le même nom il l'écrase mais je voudrais faire en sorte que si il y a déjà un fichier avec le même nom ca nous met un Msgbox qui dis "dossier existe déjà , veillez changer la date"

petite note: le nom du fichier = caisse du [case de la date] & [case de la période]

    Dim retour As Byte

retour = MsgBox("tout est bien verifié?", vbYesNo)
If (retour = 6) Then
    Dim Dossier As String, Fichier As String
    Dossier = "L:\####\Sections\RT\####\cours\Caisse\PDF\Caisse du "
    Fichier = [B2] & [B1]
   ActiveWorkbook.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
        Dossier & Fichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=2, _
        OpenAfterPublish:=True
End If
End Sub

je suis désole j'avais essayer plusieurs façons de le faire avec la commande dir mais j'ai pas enregistrer comme un idiot

donc la partie du code la est pour enregistrer le fichier, cette partie marche complètement mais il me faut Just la vérification qu'un fichier avec le même nom n'existe pas.

Bonjour Exau,

Petite correction sur le contenu de Dossier et de Fichier

Dossier = "L:\####\Sections\RT\####\cours\Caisse\PDF\"
    Fichier = "Caisse du " & [B2] & [B1] &".pdf"
If Dir(Dossier & Fichier) <>"" then
  Msgbox "Le fichier existe déjà !"
Endif

@+

merci mais je dois le placé comment exactement ?

comme ca ?

Dim retour As Byte

retour = MsgBox("tout est bien verifié?", vbYesNo)
If (retour = 6) Then
    Dim Dossier As String, Fichier As String
    Dossier = "L:\####\Sections\RT\####\cours\Caisse\PDF\"
    Fichier = "Caisse du " & [B2] & [B1] &".pdf"
    If Dir(Dossier & Fichier) <>"" then
          Msgbox "Le fichier existe déjà !"
    else
        ActiveWorkbook.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
            Dossier & Fichier, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=2, _
            OpenAfterPublish:=True
    End if
End If
End Sub

désolé je suis débutant

Re,

Il faut définir les variables avant et simplifier le code comme ceci

Sub Test()
  Dim retour As Byte
  Dim Dossier As String, Fichier As String
  ' On sort si la réponse à la question est NON
  If MsgBox("tout est bien verifié?", vbYesNo) = vbNo Then Exit Sub
  ' Définir le chemin et le nom du fichier
  Dossier = "L:\####\Sections\RT\####\cours\Caisse\PDF\"
  Fichier = "Caisse du " & [B2] & [B1] & ".pdf"

  If Dir(Dossier & Fichier) <> "" Then
    MsgBox "Le fichier existe déjà !"
  Else
    ActiveWorkbook.ExportAsFixedFormat Type:=x1TypePDF, Filename:=Dossier & Fichier, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      From:=1, To:=2, OpenAfterPublish:=True
  End If
End Sub

@+

merci !!!!!