[VBA Excel] référence necessaire pour OLEObjects

Version imprimable

Bonjour,
j'essaye de faire fonctionner un code permettant de créé un bouton qui exécute une macro. A la compilation ce dernier bloquer sur mon objet OLEObjects :
"Impossible de lire la propriété de l'objet OLEObjects de la classe Worksheet"

J'ai rajouté la bilbiothèque "Microsoft Visual Basic for Applications Extensibility", mais cela n'a pas l'air de suffire. Est ce une erreur de code, une erreur de référence (quel bibliothèque me faut il en plus ?) .. ?

voici un extrait de mon code, et merci pour votre aide.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Set oOLE = ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=100, Height:=30) 'texte sur le bouton ActiveSheet.OLEObjects(X).Object.Caption = "Actualiser " & feuille 'code sur le bouton Code = "Sub CommandButton_Click()" & vbCrLf Code = Code & "Call Module1.Lire" & requete & "," & feuille & vbCrLf Code = Code & "End Sub" With ActiveWorkbook.VBProject.VBComponents(feuille).CodeModule NextLine = .CountOfLines + 1 .insertlines NextLine, Code End With

01/08/2006, 16h22
gatsu07

Je viens de m'appercevoir que j'avais une erreur dans mon code :

Code:

ActiveSheet.OLEObjects(X).Object.Caption = "Actualiser " & feuille

Je n'avais pas défini X

Code:

X = ActiveSheet.OLEObjects.Count

J'ai par contre un autre problème maintenant. En créant le code de ma macro je fais un appel à une fonction en passant des paramètres. Malheureusement, l'un de ceux la est très très grand (c'est une requête), du coup il y a un retour à la ligne non voulue et le code de mon bouton ne s'éxecute pas.
Quelqu'un à une idée ?
01/08/2006, 16h27
biggione

tu na qu'a découpé ta valeur en 2 puis tu les stocke dans 2 variable
et ensuite tu effectue un test si c ce que tu ve faire sur les deux.

Sinon, c koi comme genre de variable ce truc super long?
01/08/2006, 16h48
gatsu07

C'est une requête SQL qui tient en moyenne sur 10 lignes, mais ca peut faire moins voir plus. Je voudrais pseudo automatiser le traitement, ne pas avoir besoin de découper mon paramètre (la requête) suivant sa taille.

bonsoir

tu peux essayer cette procedure pour scinder la requete dans la variable

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Set oOLE = _
ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Link:=False, DisplayAsIcon:=False, _
        Left:=340, Top:=30, Width:=100, Height:=30)
 
        '------- procedure pour scinder la requete -------------
        Cible = Requete
        Requete = ""
 
        For i = 1 To Len(Cible)
            X = InStr(80, Cible, " ")
 
            If X = 0 Then
                Chaine = Cible
                Requete = Requete & """" & Chaine & """"
                Exit For
            End If
 
            Chaine = Mid(Cible, 1, X)
            Requete = Requete & """" & Chaine & """ & _" & vbCrLf
            Cible = Mid(Cible, Len(Chaine) + 1)
        Next
 
    'Debug.Print Requete
    '-----------------------------------------------------------
 
    X = ActiveSheet.OLEObjects.Count
    'texte sur le bouton
    ActiveSheet.OLEObjects(X).Object.Caption = "Actualiser " & Feuille
 
    'code sur le bouton
    Code = "Sub CommandButton_Click()" & vbCrLf
    Code = Code & "Module1.Lire " & Requete & " , " & Feuil1.Name & vbCrLf
    Code = Code & "End Sub"
 
    With ActiveWorkbook.VBProject.VBComponents(Feuil1.Name).CodeModule
        NextLine = .CountOfLines + 1
        .InsertLines NextLine, Code
    End With

bonne soiree
michel

02/08/2006, 09h15
gatsu07

merci bien pour ce code, ca marche nikel.
J'ai juste du augmenter la taille des lignes de 80 à 250. Par contre j'ai essayé de transformer cette portion de code en procédure en passant par référence ma requête mais cela ne marche pas.
Débutant en vbaexcel, je me demande si il y a une manière spéciale de passer en paramètre par référence à une procédure ? Sinon je ne vois pas trop pourquoi le traitement ne se fait pas lorsque je le fais dans une procédure (enfin il se fait, mais il me renvoit ma variable non modifié) ...
03/08/2006, 05h31
SilkyRoad

bonjour

je suis désolé mais je n'ai pas compris le sens de ton dernier message

bonne journée
michel
03/08/2006, 08h51
gatsu07

Désolé de ne pas avoir été clair.
Le bout de code que tu m'as donné pour couper ma requête marche très bien hormis que étant très longue elle provoque trop de retour à la ligne, donc de "& _". A la compilation, j'ai donc une erreur qui disait je crois bien "trop de caractère de continuité". Pour régler ce problème, j'ai donc augmenter la taille des lignes :

Code:

X = InStr(250, Cible, " ")

A ce moment la, tout va bien, sauf que j'essaye de passer ce bout de code en procédure. Il faut donc que je passe par référence ma requête (entrée/sortie).
J'utilise bien le "byref" dans ma procédure, mais la valeur à la sortie de cette procédure de la requête passé en paramètre n'a pas changé ...
Je me demandais donc si à l'appel de la procédure il fallait spécifier que je passais ma "requete" par référence (entrée/sortie) Sinon, pourquoi est ce que ma variable passé en paramètre (ici ma requete) à cette procédure n'est pas changé ...?
en espérant d'avoir été plus clair, merci de tes précisions.