Discussion :

[polo68]

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 !

[Invité]

Bonjour

Tu mélanges 2 choses :

Le pilotage d'Excel :

Code :

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

1
2
3
4
5
6
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")

et une instruction interne à Access :

Code :

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

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

Dans ce dernier cas wbExcel doit-être le chemin et le nom du fichier.

Je t'invite à lire ce tuto pour voir les différentes méthodes de communications entre Access et Excel : http://cafeine.developpez.com/access/tutoriel/excel/

Même si celui-ci parle principalement du chemin Access --> Excel.

Philippe