Elephanfaron
XLDnaute Nouveau
Bonjour XLD,
Je suis en train d'ecrire une macro qui va chercher des donnees dans des fichiers Excel. Ces fichiers se trouvent sur un Sharepoint (accessible via une URL). J'arrive a acceder a un fichier si je donne a VBA directement son chemin:
Je souhaite cependant lire seulement lire certains fichiers, et je fais donc une recherche dans le Sharepoint des fichiers qui m'interessent. La ca ne marche plus, il semble que le fait de mettre une URL dans le champ "lookin" de Filesearch ne fonctionne pas... Voila donc ma question: Existe-t-il quand meme une solution, pour faire une recherche au sein de mon sharepoint ? Un petit apercu du code:
Et la msg box me sort 0, alors que je sais que le fichier se trouve dans le repertoire...
Merci d'avance pour votre aide !
Je suis en train d'ecrire une macro qui va chercher des donnees dans des fichiers Excel. Ces fichiers se trouvent sur un Sharepoint (accessible via une URL). J'arrive a acceder a un fichier si je donne a VBA directement son chemin:
Code:
Set oXL = CreateObject("Excel.application")
cheminFichier="https.//****.****.com/***/***/monFichier.xls"
Set monClasseur = oXL.Workbooks.Open(cheminFichier))
'reste du code
Je souhaite cependant lire seulement lire certains fichiers, et je fais donc une recherche dans le Sharepoint des fichiers qui m'interessent. La ca ne marche plus, il semble que le fait de mettre une URL dans le champ "lookin" de Filesearch ne fonctionne pas... Voila donc ma question: Existe-t-il quand meme une solution, pour faire une recherche au sein de mon sharepoint ? Un petit apercu du code:
Code:
Dim oFS As Office.FileSearch
Set oFS = Application.FileSearch
With oFS
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.fileName = "Cockpit.xls"
.LookIn = "https://***.***.com/****/***/***/***"
.SearchSubFolders = True
.Execute
MsgBox .FoundFiles.Count
End with
Et la msg box me sort 0, alors que je sais que le fichier se trouve dans le repertoire...
Merci d'avance pour votre aide !