Bonjour,

Dans le but de réaliser mon script j'ai tenté de modifier le code suivant :
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
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
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