Discussion :

[GROBIN]

Bonjour,
J'utilise une macro pour exporter des photos, après regroupement et incrustation, dans un fichier nommé BasePlusA enregistré sur le bureau. A la fin de l'opération, une macro supprime de la feuille excel les photos résiduelles. Depuis que je suis passé à Windows7, cette macro insérée dans la précédente ne se déclenche pas.

Sub SuppressionAgr()
Worksheets("RgptPh").Shapes(Worksheets("RgptPh").Shapes.Count).Delete
End Sub

Nota sous Windows XP, cette macro fonctionne sans problème. Est-ce un bogue ou sinon quel code employer. Merci de votre aideGR

[ESVBA]

Je n'ai pas ouvert le fichier mais /

• le chemin dans la cellule "B4" a été modifié, adapté au compte ?
• Il ne manque pas le "\" à la fin
• Après le code fourni n'est pas bon :

• Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  Worksheets("RgptPh").Shapes(Worksheets("RgptPh").Shapes.Count).Delete

ESVBA

[GROBIN]

Bonjour ESVBA. Merci de ta réponse. En effet, en B4, le chemin d'accès est à adapter selon la version Windows. Sur mon nouvel ordi sous Windows7 cela donne

C:\Users\Csi\Desktop\

Après, tu me dis que le code fourni

Worksheets("RgptPh").Shapes(Worksheets("RgptPh").Shapes.Count).Delete

n'est pas bon. Sur mon ancien ordi sous Windows XP et Excel 2003, cela fonctionne. Quel serait le bon code à employer sous windows7?. en te remerciant.GR.

[GROBIN]

Il suffit d'écrire Excel.Run + nom macro ("----")

Excel.Run ("SuppressionAgr")