probleme ouverture fichier avec macro

[bebe1310]

Bonjour au forum


Voila ma question


Je voudrais faire une macro qui m'ouvre un fichier lorsque je clique sur un bouton.
Si le fichier existe, pas de probleme il me l'ouvre.

Mais je voudrais que si le fichier n'existe pas, il ne me mette pas un debogage dans visual basic mais plutot une msgbox me prevenant que le fichier n'existe pas avec juste le bouton ok a cliquer.


Merci a tous de vos reponse


bebe1310

 

[Michel_M]

Bonjour Bebel et le forum

Tu peux essayer ce code dans ta macro (et l’adapter à ton pb) :


On Error Resume Next
Workbooks.Open Filename:="C:\Mes documents\toto.xls"
If num.Err = 1004 Then
MsgBox "le fichier demandé n'existe pas"
Exit Sub
End If
On error goto 0
A+
Michel. Béziers

 

[sousou]

cet xemple d'utilisation de on error resume next devrait te permettre de trouver une solution qui te convienne.

Sub test()
On Error Resume Next
Workbooks.Open ("toto.xls")

If Error <> "" Then
MsgBox "Ce fichier n'existe pas"
Exit Sub
End If
On Error GoTo 0

End Sub

 

[bebe1310]

Merci pour vos reponse, j'y suis presque mais il rest un petit prob, c'est que si le fichier n'existe pas, c'est cool il me met le message,
mais si le fichier existe , il me l'ouvre et me met quand meme le message


Merci pour votre aide,



j'attends vos reponses avec impatience


bebe1310

 

[Michel_M]

effectivement, ça coince.... je cherche

A+
Michel.bézIers

 

[Michel_M]

Re Bebel

Avec ceci ça a l'air de marcher:


Sub bebel()

On Error Resume Next
Workbooks.Open Filename:="C:\Mes documents\toto.xls"
num = Err
On Error GoTo 0
'num= 424 à ajouter peut-être
If num = 1004 Then
MsgBox "le fichier demandé n'existe pas"
Exit Sub
End If


End Sub


Je pense qu'il fallait désactiver le gestionnaire d'erreur avant le IF (resume next forcerait l'éxécution que le prédicat soit true ou false...


A+ et bon appétit
Michel. Béziers