XL 2010 Excel connexion à un fichier SharePoint

As226

XLDnaute Nouveau
Bonjour
Je viens demander votre aide sur un projet.
J'ai essayé mais je n'y arrive pas et je demande votre aide.

J'ai 2 fichiers Excel, le fichier 1 stocké en local sur mon DD et le fichier 2 sur SharePoint.
Le fichier 1 est destiné à recevoir les données provenant du fichier 2 sur SharePoint
Le fichier 2 contient des onglets sur lesquels se trouvent des tableaux structuré avec des données.

Ce que je souhaite faire :
- A partir du fichier 1 (en local) me connecter au fichier 2 (SharePoint)
- Sélectionner les données de l'onglet "liste1" du fichier 2 en utilisant une commande sql
- Copier les données sélectionnées dans le fichier 1 (local)

Info
- L'accès au sharepoint est conditionnés par un identifiant et un mot de passe
- L'adresse du fichier ouvert dans sharepoint : "https://sharepoint.com/:s:/n/Files.aspx?filesrc=56236464785&file=Fichier20test.xls%4hgR"
- Le nom du fichier : Fichier test.xls

Ci dessous le code que j'ai pu trouvé
VB:
Private Sub CommandButton1_Click()
Dim rs As ADODB.Recordset
Set Cnx = New ADODB.Connection
req = "select * from liste1"
 
file = "https://sharepoint.com/:s:/n/Files.aspx?filesrc=%356236464785&file=Fichier20test.xls%4hgR"
 
 
file = "https://sharepoint.com/:s:/n/Files.aspx?filesrc=%356236464785&file=Fichier20test.xls%4hgR"
file = Replace(Replace(Replace(file, "/", "\"), " ", "%20"), "http:", "")
 
With Cnx
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=2;RetrieveIds=Yes;DATABASE=file;Extended Properties=""Excel 12.0;HDR=YES;"""
End With
Cnx.Open
If Cnx.State = adStateOpen Then
    Set rs = Cnx.Execute(req)
End If
End Sub

Je joint une ébauche


Merci d'avance
 

Pièces jointes

  • share.xlsm
    21.8 KB · Affichages: 20

Discussions similaires