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