Bonjour,

A partir d'une macro j'aimerai faire le test de la présence d'un fichier s'il est présent j'ouvre le fcihier avec excel sinon je renvoi une boite en indiquant que le fichier n'existe pas et j'invite la personne a re-saisire un autre nom comment faire???

Ma macro :

Sub Test_de_Macro()
'
' Test_de_Macro Macro
' Macro enregistrée le par
'

'
Dim MonFichier As String
Dim Var_Fic As String
' nom du fichier a visualiser
Var_Fic = InputBox("Nom du fichier à visualiser","Saisie le Nom")

MonFichier = "c:\Mon_Repertoire\" & Var_Fic

'Je test si le fichier existe s'il existe je passe a ligne suivante sinon je vais a la fin et je demande une nouvelle saisie puis je re-commence au début de ma macro et ainsi de suite


Workbooks.OpenText Filename:= _
MonFichier _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Cells.Select
With Selection.Font
.Name = "Courier New"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A4").Select
Columns("A:A").ColumnWidth = 44.57

'fin de la macro

End Sub

Merci de votre aide

Configuration: Excel 2003
XP