Bonjour à vous.
Je me tourne une nouvelle fois vers vous car je galère à importer des données d'un fichier stocké en ligne sur un Sharepoint.
J'ai besoin pour ce faire de copier les valeurs de la cellule E2 à la cellule E160 et de les coller en cellule Q7 dans un fichier excel sauvegardé sur un disque dur.
De même pour les valeurs de la cellule G2 à G160 et des les coller en cellule K7.
J'arrive à faire ça si le fichier source est ouvert par excel mais impossible si je l'ouvre dans Sharepoint via mon navigateur.
Je compte donc sur vous pour me venir en aide.
Le chemin d'accès du fichier source en ligne est:
ttps:**afkl-my.sharepoint.com*:x:*g*personal*********_airfrance_fr*ESIXUpe_adFJmedP0y_Qr0EB3g5ZrWk4H9gplgU2KKH7ZA?email=*******%40airfrance.fr&e=4%3AqyuQ8U&at=9
Son nom:
Gestion appro camion Ludo.xlsx
Mon code actuel:
Sub Recuperation()
Workbooks("Gestion appro camion Ludo.xlsx").Sheets("Inventaire").Range("E2:E160").Copy
Workbooks("Moulinette Ludo.xlsm").Worksheets("Ordered").Range("Q7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll down:=-30
Workbooks("Gestion appro camion Ludo.xlsx").Sheets("Inventaire").Range("G2:G160").Copy
Workbooks("Moulinette Ludo.xlsm").Worksheets("Ordered").Range("K7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll down:=-30
Range("Q7").Select
End Sub
Merci par avance.