Discussion :

[nanousik]

Bonjour,

J'ai aujourd'hui une macro qui ouvre un classeur à distance pour récupérer des informations présentes sur une feuille du classeur.

Mon soucis est que je souhaite également récupérer ce qui est saisi dans les zones de textes présentes sur cette feuille de calcul.

Voila ce que j'ai comme code

Code :

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

1
2
3
4
5
6
7
8
9
10
Set monclasseur = Workbooks.Open(fichier)
Set mafeuille = monclasseur.Worksheets("F1")

While mafeuille.Cells(d, 5) <> "a" Then
     If mefeuille.OLEObjects("TextBox" & nbtxt).Value <> "" Then          
           ActiveSheet.Cells(l, 9).Value = mafeuille.OLEObjects("TextBox" & nbtxt).Value
     End If
     nbtxt=nbtxt+1
     d=d+1
wend

L'erreur porte sur la ligne en rouge - Erreur d'exécution '438': Propriété ou méthode non générée par cet objet.

Merci par avance pour votre aide

[AlainTech]

Bonjour,

Comme ça, peut-être?

Code :

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

If mafeuille.OLEObjects("TextBox" & nbtxt).Object.Value <> "" Then

[nanousik]

Désolée de ne pas avoir répondu avant, je suis actuellement en congé.

Je teste ça lundi et te redis si ça fonctionne.

Merci d'avance