PB copie de feuille à partir d'un bouton

[Sbab]

Bonjour à tous,

J'ai un petit problème avec la duplication d'une feuille à partir d'un bouton de cette même feuille:

---------------------------------------------------------------------------------
1) J'ai une feuille "Toto"
avec un bouton "CommandButton1"
auquel j'ai associé la subroutine VBA [dupliquer_feuille] codée:

Sub dupliquer_feuille()
Application.ScreenUpdating = False
Sheets(ActiveSheet.Name).Copy Before:=Sheets(1)
Application.ScreenUpdating = True
End Sub
---------------------------------------------------------------------------------
2) Exécution de la macro -->

2.1) Quand j'exécute la macro à partir du bouton "CommandButton1", la méthode de Copy de Sheets ECHOUE !

2.2) Si j'exécute la macro à partir du menu Outils/Macros de Excel, alors cette même macro REUSSIT


Pourrais- je avoir une aide sur le sujet ?

Merci d'avance !


PJ: un fichier "test-unitaire" du probème

 

[SYL'S]

Salut Sbab et le forum,

la semaine dernière il y a déjà eu le même sujet. voir lien ci dessous.
<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=38266&t=38257>

Bonne journée. Syl's.

 

[SYL'S]

Tiens Sbab, j'ai trouvé mieux...

un ancien post de Sousou et de renato hier soir.

Sub copie()
Set modèle = ThisWorkbook.Worksheets("feuil1")
modèle.Copy after:=modèle
ActiveSheet.UsedRange.ClearContents
ActiveSheet.Name = InputBox("Nom de la nouvelle feuille :")
End Sub

Rebonne journée. Syl's

 

[Sbab]

Salut Syl's,

Je te remercie pour ta réponse, mais apparament ton bout de code ne fonctionne pas chez moi.

J'ai un peu cherché sur le sujet et je pense qu'il doit y avoir un conflit avec la duplication du bouton et de la macro associée.

En effet, ça doit être un truc du genre:
--> j'appuie sur le bouton de duplication dans la feuille toto
-----> la méthode [CommandButton1_Click()] est appelée
-------> elle appelle la macro globale [dupliquer_feuille()]
-------> on duplique une nouvelle feuille AVEC AUSSI un bouton CommandButton1] qui est ASSOCIE aussi avec la macro [dupliquer_feuille()]

Le pb n'est-il pas dans le coin ?!

D'autres pistes ?!


Merci ! Et bonne journée à tous !

 

[SYL'S]

remoua,

je te joins le fichier....?

ça fonctionne chez moi. mais j'ai viré "ActiveSheet.UsedRange.ClearContents"

Bonne route.

 

[Sbab]

Re-salut,

Ton fichier marche bien !

Mais...

Ton bouton n'a pas les même propriété que le mien. En menu contextuel tu peux lui affecter une macro, tandis que le mien je dois lui coder une action click dans VBA. En plus le code :

-- Private Sub CommandButton1_Click()
-- copie
-- End Sub

ne suffit pas il faut:

-- Private Sub CommandButton1_Click()
-- ThisWorkbook.copie
-- End Sub


PB de version ou de manip de ma part ???

Pour mon bouton, j'ai utilisé la barre d'outils [Commandes] avec un bouton du type [CommandButton] et ma version d'Excel est [Excel97- SR2].

Quel type de bouton as-tu utilisé et comment ?


Je suis désolé de te harceler toi et le forum, mais des fois Excel/VBA sont bien capricieux et imprévisible...

Merci et A+,

Sbab


PS: la méthode Copy de ma feuille plante toujours dans mon fichier !
PJ: un fichier avec exactement le même code que toi et rangé pareil... mais qui plante (chez moi et chez vous ?... !)

 

[SYL'S]

mon bouton je l'ai créé avec la barre d'outil [formulaire], auquel j'ai affecté la macro sub copie...

la barre d'outil [commandes] est faite pour traiter du vba... et là je connais pas.

A plus

 

[Sbab]

Merci à toi Syl's

ça marche bien avec tes boutons de formulaire,


Merci d'avoir passé du temps sur mon pb !


PS: Si des gens savent pourquoi avec les boutons [Commandes] ça ne marchent pas, je suis preneur

Mais je n'en mourrerai pas !

A+