Test présence d'un fichier dans une macro

Résolu/Fermé
Signaler
Messages postés
186
Date d'inscription
dimanche 27 janvier 2008
Statut
Membre
Dernière intervention
2 septembre 2011
-
 Nergal1664 -
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

3 réponses

Bonjour

MonFichier <> "" ne teste pas si un fichier existe ou pas. MonFichier est une chaîne, "" en est une autre, et MonFichier <> "" compare ces deux chaines, c'est tout

Pour tester si un fichier existe, tu as la fonction Dir qui te rend le nom du fichier s'il existe et une chaine vide sinon

If dir(MonFichier)<>"" then...
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Merci pour ton explication, j'ai réussi à faire ce que je voulais! D'la bombe :D
Messages postés
186
Date d'inscription
dimanche 27 janvier 2008
Statut
Membre
Dernière intervention
2 septembre 2011
6
Merci beaucoup ca marche
Messages postés
186
Date d'inscription
dimanche 27 janvier 2008
Statut
Membre
Dernière intervention
2 septembre 2011
6
Help HelpHelp HelpHelp HelpHelp HelpHelp Help!!!

Je désespère impossible de réaliser la commande suivante
Sub Testmacro()

If MonFichier <> "" Then
MsgBox MonFichier
Else
MsgBox "Le fichier n'existe pas"
End If

End Sub

Si le fichier n'existe pas je dois me b rancher sur la msgbox suivante MsgBox "Le fichier n'existe pas"

Alors comment faire??????


Merci