Récupérer Objet/Controls d'une feuille excel
Bonjour,
Dans le but de réaliser mon script j'ai tenté de modifier le code suivant :
Code:
1 2 3 4 5 6
| Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is MsForms.TextBox Then
ctrl.Name
End If
Next ctrl |
En effet Me est inconnu au bataillon en VBS par exemple, donc cela donne cela :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim ExcelFile
ExcelFile = "C:\Documents and Settings\uspa8495\Desktop\IMS Test Plan v2611_revSPI.xls"
Set obj_xls = CreateObject("Excel.Application")
Set obj_File = obj_Xls.Workbooks.Open (ExcelFile)
GetObjectList obj_File, obj_xls, "SIP Conformance RFC3261"
Function GetObjectList(obj_File, obj_xls, Nom_feuille)
Dim ctrl
Set Feuille = obj_File.Worksheets(Nom_feuille)
For Each ctrl In Feuille.Controls 'obj_File.Controls 'obj_xls.Controls 'Me.Controls
'msgbox ctrl.Name
'If TypeOf ctrl Is MsForms.TextBox Then
' ctrl.Name
'End If
Next
End Function |
Mais bien sur cel ne marche pas, j'ai une erreur :
Cette objet ne gère pas cette proprieté ou cette méthode : Feuille.Controls
Erreur au caractère 5 de la ligne 31, c'est à dire celle du for each (je n'ai pas posté une fonction fonctionnelle que je n'appelle pas, d'où 31 et pas un truc comme 20)
Bref avec les commentaires vous avez mes tentatives. Quelqu'un aurait une idée ?
Je ne suis pas très fort en traduction VBA -> VBS :(
Mon but est de récupérer les Objets/Controls d'une feuille d'un classeur, et en fonction de leur nature, faire des trucs.
En effet sur un de mes classeurs dans une des feuilles, j'ai des objets Acrobat, et je voudrais les récupérer pour obtenir le chemin complet des fichiers PDF associés aux objets.
Merci par avance pour vos réponse.
Edit : Si j'oublie de mettre le code original, cela peut être plus dur ;)