Peut-on faire afficher un commandbutton à partir d'une autre mac ro
2 réponses
rm81
Bonjour,
D'abord, j'espère ce message vous trouve en bonne forme, et la tête pas trop
bourrée de macros / code / formulaires etc. ! Youpee, c'est le
weekend...presque :)
Deuxièmement un grand merci à ceux qui m’ont apportée leur aide précieuse ;
mon projet prend forme petit à petit. J’aimerais vous rendre le service mais
ma connaissance des macros est vraiment trop limitée !
Troisièmement, voilà mon problème :
J'ai deux classeurs excel. Dans classeur1.xls, j'ai une feuille avec un
commandbutton qui exécute le suivant :
1) Ouverture, si nécessaire, du classeur2.xls
2) Copie de la feuilx du classeur1.xls dans le classeur2.xls
3) Changement du nom de la feuille copiée dans le classeur2.xls sur la base
d’une cellule
4) « clearcontents » de la feuille originale du classeur1.xls
5) Sauvegarde des deux fichiers
Cependant, je voudrais que la macro faisse une chose de plus (eh oui, je
suis exigeante !) Je voudrais que dans chaque feuille copiée, la macro fait
afficher un commandbutton qui va exécuter une autre macro une fois que
l’utilisateur aura terminé de remplir la feuille copiée.
Est-ce que c’est possible ? Est-ce que je dois stocker ce macro dans
perso.xls ou dans le classeur1/2.xls ?
Je vous remercie par avance pour votre temps et pour toute réponse.
Roshni
Private Sub B_affiche_autre_Click() B_autre.Visible = True End Sub
Private Sub b_cache_Click() B_autre.Visible = False End Sub
Cordialement JB
rm81
Merci JB pour votre réponse. Cependant, je voulais quelque chose comme :
Private Sub Bouton1_QuandClic() 'ci-dessous suit le code qui a copié la feuille dans l'autre classeur, renommé la feuille copiée etc
If Workbooks("Classeur1.xls").Sheets(1)¬tive Then Bouton2_QuandClic().Visibleúlse Else if Workbooks("Classeur2.xls").Sheets(all) Then Bouton2_QuandClic().Visible=True
Je sais ce code n'est pas du tout correct - c'est juste pour montrer un peu mon fil des pensées.
Je vous remercie d'avance pour une réponse. Cordialement, Roshni
Bonjour,
http://cjoint.com/?evn1qT8hv8
Private Sub B_affiche_autre_Click() B_autre.Visible = True End Sub
Private Sub b_cache_Click() B_autre.Visible = False End Sub
Cordialement JB
Merci JB pour votre réponse. Cependant, je voulais quelque chose comme :
Private Sub Bouton1_QuandClic()
'ci-dessous suit le code qui a copié la feuille dans l'autre classeur,
renommé la feuille copiée etc
If Workbooks("Classeur1.xls").Sheets(1)¬tive Then
Bouton2_QuandClic().Visibleúlse
Else if Workbooks("Classeur2.xls").Sheets(all) Then
Bouton2_QuandClic().Visible=True
Je sais ce code n'est pas du tout correct - c'est juste pour montrer un peu
mon fil des pensées.
Je vous remercie d'avance pour une réponse.
Cordialement,
Roshni
Bonjour,
http://cjoint.com/?evn1qT8hv8
Private Sub B_affiche_autre_Click()
B_autre.Visible = True
End Sub
Private Sub b_cache_Click()
B_autre.Visible = False
End Sub
Merci JB pour votre réponse. Cependant, je voulais quelque chose comme :
Private Sub Bouton1_QuandClic() 'ci-dessous suit le code qui a copié la feuille dans l'autre classeur, renommé la feuille copiée etc
If Workbooks("Classeur1.xls").Sheets(1)¬tive Then Bouton2_QuandClic().Visibleúlse Else if Workbooks("Classeur2.xls").Sheets(all) Then Bouton2_QuandClic().Visible=True
Je sais ce code n'est pas du tout correct - c'est juste pour montrer un peu mon fil des pensées.
Je vous remercie d'avance pour une réponse. Cordialement, Roshni
Bonjour,
http://cjoint.com/?evn1qT8hv8
Private Sub B_affiche_autre_Click() B_autre.Visible = True End Sub
Private Sub b_cache_Click() B_autre.Visible = False End Sub
