Bonjour à tous,

J'ai retourné internet mais je reste bredouille :-/

Après avoir réussi à ouvrir un fichier excel provenant de google drive avec access, j'aimerais importer les données qu'il comprend dans une table.
J'ai utilisé transfertspreedsheet mais ca ne fonctionne pas.
J'espère que c'est assez claire.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub import_drive()

Dim appexcel As Object
Dim wbexcel As Workbook

Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open("https://drive.google.com/uc?export=download&id=LIEN_DRIVE")

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "table_destination", wbexcel, True

...

End Sub
J'ai tout essayé avec wbexcel : .name, .path, concatener des deux, ...

Bref je n'ai plus de solutions :-(

Merci d'avance pour vos solutions !