Bonjour à tous,
Jolie réalisation... qui demande une participation active au lecteur arf arf
J'ai du modifier :
Code:
Sub EffaceImage()
'***Efface les images placées dans le trombinoscope
Dim Image As Object
For Each Image In Sheets("Intro").Shapes
If Left(Image.Name, 5) = "Image" Then Image.Delete
Next
End Sub
Pour ceux qui aurait le WebBrowser manquant dans les Références MsoWCF.dll à placer dans C:\Program Files\Microsoft Office\Officexx (xx=11 pour XL 2003)
Un grand merci pour ces petits mots gentils et personnalisés
A++
A+ à tous