Erreur d'exécution 80010108
Bonjour a tous,
je créer une formulaire d'insertion des données du client(codeClt, NomClt, AdrClt, etc...) dans une base, quand j'exécute la formulaire directement se passe bien mais lors d'exécution a partir de la formulaire principal (Bouton Nouvelle Clt) qui passe a la formulaire d'insertion des données lors de validation il me donne la msg d'erreur suivant et sortir complètement d 'EXCEL
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.
et voici le code source
Private Sub cmdOK_Click()
Dim shclt As Worksheet
Set shclt = ThisWorkbook.Sheets("client")
Dim lastRow As Long
lastRow = Application.WorksheetFunction.CountA(shclt.Range("A:A"))
'l'insertion dans la base
shclt.Range("A" & lastRow + 1).Value = Me.txt_Codclt.Text
shclt.Range("B" & lastRow + 1).Value = Me.txt_Nomclt.Text
shclt.Range("C" & lastRow + 1).Value = Me.comb_Adrclt.Text
shclt.Range("D" & lastRow + 1).Value = Me.txt_Numclt.Text
'la retour a la userform principal
frm_QuinqVBA.txt_Codclt.Value = "CLT 0" & lastRow + 1
frm_QuinqVBA.Comb_Nomclt.Value = Me.txt_Nomclt.Text
frm_QuinqVBA.txt_Adrclt.Value = Me.comb_Adrclt.Text
frm_QuinqVBA.txt_Numclt.Value = Me.txt_Numclt.Text
Unload Me
MiseAjour
End SubBonjour
Y a-t-il un contrôle "Listview" dans un userforms? Avez-vous installé un correctif windows dernièrement? J'ai pu voir aussi dans des fils de discussion que cela pouvait venir d'une connexion trop lente. Avez-vous essayé le pas à pas?
oui, il y a un listview dans la userform principal et je n'est pas installé le correctif windows
Bonjour,
Fournir le classeur avec toutes les macros
La base de données avec un seul client.
A+