Discussion :

[patrick754]

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 :

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

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
share.xlsm

Merci d'avance

[patrick754]

Besoin d'aide

[Doatyn]

Une fois connecté, essaye ça \\sharepoint.com@SSL\:s:\n\ avec l'explorateur Windows. Peut-être que ça va marcher ?