Discussion :

[SpaceFrog]

Je reviens à l'attaque sur notre problème de creation dynamique de boutons en VBA Excel...

Créer les bouton ne pose pas de problème particulier si ce n'est dans le fait de pouvoir leur attribuer des evènements ...
En efft la methode qui consiste à ecrire le code dynamiquement n'est pas satifaisante ...

En VB on peut créer une collection de bouton qui répond à une seule sub click par exemple ...
Comment faire la même chose sous VBA ?
En plus le tag n'existant pas pour les boutons sous VBA nous sommes obligés de passer per le caption pour le paramètre passer dans la sub click ...

[bidou]

Utilises des Shapes au lieu de controle ActiveX, passes ta procédure dans le OnClick et utilises Application.Caller pour connaitre l'appelant.

[SpaceFrog]

oullà bidou ..; ok pour les shapes mais après je suis largué ???

heu quoi que j'ai testé les shapes et je vois pas ou tu veux en venir ...

[bidou]

je te fais un exemple pour 17 h

[SpaceFrog]

cool bidou
mille merci !

[bidou]

par exemple, je crée autant de bouton que de fichier Excel dans mon répertoire, un clic sur le bouton ouvre le fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub CreerBouton()
 
    Dim Test As String, cmpt As Integer, Bouton As Button
 
    cmpt = 1
    Test = Dir("C:\Documents and Settings\jmarc\Mes documents\" & "*.xls")
    While Test <> ""
        Set Bouton = ActiveSheet.Buttons.Add(Cells(cmpt, 1).Left, Cells(cmpt * 2, 1).Top, 86.25, 18)
        With Bouton
            .OnAction = "ProcActionBouton"
            .Name = Left(Test, Len(Test) - 4)
        End With
        cmpt = cmpt + 1
        Test = Dir
    Wend
 
 
End Sub
 
Private Sub ProcActionBouton()
 
Workbooks.Open "C:\Documents and Settings\jmarc\Mes documents\" & Application.Caller & ".xls"
 
End Sub

[SpaceFrog]

je savais que je pouvais compter sur toi ...

onAction ... encore fallait il savoir à quoi ça sert


heu sinon tout a fait autre chose tu te rappelle du bouquin ?

[bidou]

Tien, je l'avais oublié celui-là.
Je vais fouiller dans mes cartons

[SpaceFrog]

pas pressé bidou

take your time !

encore merci !

[SpaceFrog]

question subsidiaire biou dsl j'ai pas tout saisi ...


si j'ai besoin de passer une param dans la fonction ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.OnAction = "findWorddocs("&  XlsFiles(i) &"  ) "

ne marche pas ...
je pense que la solution est liée à application.caller ...
c'est le name du bouton ?

et le nom de fonction ... faut utiliser celui là ?

[DarkVader]

normal, le nom du bouton est le nom du fichier dans le code de bidou
sinon supprime les parenthèses - OnAction n'attend pas de retour.

[bidou]

oui application.Caller c'est le nom de l'objet appelant la fonction. Dans mon cas c'est le nom du fichier sans extension.

[ogenki]

bonjour

le code passe mais me renvoi une erreur "argument non facultatif" quand je click dessu..( sur le bouton) une idée de la raison ??

merci

[bidou]

quelle version d'Excel ???

[ogenki]

excel 2003..

[bidou]

et ca plante sur le open ?

[ogenki]

sa plante quand je clique sur le bouton..

[bidou]

Oui mais c'est quoi le code de la procédure attachée au bouton ?

[ogenki]

code de la procedure...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Function findWorddocs(MonDoc As String)
    Dim DocFiles() As String
    DocFiles = FindFiles("C:\Documents and Settings\avaysse\Mes documents\", "doc")
    Dim preuve As Boolean
    preuve = False
    MsgBox Application.Caller
    For i = 0 To UBound(DocFiles) - 1
        If DocFiles(i) = FicDoc Then preuve = True
    Next
    If preuve = True Then
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''Ouvrir un document Word existant à partir d'Excel
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'necesite d'activer la reference Microsoft Word xx.x Object Library
        Dim appWrd As Word.Application
        Dim DocWord As Word.Document
        Dim DocPath
        Set appWrd = CreateObject("Word.Application")
        appWrd.Visible = True
        DocPath = "C:\Documents and Settings\avaysse\Mes documents\" & FicDoc & ".doc"
        Set DocWord = appWrd.Documents.Open(DocPath, ReadOnly:=True)
    Else
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''Créer un nouveau document Word à partir d'Excel
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'necesite d'activer la reference Microsoft Word xx.x Object Library
' Dim appWrd As Word.Application
' Dim docWrd As Word.Document
        Set appWrd = CreateObject("Word.Application")
' Dim DocPath
        appWrd.Visible = True
        Set docWrd = appWrd.Documents.Add
        DocPath = "C:\Documents and Settings\avaysse\Mes documents\" & FicDoc & ".doc"
        docWrd.SaveAs (DocPath)
 
    End If
End Function

[bidou]

tu ne peux pas lui passer cela ainsi, ca doit être une procédure sans paramêtre je pense. Il faut ruser avec Application.Caller pour définir le fichier Word