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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
MrAmaury712
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 14 novembre 2018
Version d'Excel : 2016

Message par MrAmaury712 » 10 décembre 2018, 10:31

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.
  • Sujets similaires
    Réponses
    Vues
    Dernier message