Pb avec If not exist... then... Else

Question

Ci-dessous le code de ma macro que j'ai adapté suite aide de Myta (merci encore).

Tout fonctionne parfaitement dans le cas ou si ma première condition est vraie alors je teste si mon fichier existe, si ce dernier existe j'insère la photo et elle se place ou je le demande en se réduisant comme je le souhaite.

Cependant, si la première condition est vraie et que le fichier n'existe pas je voudrais lui dire d'aller à la PartieTube car dans le cas présent, il essaie de me redimensionner une image qui n'est pas insérée car elle n'existe pas.

Merci de vos aides et conseils.

If Range("M16").Value = Empty Then GoTo PartieTube Else MonImage = Range("M16").Value

Existe = Fichier_Existe(dirBlister & MonImage & ".jpg")

If Not Existe Then Range("M32").Value = "Pas d'image disponible" Else ActiveSheet.Pictures.Insert(dirBlister & MonImage & ".jpg").Select

'With Selection

'.Left = Range("n31").Left

'.Top = Range("m32").Top

'End With

'Selection.ShapeRange.Height = 135

'Selection.ShapeRange.IncrementTop 6

an.pi · Answer

Voir le positionnement des ordre. Ci joint un exemple de if then else A bientôt Annette https://www.excel-pratique.com/~files/doc/A6F81Classeur1.xls...