Creation de bouton pour macro

[bylka213]

Bonjour,

Je voulais remercier toutes les personnes qui ont pu m'aider sur ce forum, j'espere que vous pourrais 'aider sur ce problème que je me pose.

Je vous explique j'ai deux attentes:

• Dans un premier temps j'aimerais créer un bouton pour une macro que je lance toujours en faisant ALT+F8 (lancer la macro).
• Dans un second temps j'ai des données provenant d'une source exterieur pour les mettre a jour je peux aller dans la barre d'outils données externes et appuyer soit sur actualiser les données(le point d'exclamation) ou sur actualiser tout (point d'exclamation sur fond de feuille EXCEL)

Merci pour vos reponses

 

[phlaurent55]

Re : Creation de bouton pour macro

Salut bylka,


pour ta première question, "dépose" un bouton sur ta feuille, ensuite, clic-droit et ensuite affecter une macro

à+

 

[tototiti2008]

Re : Creation de bouton pour macro

Bonjour à tous,

Pour actualiser toutes les données externes d'un classeur:

ThisWorkbook.RefreshAll

 

[bylka213]

Re : Creation de bouton pour macro

Merci vous êtes très sympa c'est exactement ce que je voulais.

Je voulais savoir aussi une chose est-ce que je peux lancer une macro dasn un classeur pour qu'elle s'applique à plusieurs classeurs?

Pour info ces cllasseurs sont dane le même repertoire.

Encore un grand merci pour l'aide que vous m'avez déjà fournit.

En attendant de vous relire

 

[tototiti2008]

Re : Creation de bouton pour macro

Si tu fais une macro qui ouvre les classeurs, c'est possible.
Ensuite tu boucles sur les classeurs ouverts ou quelque chose du genre...

 

[bylka213]

Re : Creation de bouton pour macro

Merci pour ta réponse, parcontre je ne sais par faire une macro qui ouvre des classeurs pourrais-tu m'aider stp?
merci

 

[tototiti2008]

Re : Creation de bouton pour macro

Bonjour à tous,

Pour ouvrir un classeur, essaye quelque chose comme :
Workbooks.Open "c:\MonClasseur.xls"

Si tu veux plus de précision, il faut que tu me dises :
tous les classeurs de ton dossier doivent-ils être traités ou seulement certains d'entre eux ?
Ta macro est-elle bien prévue pour s'executer sur le classeur actif ? (ActiveWorkbook)
Que fais ta macro en gros ?
Peux-tu joindre un bout de fichier exemple pour qu'on y voie plus clair ?

 

[bylka213]

Re : Creation de bouton pour macro

Voici ma macro

Sub MettreCommentaire()

Dim V_Sheet As Worksheet

For Each V_Sheet In Worksheets
V_Sheet.Activate
    Dim plage As Range
    Dim c As Range
    Dim derLigne As Long
    With ActiveSheet
        derLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        Set plage = .Range("J1:K" & derLigne)
    End With
    For Each c In plage.Cells
        If c.Row > 1 And c.Value <> "" Then
            With c
                .ClearComments
                .AddComment Text:=.Text
                .Comment.Shape.Height = 188
                .Comment.Shape.Width = 255
                .ClearContents
            End With
        End If
    Next c

Next V_Sheet

End Sub

Elle met en commentaire tout ce qu'il y a dans les colonnes J et K car trop volumineux et efface le contenu de ces deux colonnes. Egalement grace à ton aide la macro ne s'applique pas aux cellules vide, ce qui aurait posé problème si lon lance la macro deux fois de suite (en effet toutes les cellules vides auraient un commentaire vide).

Pour l'instant grace au "For Each V_Sheet In Worksheets..."
la macro s'applique à toutes les feuilles.


Ce que je voudrais c'est qu'en plus la macro puisse s'appliquer à tous les classeurs d'un même repertoire.

10 classeurs d'un repertoire qui se nomme "tests"

Merci

 

[tototiti2008]

Re : Creation de bouton pour macro

Il faut simplement que tu ouvres tous les classeurs et que tu change ton for each :

For Each V_Sheet In Worksheets

en 2 for each :

For Each Wkb in application.workbooks
For Each V_Sheet In Wkb.Worksheets

avec évidement 2 Next à la fin

 

[bylka213]

Re : Creation de bouton pour macro

Merci tototiti,

ça marche impeccable 😀

désolé je n'ai pas envie que tu crois que je veuille abuser de ta gentillesse, et en même temps j'aimerais utiliser le même principe pour actualiser des données externes.
Jusque maintenant dans la boîte à outil je peux actualiser la feuille active ou tous le classeur.

J'aiemrais à l'image de ce que l'on viens de faire actualiser les données externes de tous les classeurs ouverts.

Merci


ps: j'ai un mot de passe pour acceder à ma source de données externes serais tu comment le supprimer (ne plus avoir à le renseigner?)

 

[tototiti2008]

Re : Creation de bouton pour macro

Application.CalculateFull

Actualise les données de tous les classeurs ouverts

Pour le mot de passe : c'est un mot de passe de connexion à la base ?

 

[tototiti2008]

Re : Creation de bouton pour macro

Euh... correction faite c'est pas CalculateFull... mais :

For each Wkb in application.workbooks
Wkb.RefreshAll
Next Wkb

Désolé, j'ai voulu aller trop vite 🙂

 

[bylka213]

Re : Creation de bouton pour macro

Ne soit pas désolé...c'est moi qui suis désolé de te déranger comme ça.

Pour répondre à ta question:

Pour le mot de passe : c'est un mot de passe de connexion à la base ?

oui c'est un mot de passe de connexion à la base.

D'ailleurs cela me gêne parce que je n'arrive même pas à tester ta macro précedente

For each Wkb in application.workbooks
Wkb.RefreshAll
Next Wkb

On dirait que le mot de passe n'est pas reconnu 😕


Quand je passe en mode débogage de la macro cela bloque sur Wkb.RefreshAll 🙁

 

[bylka213]

Re : Creation de bouton pour macro

Bonjour tout le monde,

Je relance mon message.

Comme dit precedemment j'ai un problème parce que lorsque j'appuie sur mon bouton mise a jour de tous les classeurs qui lance la macro

For each Wkb in application.workbooks
Wkb.RefreshAll
Next Wkb

Cela bloque, en fait on me demande le mot de passe de conexion a la base je le rentre mais ca fait comme si il ne le reconnaissait pas quand je lé tenté une dizaine de fois et que je fais annulé il me propose le mode debogage et ca me surligne dan la macro la ligne

wkb.RefreshAll


Merci a bientot je l'espere

 

[bylka213]

Re : Creation de bouton pour macro

Re,


En réalité ce n'était pas un bug de la macro mais juste que l'actualisation de tous les classeurs en même temps fait que j'ai à entrer autant de fois le mot de passe de connexion à la base que j'ai de feuilles dans tous mes classeurs.

Auriez vous une idée pour que lorsque j'entre le mot de passe une fois je n'ai pas à le répéter pour chaque feuille?


Merci