Recuperation données via VBA sur un fichier ONEDRIVE
Bonjour à tous ,
Je souhaiterai récupérer des données se trouvant sur un fichier ONEDRIVE que je partage avec mes collaborateurs.
La macro ci dessous fonctionne avec les fichiers n’étant pas sur le ONEDRIVE
D'avance merci de votre aide
----------------------------------------------------------------------------------------------------------------------------------
Sub extractiondonnee()
Dim i As Integer
Dim Chemin As String, NomFich As String
Dim classeur As Workbook
Dim cellule As Range
i = 0
Chemin = "C:\Users\*************"
NomFich = "*************************.xlsx"
Set classeur = GetObject(Chemin & NomFich)
For i = 1 To 1
Set cellule = classeur.Sheets("Analyse_activite").Range("a" & i)
Windows("*************.xlsm").Activate
Sheets("Analyse_activite").Select
Range("a" & i) = cellule.Value
Next i
Workbooks(NomFich).Close False
End Sub
------------------------------------------------------------------------------------------------------------------------------------------
D'avance merci de votre aide
Bonjour, pour les fichiers onedrive ce qui vous embête c'est que vous n'avez pas actuellement de Lettre de raccourci Réseau pour
votre chemin comme : Chemin = "C:\Users\*****....
Vous devez donc créer un raccourci réseau vers votre espace de stockage pour attribuer une lettre "Z" par exemple.
voir création du raccourci :
http://www.windows8facile.fr/connecter-onedrive-lecteur-reseau/
bonjour à tous
tout d'abord merci XMENPL pour ton message
malgré plusieurs tentatives impossible de me connecter
ci joint mon lien
*******-my.sharepoint****/:x:/g/personal/**************_fr/Ecmwg7******************_l_I_mRb_nPA?e=qv3wnt
D'avance merci de votre aide
Bonjour Mberaud, le fil
Normalement, avec Power Query on doit pouvoir le faire
@+
je viens de faire la méthode de Xmenpl et ca fonctionne !!!!!!
il faut mettre des autorisations au niveau d'internet explorer
