Discussion :

[NEC14]

Bonjour à tous,

Je cherche à alimenter une combo (CmbSite) avec des informations se trouvant dans un autre fichier fermé.
Voici le chemin du fichier fermé

K:\Suivi_Engage\Don.xls\ dans la feuille "Tiers" et la zone nommée "Tiers".

La combo se trouve dans le fichier 343.xls, dans le formulaire UFsais.

Je n'ai jamais fais cela, pouvez-vous m'apportez votre aide s'il vous plait ?
Merci par avance

J'ai essayé ce code, mais ça ne fonctionne pas.
Mesage d'erreur "Erreur d'exécution 9 - L'indice n'appartient pas à la sélection"

Ensuite je ne peux plus utiliser mon formulaire, ni le fichier "Don.xls"

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
18
19
20
21
22
23
 
Private Sub UserForm_Initialize()
UFsais.TxtDate = Date
    UFsais.TxtNumFich.SetFocus
 
    ExcelFile = "K:\Suivi_Engage\Don.xls"
    Table = "Tiers"
    Set xlAppList = CreateObject("Excel.Application")  'crée une instance excel
    Set MyWorkbook = xlAppList.Workbooks.Open(ExcelFile, 0, , , "")    'ouvrre ce fichier excel
 
    MyWorkbook.Sheets(Table).Select
    For Each C In ActiveSheet.Range("B2", "B" & Trim(Str(Cells(65535, 1).End(xlUp).Row)))
            ' Trim(Str(Cells(65535, 1).End(xlUp).Row)) = Repère la dernière cellule remplie de la colonne
       UFsais.CmbTiers.AddItem Sheets(Table).Cells(C.Row, 1)
    Next
       'penser à refermer le classeur en l'enregistrant si il a été modifié
    MyWorkbook.Close savechanges:=True
    Set xlAppList = Nothing
    Set MyWorkbook = Nothing
 
UFsais.CmbTiers.ListIndex = -1
 
End Sub

[SfJ5Rpw8]

bonjour,

sur qu'elle ligne l'erreur ?

par qu'elle application est utilisé ton code ? ( si tu as besoin de créer une instance excel c'est que tu n'utilise pas excel directement ?)

[NEC14]

Bonjour,

C'est une application Excel. Je fais appel à 2 fichiers Excel. Celui qui est ouvert, d'où provient la macro, et un autre fermé dans lequel se trouve des données dont j'ai besoin.

L'erreur se trouve à l'ouverture de l'UF, lorsque je clique sur le bouton qui appelle la procédure. Sur le Load UFsais.