aide photo

[AIGLON74]

bonjour a tous

voila un code qui va checher une image .jpg sur c:

et l'insert sur une page excel



maphoto = "c:\" & Range("L5") & ".jpg"
ActiveSheet.Pictures.Insert(maphoto).Select


mais si l'image n'exicte pas je voudrais
qu'un message apparaisse du style

photo manquante je clic sur ok et la macro continu

mais la ca passe pas avec moi



Aiglon74

 

[Banzai64]

Re : aide photo

Bonsoir

De mémoire (qui flanche)


dans ta procédure
avant d'aller chercher l'image

ON ERROR Goto Je_Gere_Erreur
.
.
.
exit sub


je_gere_erreur:
msgbox "Erreur"
on error resume next
end sub


pas sur de tout ça mais c'est dans le style

Pour plus d'infos regarde l'aide de VBA sur On Error

Bonsoir MDF

 

[myDearFriend!]

Re : aide photo

Bonsoir AIGLON74,

Tu devrais pouvoir procéder comme ça :

[SIZE=2]maphoto = "c:\" & Range("L5") & ".jpg"
[COLOR=NAVY]If[/COLOR] Dir(maphoto) <> "" [COLOR=NAVY]Then[/COLOR]
    ActiveSheet.Pictures.Insert(maphoto).[COLOR=NAVY]Select[/COLOR]
    [COLOR=GREEN]'...[/COLOR]
    [COLOR=GREEN]'...[/COLOR]
[COLOR=NAVY]Else[/COLOR]
    MsgBox "photo manquante"
[COLOR=NAVY]End If[/COLOR][/SIZE]

Cordialement,

EDITION : Bonsoir Banzai64, on s'est croisé...

 

[BOISGONTIER]

Re : aide photo

Bonsoir,


If Dir(maPhoto)="" Then
msgbox(Inconnu"
Else

End if

JB
Formation Excel VBA JB

 

[AIGLON74]

Re : aide photo

bonsoir

merci ca fonctionne du tonnerre

aiglon74