Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau
classeur sans les boutons de contrôles ?
j'ai testé:
For Each oleObj In ActiveSheet.OLEObjects
If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete
Next oleObj
mais il ne se passe rien...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
Merci encore de votre aide
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf.
Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %23iHpKZzJFHA.2736@TK2MSFTNGP09.phx.gbl...
bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau
classeur sans les boutons de contrôles ?
j'ai testé:
For Each oleObj In ActiveSheet.OLEObjects
If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete
Next oleObj
mais il ne se passe rien...
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
Merci encore de votre aide
Cordialement
Ga
Ga
merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre classeur. Mais mon problème est que les boutons de contrôles des feuilles se copient également et çà je voudrais l'éviter. C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
Merci encore de votre aide
Cordialement
Ga
merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre
classeur. Mais mon problème est que les boutons de contrôles des
feuilles se copient également et çà je voudrais l'éviter.
C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf.
Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %23iHpKZzJFHA.2736@TK2MSFTNGP09.phx.gbl...
bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau
classeur sans les boutons de contrôles ?
j'ai testé:
For Each oleObj In ActiveSheet.OLEObjects
If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete
Next oleObj
mais il ne se passe rien...
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre classeur. Mais mon problème est que les boutons de contrôles des feuilles se copient également et çà je voudrais l'éviter. C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
Merci encore de votre aide
Cordialement
Ga
MichDenis
Bonjour Ga,
Essaie ceci : Fait disparaître TOUS les contrôles de la feuille
Sheets("Feuil1","Feuil3").copy With activeworkbook For Each sh In .Worksheets For Each s In sh.Shapes s.Delete Next Next End With
Salutations!
"Ga" a écrit dans le message de news: merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre classeur. Mais mon problème est que les boutons de contrôles des feuilles se copient également et çà je voudrais l'éviter. C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
Merci encore de votre aide
Cordialement
Ga
Bonjour Ga,
Essaie ceci : Fait disparaître TOUS les contrôles de la feuille
Sheets("Feuil1","Feuil3").copy
With activeworkbook
For Each sh In .Worksheets
For Each s In sh.Shapes
s.Delete
Next
Next
End With
Salutations!
"Ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: OF3TgmzJFHA.616@TK2MSFTNGP10.phx.gbl...
merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre
classeur. Mais mon problème est que les boutons de contrôles des
feuilles se copient également et çà je voudrais l'éviter.
C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf.
Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %23iHpKZzJFHA.2736@TK2MSFTNGP09.phx.gbl...
bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau
classeur sans les boutons de contrôles ?
j'ai testé:
For Each oleObj In ActiveSheet.OLEObjects
If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete
Next oleObj
mais il ne se passe rien...
Essaie ceci : Fait disparaître TOUS les contrôles de la feuille
Sheets("Feuil1","Feuil3").copy With activeworkbook For Each sh In .Worksheets For Each s In sh.Shapes s.Delete Next Next End With
Salutations!
"Ga" a écrit dans le message de news: merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre classeur. Mais mon problème est que les boutons de contrôles des feuilles se copient également et çà je voudrais l'éviter. C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
Merci encore de votre aide
Cordialement
Ga
Ga
re, j'ai une erreur: "variable de contrôle For déjà utilisée". si je déplace le next avant le 2ième For, j'ai erreur "objet requis" sur la ligne: s.delete ??
Cordialement
Ga
Bonjour Ga,
Essaie ceci : Fait disparaître TOUS les contrôles de la feuille
Sheets("Feuil1","Feuil3").copy With activeworkbook For Each sh In .Worksheets For Each s In sh.Shapes s.Delete Next Next End With
Salutations!
"Ga" a écrit dans le message de news: merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre classeur. Mais mon problème est que les boutons de contrôles des feuilles se copient également et çà je voudrais l'éviter. C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
Merci encore de votre aide
Cordialement
Ga
re,
j'ai une erreur: "variable de contrôle For déjà utilisée".
si je déplace le next avant le 2ième For, j'ai erreur "objet requis"
sur la ligne: s.delete ??
Cordialement
Ga
Bonjour Ga,
Essaie ceci : Fait disparaître TOUS les contrôles de la feuille
Sheets("Feuil1","Feuil3").copy
With activeworkbook
For Each sh In .Worksheets
For Each s In sh.Shapes
s.Delete
Next
Next
End With
Salutations!
"Ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: OF3TgmzJFHA.616@TK2MSFTNGP10.phx.gbl...
merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre
classeur. Mais mon problème est que les boutons de contrôles des
feuilles se copient également et çà je voudrais l'éviter.
C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf.
Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %23iHpKZzJFHA.2736@TK2MSFTNGP09.phx.gbl...
bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau
classeur sans les boutons de contrôles ?
j'ai testé:
For Each oleObj In ActiveSheet.OLEObjects
If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete
Next oleObj
mais il ne se passe rien...
re, j'ai une erreur: "variable de contrôle For déjà utilisée". si je déplace le next avant le 2ième For, j'ai erreur "objet requis" sur la ligne: s.delete ??
Cordialement
Ga
Bonjour Ga,
Essaie ceci : Fait disparaître TOUS les contrôles de la feuille
Sheets("Feuil1","Feuil3").copy With activeworkbook For Each sh In .Worksheets For Each s In sh.Shapes s.Delete Next Next End With
Salutations!
"Ga" a écrit dans le message de news: merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre classeur. Mais mon problème est que les boutons de contrôles des feuilles se copient également et çà je voudrais l'éviter. C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
Merci encore de votre aide
Cordialement
Ga
Ga
re, c'est bon j'ai trouvé excuse-moi c'est mes doigts qui dec.... en saisissant
merci beaucoup çà fonctionne au poil
Cordialement
Ga
re, j'ai une erreur: "variable de contrôle For déjà utilisée". si je déplace le next avant le 2ième For, j'ai erreur "objet requis" sur la ligne: s.delete ??
Cordialement
Ga
Bonjour Ga,
Essaie ceci : Fait disparaître TOUS les contrôles de la feuille
Sheets("Feuil1","Feuil3").copy With activeworkbook For Each sh In .Worksheets For Each s In sh.Shapes s.Delete Next Next End With
Salutations!
"Ga" a écrit dans le message de news:
merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre classeur. Mais mon problème est que les boutons de contrôles des feuilles se copient également et çà je voudrais l'éviter. C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
Merci encore de votre aide
Cordialement
Ga
re,
c'est bon j'ai trouvé excuse-moi
c'est mes doigts qui dec.... en saisissant
merci beaucoup çà fonctionne au poil
Cordialement
Ga
re,
j'ai une erreur: "variable de contrôle For déjà utilisée".
si je déplace le next avant le 2ième For, j'ai erreur "objet requis" sur
la ligne: s.delete ??
Cordialement
Ga
Bonjour Ga,
Essaie ceci : Fait disparaître TOUS les contrôles de la feuille
Sheets("Feuil1","Feuil3").copy
With activeworkbook
For Each sh In .Worksheets
For Each s In sh.Shapes
s.Delete
Next
Next
End With
Salutations!
"Ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news:
OF3TgmzJFHA.616@TK2MSFTNGP10.phx.gbl...
merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre
classeur. Mais mon problème est que les boutons de contrôles des
feuilles se copient également et çà je voudrais l'éviter.
C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur
tout neuf.
Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de
feuille d'excel
Salutations!
"Ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news:
%23iHpKZzJFHA.2736@TK2MSFTNGP09.phx.gbl...
bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau
classeur sans les boutons de contrôles ?
j'ai testé:
For Each oleObj In ActiveSheet.OLEObjects
If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete
Next oleObj
mais il ne se passe rien...
re, c'est bon j'ai trouvé excuse-moi c'est mes doigts qui dec.... en saisissant
merci beaucoup çà fonctionne au poil
Cordialement
Ga
re, j'ai une erreur: "variable de contrôle For déjà utilisée". si je déplace le next avant le 2ième For, j'ai erreur "objet requis" sur la ligne: s.delete ??
Cordialement
Ga
Bonjour Ga,
Essaie ceci : Fait disparaître TOUS les contrôles de la feuille
Sheets("Feuil1","Feuil3").copy With activeworkbook For Each sh In .Worksheets For Each s In sh.Shapes s.Delete Next Next End With
Salutations!
"Ga" a écrit dans le message de news:
merci pour ta réponse
Je me suis mal exprimé, je sais copier les 2 feuilles dans un autre classeur. Mais mon problème est que les boutons de contrôles des feuilles se copient également et çà je voudrais l'éviter. C'est çà que je cherche à faire
Cordialement
Ga
Bonjour GA,
Ceci copie les feuilles 1 et 3 du classeur actuel vers un classeur tout neuf. Sheets("Feuil1","Feuil3").copy 'adapte le nom des feuilles.
La procédure que tu as soumise n'a rien à voir avec la copie de feuille d'excel
Salutations!
"Ga" a écrit dans le message de news: % bonjour à tous
Comment peut-on copier plusieurs onglets d'un classeur dans un nouveau classeur sans les boutons de contrôles ?
j'ai testé: For Each oleObj In ActiveSheet.OLEObjects If oleObj.ProgId = "Forms.CommandButton.1" Then oleObj.Delete Next oleObj mais il ne se passe rien...
