Fonction SI : regarder si un fichier existe

Bonjour à tous,

Je viens vers vous pour avoir un petit coup de pouce.

je cherche à sauvegarder sous un fichier si il n'existe pas et à l'ouvrir si il existe déjà. Les codes à ce niveau sont ok.

Mon problème est pour créer la fonction SI pour qu'Excel regarde si ce fichier existe ou pas.

Quelqu'un a-t-il une solution à me proposer ?

P.S. : j'ai changé le chemin par des x pour poster mais cela ne change rien au problème normalement.

Sub ouverture_date()
Dim direction As String
Dim nomf As String
Dim Datev As Date
Dim a As Integer
Dim b As String
Datev = Now()
a = WorksheetFunction.Proper(Format(Datev, "yyyy"))
b = WorksheetFunction.Proper(Format(Datev, "mmmm"))
    dater = Format(Datev, "dddd d mmmm yyyy")

Txt = "\\xxxxxx\xxxx.xxx.xxx\xxx\" & a & "\" & b & "\" & dater & ".xlsm"
If Txt = False Then
   ActiveWorkbook.SaveAs Filename:= _
       "\\xxxxxx\xxxx.xxx.xxx\xxx\" & a & "\" & b & "\" & dater & ".xlsm", FileFormat:= _
       xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Else
      If MsgBox("Le fichier existe déjà. Voulez-vous l'ouvrir ?", vbYesNo) = vbYes Then
      Workbooks.Open Filename:= _
      "\\xxxxxx\xxxx.xxx.xxx\xxx\" & a & "\" & b & "\" & dater & ".xlsm"
End If
End If

End Sub

Bonjour,

essayer avec la fonction dir(): par exemple :

Txt = Dir("\\xxxxxx\xxxx.xxx.xxx\xxx\" & a & "\" & b & "\" & dater & ".xlsm")
If Txt = "" Then
   ....
Else
   ....
EndIf

J'avais essayé avec Dir, je n'avais pas réussis mais là ça marche à voir. Merci beaucoup