Si non trouvé, ne rien faire

Pierrot93

XLDnaute Barbatruc

• 6 Février 2014

• #2

Re : Si non trouvé, ne rien faire

Bonjour,

essaye peut être ceci :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

B

babas

XLDnaute Junior

• 6 Février 2014

• #3

Re : Si non trouvé, ne rien faire

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 6 Février 2014

• #4

Re : Si non trouvé, ne rien faire

Bonjour

essayer

Application.DisplayAlerts = False

puis en fin de traitement

Application.DisplayAlerts = True

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Février 2014

• #5

Re : Si non trouvé, ne rien faire

Re, bonjour Gilbert

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 6 Février 2014

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Février 2014

• #7

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...

 

Vote positif 0 Vote négatif

B

babas

XLDnaute Junior

• 6 Février 2014

• #8

Re : Si non trouvé, ne rien faire

Pierrot93 à dit:

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...

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif