Discussion :

[fanny35000]

Bonjour à tous,

J'ai créé une petite application en VBA sous Excel 2010 pour traiter des demandes. Tout fonctionne bien quand le fichier Excel se trouve sur mon disque dur.
Par contre, je l'ai déposé sur notre GED Sharepoint et là ça dysfonctionne complètement.

Petite explication, j'exécute une requête SQL et je récupère les infos que je mets dans une feuille "Resultats". J'ai créé une plage nommée "SELECTION" qui correspond au contenu de la feuille "Resultats". Ensuite, je fais une requête pour rechercher un matricule dans cette "SELECTION".

Voici le code qui fonctionne sur mon poste (hors GED) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Application.ScreenUpdating = False
Dim rs As ADODB.Recordset
Set Cnx = New ADODB.Connection
req = "select * from SELECTION where id = '" + Matricule+ "'"
With Cnx
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=YES;"""
End With
Cnx.Open
If Cnx.State = adStateOpen Then
            Set rs = Cnx.Execute(req)
End If

Voici le code que j'ai modifié une fois le fichier sur la GED :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Application.ScreenUpdating = False
Dim rs As ADODB.Recordset
Set Cnx = New ADODB.Connection
req = "select * from SELECTION where id = '" + Matricule+ "'"
With Cnx
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=2;RetrieveIds=Yes;DATABASE=\\cheminGED\Fichier.xlsm;LIST={8C989D07-6C93-4443-A076-C82F49212595};Extended Properties=""Excel 12.0;HDR=YES;"""
End With
Cnx.Open
If Cnx.State = adStateOpen Then
            Set rs = Cnx.Execute(req)
End If

La connexion se passe bien mais j'ai une erreur sur

Code :

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

Set rs = Cnx.Execute(req)

Quelqu'un aurait-il une idée sur le sujet ? Car là après deux jours de recherche, je commence à désespérer ...

Merci d'avance de votre aide.

[joe.levrai]

Bonjour,

es-tu sûr du chemin d'accès dans SharePoint ?

Code :

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

\\cheminGED\Fichier.xlsm

quand je manipule des fichiers qui sont sur SharePoint, j'ai une addresse en http://
pour récupérer facilement le chemin, je fais parfois un clic droit et je regarde le chemin dans les propriétés (je fais un vulgaire copier coller)

[fanny35000]

J'ai fais des essais avec le chemin http:// et la connexion ne fonctionnait pas donc j'ai modifié le chemin en \\chemin... comme ce que l'on utilise quand on créer un lecteur réseau pour y accéder. Et là la connexion passe correctement.

[joe.levrai]

essaye dans ta requête d'encadrer ta plage nommée

Code :

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

req = "select * from [SELECTION] where id = '" + Matricule+ "'"

[fanny35000]

J'ai toujours la même erreur ...
J'ai déjà essayé :
[SELECTION]
[SELECTION $]
[SELECTION$]
`SELECTION`
`SELECTION $`
`SELECTION$`

Par contre en mettant

Code :

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

req = "select * from Resultats!$A:$AL where id = '" + Matricule+ "'"

Je n'ai plus la même erreur :

[Invité]

Bonjour,
hormis ce que t'a dit Joe!

Code :

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

1
2
 req = "select * from [Resultats$!SELECTION] where id = '" + Matricule+ "'"
rs.open  req, Cnx

[fanny35000]

Bonjour,

merci de ton aide mais cela ne fonctionne pas non plus ...

avec [Resultats$!SELECTION] j'ai toujours le message d'erreur concernant le moteur de base de données ...

et avec Resultats$!SELECTION j'ai le message La méthode 'Open' de l'objet '_Recordset' a échoué