Bonjour,
Je suis toujours dans le compliquer mais la c'est pour une entreprise dans laquelle je travaille.
Voila j'ai créer un UserForm que voici :
Private Sub CommandButton1_Click()
Dim Cn As ADODB.Connection
Dim Fichier As String
Dim NomFeuille As String, texte_SQL As String
Dim Rst As ADODB.Recordset
'Définit le classeur fermé servant de base de données
Fichier = "C:\Users\a-defossma\Desktop\Info NID\Suivi des pertes gélifié.xlsx"
'Nom de la feuille dans le classeur fermé
NomFeuille = "Production"
Set Cn = New ADODB.Connection
'--- Connexion ---
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Fichier & _
";Extended Properties=Excel 8.0;"
.Open
End With
Sheets("Production").Activate
Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox1.Value
Range("B" & Range("B" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox1.Value
Range("C" & Range("C" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox2.Value
Range("D" & Range("D" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox4.Value
Range("E" & Range("E" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox5.Value
'--- Fermeture connexion ---
Cn.Close
Set Cn = Nothing
End Sub
Quand je clique sur le bouton 1 j'ai cette erreur qui s'affiche "Erreur d'exécution '-2147467259 (80004005)': La table externe n'est pas dan"
Et j'ai bien cocher les référence qu'il fallait (Celle que le cite me donner avec ceux code).
Ma question est la suivante qu'est qu'il manque ou qui est faux ?
Merci d'avance.
ps:Je ne peut pas vous donner les fichier vue qu'il comporte des donner priver.