Discussion :

[piflechien73]

Bonjour,

j'utilise un code destiné à exporter une table Access vers Excel :

Code :

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

1
2
3
4
5
6
7
8
 
Sub EXPORT_CREA()
 
'MsgBox Application.Version
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, "TABLE_ACCESS", "C:\Users\moi\le_dossier", False, "ONE"
 
End Sub

Au lieu d'avoir à définir le chemin précis "C:\Users\moi\le_dossier" dans ce code, je souhaiterais fonctionner en "relatif" et demander seulement à la macro d'exporter la table dans le même dossier que la base de donnée ACCESS.


Bref, avoir un code du genre :

Code :

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

1
2
3
4
5
6
7
8
Sub EXPORT_CREA()

'MsgBox Application.Version

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, "TABLE_ACCESS", DOSSIER COURANT, False, "ONE"

End Sub

Quelqu'un saurait m'aider pour définir la notion de dossier courant dans ce code?


Merci par avance.

[nico84]

Bonjour,
Voici 2 possibilités :

Code :

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

1
2
3
4
5
6
'répertoire de l'application :
Application.CurrentProject.Path 
'répertoire d'une table liée :
s = CurrentDb.TableDefs("UneTable").connect
s = Mid(s, InStr(1, s, "BASE=") + 5, 99)
s = Left(s, InStrRev(s, "\"))

[piflechien73]

Merci beaucoup!

Simple et efficace