Sly le globe trotter
XLDnaute Occasionnel
Bonjour à tous,
Je dispose dans un fichier, d'un onglet contenant des données et des formes automatiques que j'utilise comme boutons.
Je cherche à copier cet onglet dans un nouveau classeur, puis à supprimer les formes automatiques. Le nom des formes étant changé lors de la copie de l'onglet, j'ai tenté de contourner le problème en utilisant le code suivant
Le code fonctionne correctement, les formes sont bien supprimées. En revanche, à l'ouverture du fichier créé, un message m'indique qu'il contient des erreurs... En forçant l'ouverture, un nouveau message m'indique ceci ...
Pourriez-vous m'aider à identifier ce qui ne va pas et supprimer le problème svp ?
Merci,
Sylvain
Je dispose dans un fichier, d'un onglet contenant des données et des formes automatiques que j'utilise comme boutons.
Je cherche à copier cet onglet dans un nouveau classeur, puis à supprimer les formes automatiques. Le nom des formes étant changé lors de la copie de l'onglet, j'ai tenté de contourner le problème en utilisant le code suivant
Code:
For Each S In ActiveSheet.Shapes
If S.Type = 1 Then S.Delete
Next
Le code fonctionne correctement, les formes sont bien supprimées. En revanche, à l'ouverture du fichier créé, un message m'indique qu'il contient des erreurs... En forçant l'ouverture, un nouveau message m'indique ceci ...
Pourriez-vous m'aider à identifier ce qui ne va pas et supprimer le problème svp ?
Merci,
Sylvain