vérification et message erreur

[gildas lechat]

Bonjour le forum,

Vous trouverez ci-dessous un code permettant d’ouvrir le fichier désigné automatiquement auparavant dans le « Label 3 », (le label 3 désignant l’arborescence complète)

Workbooks.Open Me.Label3.Caption

J’aimerai effectuer un test avant d’ouvrir le fichier du type :

Le fichier exprimé dans le label 3 existe-t-il ?

• Vrai : ouverture du fichier (Workbooks.Open Me.Label3.Caption)

• Faux : Message d’erreur : fichier inexistant

Merci de votre aide

Gildas

 

[tototiti2008]

Re : vérification et message erreur

Bonjour Gildas,

Peut-être quelque chose comme ça

Sub MaSub()
'... traitements avant ouverture
On Error Goto ErrOuvr
Workbooks.Open Me.Label3.Caption
On Error goto 0
'... traitements après ouverture
Exit Sub
ErrOuvr:
Msgbox "Impossible d'ouvrir le fichier - traitement arrêté"
end Sub

 

[Theze]

Re : vérification et message erreur

Bonjour,

Et avec ceci ?

If Dir(Me.Label3.Caption) <> "" Then
    MsgBox "Le fichier " & Me.Label3.Caption & " existe !"
Else
    MsgBox "Le fichier " & Me.Label3.Caption & " n'existe pas !"
End If

Hervé.

 

[gildas lechat]

Re : vérification et message erreur

Bonjour tototiti & Hervé


les deux solutions sont OK, jai opté pour la 1ere.

Merci
Gildas