Erreur d'exécution '-2147467259 (80004005)': La table externe n'est pas dan

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.

même erreur ce jour

Rechercher des sujets similaires à "erreur execution 2147467259 80004005 table externe pas dan"