Bonjour,
Dans le but de réaliser mon script j'ai tenté de modifier le code suivant :
En effet Me est inconnu au bataillon en VBS par exemple, donc cela donne cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Mais bien sur cel ne marche pas, j'ai une erreur :
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 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
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
Partager