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é
Je joint une ébauche
Merci d'avance
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