[Ex 07] Bouton avec Macro

Version imprimable

03/07/2008, 17h34
macat

[Ex 07] Bouton avec Macro

Bonsoir,

J'ai un fichier nommé original avec un bouton et sa macro qui fonctionne très bien. Je voulais recopier ce bouton dans toute une liste de fichiers nommés par service qui ont eux mêmes plusieurs feuilles nommées de janvier à décembre.

Est-ce possible de créer une macro qui me ferait la copie de ce bouton dans toutes ces feuilles, d'un seul coup, sans avoir à ouvrir chaque feuille pour le faire?

Merci beaucoup

essaie avec ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
 
Dim I As Integer
Dim PositionGauche As Integer, Hauteur As Integer, Longeur As Integer, Largeur As Integer
 
 
Sub AjoutBoutonSurToutesLesfeuillesDunClasseur()
PositionGauche = 20
Hauteur = 20
Longeur = 120
Largeur = 45
 
         For I = 1 To Sheets.Count
         Sheets(I).Select
         ActiveSheet.Buttons.Add(PositionGauche, Hauteur, Longeur, Largeur).Select
'         Selection.OnAction = "Macro attachée au Bouton"
         Selection.Characters.Text = "ligne 1 du bouton" & Chr(10) & " ligne 2 du bouton"
             With Selection.Characters(Start:=1, Length:=36).Font
                 .Name = "Parisine Office"
                 .FontStyle = "Gras"
                 .Size = 14
             End With
        Next I
End Sub

07/07/2008, 14h42
macat

Je suis ravie que cela puisse se faire.

J'ai donc modifié, mais je ne suis pas en mesure de dire si c'est bien ou pas. Pour l'instant ça ne marche pas.

J'ai incéré un module supplémentaire dans un de mes fichiers et copié ton code.
Pour "Selection.OnAction = j'ai mis le nom de ma macro, c'est à dire le nom qui se trouve à côté de Sub dans le titre de ma macro.

J'ai sûrment quelque chose d'autre à faire non :aie:

Merci.
07/07/2008, 15h12
fring

Bonjour,

Au lieu de vouloir créer des centaines de boutons, pourquoi ne pas créer un seul bouton et le mettre dans une barre de menu soit existante soit perso qui serait accessible depuis n'importe quelle feuille de n'importe quel classeur ?
07/07/2008, 17h56
macat

Bonjour Fring,

Parce que mes fichiers sont sur un partage.

Je peux donc faire une copie de ma barre d'outils dans la barre d'un autre poste de travail avec les macros qui vont avec? Et mes macros marcheront aussi?

C'est plus qu'intéressant ça. Surtout ne métrisant pas vraiment VBA. Pourtant le projet du début de cette discussion est bon à savoir aussi et j'aurais bien voulu aussi qu'il aboutisse.

Mais comment je dois procéder pour la copie de ma barre? Là je voix pas.

Merci.
07/07/2008, 18h12
fring

Citation:

Envoyé par macat

Pourtant le projet du début de cette discussion est bon à savoir aussi et j'aurais bien voulu aussi qu'il aboutisse.

Ce que cocodrillo te proposait n'est valable que pour le classeur actif.

Que ce soit d'une manière ou d'une autre, à ma connaissance ce que tu cherches à faire n'est pas réalisable sans ouvrir les classeurs.

De plus, par la suite, pour exécuter une macro située dans un autre classeur il faut que ce classeur soit également ouvert
08/07/2008, 13h48
macat

Bonjour,

Avec mon grand optimisme, j'ai l'impression tout de même que tout ceci est bien plus simple qu'il n'y paraît.

La solution de créer une barre avec un bouton contenant ma macro sur le poste de ma collègue doit bien pouvoir marcher non!

Avant d'essayer j'aurais bien aimé avoir la certitude que ça fonctionne avant de lui donner de fausses joies. ;)

Personne de ce forum n'a eu à résoudre ce problème de cette manière? Où autre solution qui fonctionne?
08/07/2008, 13h56
fring

Citation:

Envoyé par macat

Avec mon grand optimisme, j'ai l'impression tout de même que tout ceci est bien plus simple qu'il n'y paraît.

Si tu trouves une solution simple, je serai ravi de la découvrir.

