sesa
XLDnaute Occasionnel
bonsoir
quand j'ouvre mon fichier excel j'ai l'erreur :
impossible de charger les objets car ils ne sont pas disponibles sur cette machine.
à cet effet, j'ai ouvert visual basic et lancer le débogeur qui pointe sur cette ligne :
Private Sub UserForm_Initialize()
DTPicker1.Value = Date
DTPicker2.Value = Date
With Sheets("Data")
ComboBox4.List = .Range("D2😀" & .Range("D65536").End(xlUp).Row).Value
ComboBox3.List = .Range("C2:C" & .Range("C65536").End(xlUp).Row).Value
ComboBox2.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
ComboBox1.List = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value
End With
End Sub
or sur excel 2007 tout fonctionne mais sur le 2003 à priori un souci
merci de m'indiquer les consignes à suivre
quand j'ouvre mon fichier excel j'ai l'erreur :
impossible de charger les objets car ils ne sont pas disponibles sur cette machine.
à cet effet, j'ai ouvert visual basic et lancer le débogeur qui pointe sur cette ligne :
Private Sub UserForm_Initialize()
DTPicker1.Value = Date
DTPicker2.Value = Date
With Sheets("Data")
ComboBox4.List = .Range("D2😀" & .Range("D65536").End(xlUp).Row).Value
ComboBox3.List = .Range("C2:C" & .Range("C65536").End(xlUp).Row).Value
ComboBox2.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
ComboBox1.List = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value
End With
End Sub
or sur excel 2007 tout fonctionne mais sur le 2003 à priori un souci
merci de m'indiquer les consignes à suivre
Dernière édition: