Bonjour,
erreur 1004 Cells _Global
Le problème ce situe dans la boucle For au niveau du activesheet Cells
Je ne vois pas ce qui bug.
Merci beaucoup pour vos lumières.
Private Sub service_box_Change()
Elmt_projet.responsable_box.Clear
If service_box = "Nom_du_service" Then
ExcelFile = "c:\MONFICHIER.xls"
Table = "Feuil1"
Set xlAppList = CreateObject("Excel.Application") 'crée une instance excel
Set MyWorkbook = xlAppList.Workbooks.Open(ExcelFile, 0, , , "") 'ouvre ce fichier excel
MyWorkbook.Sheets(Table).Select 'Selection la table
For Each c In ActiveSheet.Range("L2", "L" & 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
Elmt_projet.responsable_box.AddItem Sheets(Table).Cells(c.Row, 12)
Next
'penser à refermer le classeur en l'enregistrant si il a été modifié
MyWorkbook.Close savechanges:=True
Set xlAppList = Nothing
Set MyWorkbook = Nothing
Excel.Application.Quit
End If
End Sub
