V
valou0202
Guest
Bonjour à tous,
Je viens d'avoir un ordi portable j'ai donc installé le pack office 2013, jusque là tous va bien. J'ai créer un petit programme pour la gestion des stocks et du coup je ne peux pas travailler sur mon fichier de l'ordi portable. J'ai cherché sur internet j'ai télécharger le fichier ocx. et j'ai réussi à l'installer pb persiste encore.
A l'ouverture du fichier:
"impossible de charger le objet car il n'est pas disponible sur cette machine" et clique sur ok
et erreur de compilation:
"projet ou bibliothèque introuvable"
et voici ce qui me met:
Private Sub UserForm_Initialize() (fond jaune)
myu.debqz.Clear
myu.finqz.Clear
For k = 8 To Feuil1.[F1].End(xlToRight).Column Step 2 (fond bleu)
myu.debqz.AddItem Feuil1.Cells(1, k)
myu.finqz.AddItem Feuil1.Cells(1, k)
Next
myu.debqz.Value = Feuil1.Cells(1, 8)
myu.finqz.Value = Feuil1.[F1].End(xlToRight).Value
End Sub
J'ai compris qu'il ne comprend pas le K, mais sur mon autre pc cela fonctionne très bien donc je suis un peu perdu!!!
Bonne soirée.
Valou0202
Je viens d'avoir un ordi portable j'ai donc installé le pack office 2013, jusque là tous va bien. J'ai créer un petit programme pour la gestion des stocks et du coup je ne peux pas travailler sur mon fichier de l'ordi portable. J'ai cherché sur internet j'ai télécharger le fichier ocx. et j'ai réussi à l'installer pb persiste encore.
A l'ouverture du fichier:
"impossible de charger le objet car il n'est pas disponible sur cette machine" et clique sur ok
et erreur de compilation:
"projet ou bibliothèque introuvable"
et voici ce qui me met:
Private Sub UserForm_Initialize() (fond jaune)
myu.debqz.Clear
myu.finqz.Clear
For k = 8 To Feuil1.[F1].End(xlToRight).Column Step 2 (fond bleu)
myu.debqz.AddItem Feuil1.Cells(1, k)
myu.finqz.AddItem Feuil1.Cells(1, k)
Next
myu.debqz.Value = Feuil1.Cells(1, 8)
myu.finqz.Value = Feuil1.[F1].End(xlToRight).Value
End Sub
J'ai compris qu'il ne comprend pas le K, mais sur mon autre pc cela fonctionne très bien donc je suis un peu perdu!!!
Bonne soirée.
Valou0202