Discussion :

[Drami]

Bonjour,

J'ai cherché partout la solution à mon erreur mais je n'ai pas trouvé et j'ai tout essayé.
Je tente de me connecter d'un fichier Excel 2013 à un autre fichier Excel 2013 avec la connexion ADODB, seulement je n'y arrive pas même en ayant pris exemple sur d'autre post.
Je voudrais bien quelque explication afin de plus faire d'erreur si possible et si vous avez une solution ça m'aiderais beaucoup aussi.

Ma fonction doit récupérer la fonction d'un utilisateur grâce à son ID de session envoyé en paramètre.

Mon code ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub RecupService(login As String)
 
    Dim cn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim chemin As String
    Dim texte_SQL As String
    Dim Fichier As String
 
    Fichier = "BaseAnomalies_v2.0.xlsx"
    chemin = "C:\WINDOWS\Temp\BaseAnomalies_v2.0.xlsx"
    Set cn = New ADODB.Connection
 
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & ";Extended Properties=Excel 12.0;"
        .Open
    End With
 
    texte_SQL = "SELECT * FROM [Utilisateurs$]"
 
    Set rst = New ADODB.Recordset
    Set rst = cn.Execute(texte_SQL)
 
    Sheets(7).Activate
    Range("C2").CopyFromRecordset rst
 
    cn.Close
    Set cn = Nothing
 
End Sub

Merci

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
.ConnectionString = "Data Source=" & chemin & ";Extended Properties=Excel 12.0;"
 
rst.open texte_SQL,cn

[Drami]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
.ConnectionString = "Data Source=" & chemin & ";Extended Properties=Excel 12.0;"
 
rst.open texte_SQL,cn

Merci mais erreur persiste, j’avais oublié de dire elle arrive lors de l'ouverture de ma connexion à la base de données.

[Invité]

regarde ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Cnx As Object
Public Const Feuille = "BASE_DE_DONNEES$"
Public Const Fichier = "C:\Users\Robert\Desktop\Fichier_Arrivé.xlsx"
Sub OpenConnexion(Fichier)
    Set Cnx = CreateObject("ADODB.Connection")
    With Cnx
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
End Sub

[Drami]

Merci beaucoup, pour la connexion c'est bon ça marche maintenant ça bloque sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
rst.Open texte_SQL, cn

Voilà où je l'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim rst As ADODB.Recordset
texte_SQL = "SELECT * FROM [Utilisateurs$]"
Set rst = New ADODB.Recordset
rst.Open texte_SQL, cn

[Invité]

Tes colonnes dans ta table utilisateurs commance bien en ligne A1?

[Drami]

Tes colonnes dans ta table utilisateurs commance bien en ligne A1?

En A1 j'ai le nom du champs je doit le mettre pour renommer la colonne entière c'est ça ?

[Invité]

Si ton tableau ne commance pas en A1 il faut donner la plage dans ta requête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
from [utilisateur$!a5:z150]

[Drami]

J'ai changé ma table Utilisateurs afin qu'elle commence en A1 et l'erreur est toujours là je ne sais pas pourquoi.
j'ai essayer de crée le record set de la même manière que la connexion mais ça ne change pas.

[Invité]

Bonjour,
tu es sur qu'il n'y a pas d'espace dans le nom ta feuille?
[Utilisateurs $]

[Drami]

Effectivement je viens de voir qu'il y avais un espace devant le nom de la feuille sur le fichier. Cela marche parfaitement merci j'aurais une dernière question si je ne veux récupérer qu'une seule colonne comment je doit l'appeler dans ma requête ?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

texte_SQL = "SELECT  [Toto],[Bibi] FROM [Utilisateurs$] where [titi]='Bof';"

[Drami]

Je passe mon sujet en résolu car ce problème n’apparaît plus, mais je n'arrive pas à récupérer une seule colonne.
Entre les [] il faut juste mettre le nom de la range, ou colonne, de la recherche ?

[Invité]

l'entête de la colonne ligne 1 [A1]=Toto; [B1]=Bibi;[C1]=Titi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

texte_SQL = "SELECT  [Toto],[Bibi] FROM [Utilisateurs$] where [titi]='Bof';"

[Drami]

C'est bon j'ai compris et réussi à le faire merci beaucoup ça marche comme il faut maintenant!

Voici mon code pour ceux qui passe par là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Public login As String
Public Connexion As Object
Public Const Fichier = "C:\WINDOWS\Temp\BaseAnomalies_v2.0.xlsx"
Public Const users = "Utilisateurs$"
 
Sub OpenConnexion(Fichier)
    Set Connexion = CreateObject("ADODB.Connection")
    With Connexion
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
End Sub
 
Sub RecupService(login As String)
 
    Dim rst As Object
    Dim texte_SQL As String
 
    Set rst = CreateObject("ADODB.Recordset")
    OpenConnexion (Fichier)
 
    texte_SQL = "SELECT [Service] FROM [" & users & "] WHERE [Login] = '" & login & "';"
 
    rst.Open texte_SQL, Connexion
 
    Sheets(7).Activate
    Range("C2").CopyFromRecordset rst
 
    Connexion.Close
    Set Connexion = Nothing
 
End Sub