Exécuter une requête sur un fichier excel placé dans une GED sharepoint

Version imprimable

1 pièce(s) jointe(s)

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:

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:

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:

Set rs = Cnx.Execute(req)

Pièce jointe 175753

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.

23/04/2015, 09h48
joe.levrai

Bonjour,

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

Code:

\\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)
23/04/2015, 09h52
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.
23/04/2015, 09h57
joe.levrai

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

Code:

req = "select * from [SELECTION] where id = '" + Matricule+ "'"
23/04/2015, 10h07
fanny35000

1 pièce(s) jointe(s)

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

Par contre en mettant

Code:

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

Je n'ai plus la même erreur :

Pièce jointe 175755

Bonjour,
hormis ce que t'a dit Joe!

Code:

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

23/04/2015, 10h22
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é

jamais utiliser set rs = cnx.execute(req)!

Code:

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

23/04/2015, 10h29
fanny35000

Merci du conseil pour le cnx.execute ;)

Et j'avais déjà rajouté

Code:

set rs=new adodb.recorset

avant de tester ta proposition ... :(
23/04/2015, 11h59
Invité

peut tu placer un fichier Resultats en bidonnant les datas?
j'ai pas faits gaffe!

Citation:

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.

Problème de droits?
23/04/2015, 12h09
fanny35000

En effet c'est peut être un problème de droit mais dans ce cas la connexion devrait échouée aussi non ?
Dans la chaine de connexion je ne peux pas lui spécifier mon login et mon mot de passe ? pour tester si cela change quelque chose pour sharepoint...
23/04/2015, 12h12
Invité

Exact la connexion devrait échoué ��
23/04/2015, 14h05
fanny35000

Je pense que je suis vraiment dans une impasse là ... Je ne sais plus du tout par quel sens chercher ... C'est peut-être juste pas possible ce que j'essaie de faire ... :(

Bonjour,

J'ai contourné le problème ...

Au lieu d'exécuter une requête sur l'onglet j'utilise la fonction Find pour récupérer le numéro de la ligne qui m’intéresse et ensuite je l'utilise pour récupérer les infos.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim recherche As Variant Dim ligne As Integer Set recherche = Worksheets("Resultat").Range("IDF_AGENT").Cells.Find(matricule, lookat:=xlWhole) If recherche Is Nothing Then MsgBox "Pas d'informations trouvées !" Else ligne = Worksheets("Resultat").Range("IDF_AGENT").Cells.Find(matricule, lookat:=xlWhole).Row End If FormEnregistrement.LbMatricule = Range("IDF_AGENT").Cells(ligne, 1).Value
Merci beaucoup en tout cas de votre aide.