1 pièce(s) jointe(s)
Excel connexion à un fichier SharePoint
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.a...0test.xls%4hgR
- Le nom du fichier : Fichier test.xls
Ci dessous le code que j'ai pu trouvé
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| 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
Pièce jointe 592133
Merci d'avance
