Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les images et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Merci à tous pour vos différentes astuces. Tout roule comme sur des roulettes. Bonne fin de journée PJ
bonjour serge,
Bonjour Isabelle, Type : 7 ---> ? 13 ---> ? Et les autres ? Fait pas chaud à Québec ! par chez nous non plus...mais au moin vous avez de la neige,
serge, insere différente shapes sur la feuille 1 et roule cette macro,
Sub Type_Images() For Each f In Sheets("Feuil1").Shapes a = a + 1 Range("A" & a) = f.Type Range("B" & a) = f.Name Next f End Sub
isabelle
garnote
Merci Isabelle,
Mais est-ce possible d'avoir tous les numéros de Type disponibles dans VBA avec les noms correspondants sans insérer de formes. Doit bien y avoir une liste quelque part dans Excel, non ?
Serge
"isabelle" a écrit dans le message de news: eFxB$
bonjour serge,
Bonjour Isabelle, Type : 7 ---> ? 13 ---> ? Et les autres ? Fait pas chaud à Québec ! par chez nous non plus...mais au moin vous avez de la neige,
serge, insere différente shapes sur la feuille 1 et roule cette macro,
Sub Type_Images() For Each f In Sheets("Feuil1").Shapes a = a + 1 Range("A" & a) = f.Type Range("B" & a) = f.Name Next f End Sub
isabelle
Merci Isabelle,
Mais est-ce possible d'avoir tous les numéros de Type
disponibles dans VBA avec les noms correspondants
sans insérer de formes. Doit bien y avoir une liste
quelque part dans Excel, non ?
Serge
"isabelle" <i@v> a écrit dans le message de news: eFxB$xIQHHA.3668@TK2MSFTNGP02.phx.gbl...
bonjour serge,
Bonjour Isabelle, Type :
7 ---> ?
13 ---> ?
Et les autres ? Fait pas chaud à Québec !
par chez nous non plus...mais au moin vous avez de la neige,
serge, insere différente shapes sur la feuille 1 et roule cette macro,
Sub Type_Images()
For Each f In Sheets("Feuil1").Shapes
a = a + 1
Range("A" & a) = f.Type
Range("B" & a) = f.Name
Next f
End Sub
Mais est-ce possible d'avoir tous les numéros de Type disponibles dans VBA avec les noms correspondants sans insérer de formes. Doit bien y avoir une liste quelque part dans Excel, non ?
Serge
"isabelle" a écrit dans le message de news: eFxB$
bonjour serge,
Bonjour Isabelle, Type : 7 ---> ? 13 ---> ? Et les autres ? Fait pas chaud à Québec ! par chez nous non plus...mais au moin vous avez de la neige,
serge, insere différente shapes sur la feuille 1 et roule cette macro,
Sub Type_Images() For Each f In Sheets("Feuil1").Shapes a = a + 1 Range("A" & a) = f.Type Range("B" & a) = f.Name Next f End Sub
isabelle
isabelle
Merci Isabelle,
Mais est-ce possible d'avoir tous les numéros de Type disponibles dans VBA avec les noms correspondants sans insérer de formes. Doit bien y avoir une liste quelque part dans Excel, non ?
bien sur, regarde dans l'explorateur d'objets, à MsoShapeType sélectionne un item dans la fenêtre de droite et tu apercevra son numéro au bas de cette fenêtre.
isabelle
Merci Isabelle,
Mais est-ce possible d'avoir tous les numéros de Type
disponibles dans VBA avec les noms correspondants
sans insérer de formes. Doit bien y avoir une liste
quelque part dans Excel, non ?
bien sur, regarde dans l'explorateur d'objets, à MsoShapeType
sélectionne un item dans la fenêtre de droite
et tu apercevra son numéro au bas de cette fenêtre.
Mais est-ce possible d'avoir tous les numéros de Type disponibles dans VBA avec les noms correspondants sans insérer de formes. Doit bien y avoir une liste quelque part dans Excel, non ?
bien sur, regarde dans l'explorateur d'objets, à MsoShapeType sélectionne un item dans la fenêtre de droite et tu apercevra son numéro au bas de cette fenêtre.