Citation:

Envoyé par macat

La solution de créer une barre avec un bouton contenant ma macro sur le poste de ma collègue doit bien pouvoir marcher non!

non ! (oui si tu vas sur son poste et que tu crées cette barre de menu)

A moins de créer un classeur avec création de la barre lors de l'ouverture de celui-ci . Lorsque ta collègue ouvrira ce classeur, la barre de menu s'installera sur son poste.
08/07/2008, 16h21
ilcocodrillo

Citation:

Envoyé par fring

non ! (oui si tu vas sur son poste et que tu crées cette barre de menu)

A moins de créer un classeur avec création de la barre lors de l'ouverture de celui-ci . Lorsque ta collègue ouvrira ce classeur, la barre de menu s'installera sur son poste.

Exusez moi de vous demander pardon messire fring mais il est tout à fait faisable de faire migrer la barre d'outil contenant le ou les boutons qui vont bien pour exécuter les macros. Il faut pour cela "Attacher" la barre d'outil au classeur et le faire une fois qu'on à bouclé l'affaire sion il faudra détacher la barre d'outils puis la réattacher... (sujet d'un de mes posts d'il y a 2 jours)...
08/07/2008, 16h32
fring

Oui cocodrillo, d'accord avec toi sauf que...

Citation:

Je voulais recopier ce bouton dans toute une liste de fichiers

il ne s'agit pas ici d'un classeur en particulier mais si j'ai bien compris le schmilblick, c'est pouvoir exécuter une procédure à partir d'une centaine (pour dire un chiffre) de classeurs différents.

Il faut donc d'après moi, créé un bouton sur une barre de menus (existante ou nouvelle) indépendante d'un classeur bien précis et ça je ne vois pas comment le faire à distance hormis créer cette barre via une macro dans un classeur, diffuser ce classeur et le faire ouvrir par les différents intervenants.

Me trompette je ?
08/07/2008, 16h47
ilcocodrillo

Citation:

Envoyé par fring

Me trompette je ?

Non tu ne trompette pas. Mais bourin que je suis j'avion point compris messire

Une soluce pas trop compliqué serait de passer par perso.xls, tu distribues à tous le monde dans le réperoire qui va bien et tous monde dispose de la macro à l'ouverture, non ?
08/07/2008, 17h45
fring

Citation:

Envoyé par ilcocodrillo

Une soluce pas trop compliqué serait de passer par perso.xls, tu distribues à tous le monde dans le réperoire qui va bien et tous monde dispose de la macro à l'ouverture, non ?

oui mais le chemin du perso.xls étant par défaut sur le disque dur de chaque utilisateur, je ne pense pas que tu puisses effectuer cette tâche à distance.

N'étant pas un pro des manipulations en réseau (un pro en rien d'ailleurs), il y a peut-être une astuce qui m'échappe.

Maintenant reste à voir de combien d'utilisateurs on parle, si c'est pour 2 il n'y a pas à se casser le chou, on va sur chaque pc et on bricole directement sur le pc le perso.xls ou le xla et le joli bouton. Si c'est pour 200...le problème doit s'envisager différement.
08/07/2008, 18h05
ilcocodrillo

je ne suis expert en rien si ce n'est supporter ma femme :oops:
mais pour le sujet qui nous concerne je ferai simple en faisant le perso.xls qui va bien. Je te mettrai ça dans un fichier compressé avec le chemin qui va bien et je le balance par mail aux 2412 utilisateurs. ils décompresent la pièce jointe au mail, le perso.xls s'installe tous seul dans le répertoire qui va bien et "normallement" (voilà un mot énervant parce qu'il n'y a jamais rien de normal) ça marche...

Bon j'avoue je l'ai pas fait pour voir mais en théorie c'est bueno :yaisse2:
09/07/2008, 17h18
macat

Bonsoir à vous,

Merci de vous pencher sur mon problème.

Finalement j'ai fait une barre avec un bouton spécial pour cette macro.

J'attends le retour de ma collègue pour voir si quand elle ouvre ce fichier elle dispose aussi de la barre pour faire le test et je vous tiens au courant.

Bonne fin de journée.

Fuseau horaire GMT +2. Il est actuellement 20h31.