Si non trouvé, ne rien faire

[babas]

Bonjour tout le monde, encore besoin de votre aide !

J'explique rapidement, je pense qu'il n'y a rien de bien compliqué mais je n'y arrive pas !

Sur un fichier Excel, lors de l'ouverture d'une feuille j'ai dans le module activate de ladite feuille un code permettant d'afficher un logo :

Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "logo" & ".jpg")

Le problème : il se peut qu'aucun logo ne soit présent dans le répertoire du classeur Excel...

Ma question : comment faire pour que, si aucun fichier logo présent le message d'erreur VBA ne s'affiche pas...

Merci d'avance et bon appétit

 

[Pierrot93]

Re : Si non trouvé, ne rien faire

Bonjour,

essaye peut être ceci :

Dim f As String
f = ThisWorkbook.Path & "\" & "logo" & ".jpg"
If Dir(f) <> "" Then Me.Image1.Picture = LoadPicture(f)

bon après midi
@+

 

[babas]

Re : Si non trouvé, ne rien faire

J'y ai cru, mais ça a fait planté Excel

 

[gilbert_RGI]

Re : Si non trouvé, ne rien faire

Bonjour

essayer

Application.DisplayAlerts = False

puis en fin de traitement

Application.DisplayAlerts = True

 

[Pierrot93]

Re : Si non trouvé, ne rien faire

Re, bonjour Gilbert

code proposé fonctionne chez moi sous 2003....

 

[gilbert_RGI]

Re : Si non trouvé, ne rien faire

je n'en doute pas, mais babas éprouve quelques difficultés semble t il

c'est pour cela que j'ai proposé le displayalerts..... attendons

 

[Pierrot93]

Re : Si non trouvé, ne rien faire

Re,

oui mais je crains fort "Application.DisplayAlerts = False" n'empêche pas le message d'erreur au cas ou le fichier ne soit pas trouvé... enfin sous 2003...

 

[babas]

Re : Si non trouvé, ne rien faire

Re,

oui mais je crains fort "Application.DisplayAlerts = False" n'empêche pas le message d'erreur au cas ou le fichier ne soit pas trouvé... enfin sous 2003...

En effet, le message s'affiche tout de même.

Pierrot, je viens de réessayer ton code, marche impeccable !!! Je ne sais pas pourquoi ça a merdé comme ça.

Merci à vous deux !