Le contrôle n'est pas correctement licencié!!
ZarzisFatma
Messages postés
5
Statut
Membre
-
thev Messages postés 2011 Date d'inscription Statut Membre Dernière intervention -
thev Messages postés 2011 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je travaille sur Excel VBA, j' ai réussi d'ajouter DataGrid dans le boite à outils mais j'ai pas arrivé de créer ce DataGrid dans une interface. Un message d'erreur qui s'affiche lors de la création de contrôle DataGrid " Le contrôle n'a pas été créé parce qu'il n'est pas correctement licencié".
SVP, comment je dois faire pour résoudre ce problème.
Merci d'avance,
Je travaille sur Excel VBA, j' ai réussi d'ajouter DataGrid dans le boite à outils mais j'ai pas arrivé de créer ce DataGrid dans une interface. Un message d'erreur qui s'affiche lors de la création de contrôle DataGrid " Le contrôle n'a pas été créé parce qu'il n'est pas correctement licencié".
SVP, comment je dois faire pour résoudre ce problème.
Merci d'avance,
4 réponses
-
Bonjour,
voir ceci:
https://excel.developpez.com/faq/?page=Controle#DataGrid
et cela
https://originaldll.com/file/msdatgrd.ocx/7699.html
-
-
-
j'ai essayé mais sans succès!!!
Échec du chargement du module < msdatgrid.ocx>
Vérifiez que le fichier binaire est stocké à l'emplacement désigné par le chemin d’accès spécifié ou déboguez-le pour rechercher d'éventuels problèmes de fichiers .DLL binaires ou dépendants.
Le module spécifié est introuvable. !!! -
On va le faire par code, tu vas chercher l'emplacement de ton OCX et l'enregistrement se fera automatiquement.
Dim chemin As String 'On cherche le chemin du fichier On Error Resume Next Application.FileDialog(msoFileDialogOpen).Show chemin = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1) Shell ("regsvr32 " & chemin) 'enregistrer ' Shell ("regsvr32 /u " & chemin)'desenregistrer
Ensuite dans l'éditeur tu iras dans références et tu cocheras ton OCX
@+
-
-
un autre message d'erreur !!!
Le module c:/windows/syswow64/msdatgrid.ocx a été chargé, mais l'appel à DllRegisterServer a échoué avec le code d'erreur 0x80004005.-
Tu n'est pas le seul dans ce cas, voir ici si tu peux trouver une solution
https://codes-sources.commentcamarche.net/forum/affich-1617081-je-n-arrive-pas-a-enregistrer-les-ocx-et-dll-sur-windows-7-pour-visual-basic-6
@+
-
-
Bonjour,
A mon avis, ce type de contrôle ne peut pas fonctionner sous Excel VBA . Le mieux est de t'orienter vers une ListBox voire une ListView si tu es sous Excel 32 bits.-
Bonjour Thev ,
Merci pour votre réponse, j'ai déjà essayée de travailler avec une ListBox qui permet d'afficher les données enregistrer dans le base de données ACCESS. Le problème que j'ai n'ai pas arrivée de créer les titres de mes colonnes et je n'ai pas réussi de crée plus que 8 colonnes!! j'ai c'est pas quoi le problème exactement voila mon code:
<Dim db As Database
Dim rs As Recordset
Set db = DBEngine.OpenDatabase("C:\Users\Z636237\Desktop\Maintenance1.mdb")
Set rs = db.OpenRecordset("Select Code_a_barre, Emplacement, Plateau, Position, Affectation, Axalant, Designation, Fournisseur, Quantite, Stock_mini, Date_Heure, Situation From Articles")
rs.MoveFirst
i = 0
With Me.ListBox1
.ColumnHeads = True
.ColumnWidths = "100;100;50;50;100;70;200;100;50;50;70;100"
.ListIndex = -1
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
.ColumnCount = 12
Do
.AddItem
.List(i, 0) = rs![Code_a_barre]
.List(i, 1) = rs![Emplacement]
.List(i, 2) = rs![Plateau]
.List(i, 3) = rs![Position]
.List(i, 4) = rs![Affectation]
.List(i, 5) = rs![Axalant]
.List(i, 6) = rs![Designation]
.List(i, 7) = rs![Fournisseur]
.List(i, 8) = rs![Quantite]
.List(i, 9) = rs![Stock_mini]
.List(i, 10) = rs![Date_Heure]
.List(i, 11) = rs![Situation]
i = i + 1
rs.MoveNext
Loop Until rs.EOF
End With
rs.Close
>
Merci d'avance
-
-
Bonjour,
Le titrage des colonnes ne fonctionne qu'avec l'utilisation de la propriété "RowSource". Si la ListBox est chargée à l'exécution, il faut alors créer un contrôle de type label pour afficher les titres au-dessus de la ListBox.
