Discussion :

[DamKre]

Bonjour.

Pour exporter les données de mes tables, j'utilise

Code :

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

DoCmd.transferspreadsheet acexport, actransferspreadsheetTypeExcel9, "NOM DE MA TABLE", [FILENAME], True

Je souhaite qu'à l'argument [FILENAME], je puisse choisir le répertoire de destination.

Dans la FAQ, j'ai vu que ce serait possible : l'article est celui-ci.

1) Comment dois-je utiliser ces codes ?
2) Dois-je les mettre dans un formulaire dans lequel, en cliquant sur un bouton je peux exporter mes données, ou dans un module d'export ?

Merci de vos réponses.

[Invité]

Bonjour

Comme indiqué sur la FAQ

1 - Mettre les deux premiéres parties dans un module indépendant
2 - Sur ton formulaire tu crées un bouton, sur le click de ce bouton tu mets.

Code :

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

1
2
3
4
 
dim strFolder as String
strFolder = SelectFolder("Sélectionnez un répertoire :", Me.hWnd)
MsgBox strFolder

Aprés la sélection tu devrais avoir le répertoire dans strFolder (le msgbox est juste là pour tester, tu pourras l'enlever).

Starec

[DamKre]

Et ensuite, toujours danhs les opérations sur le bouton, je peux mettre la suite de mon code d'import ?

En tout cas, déjà merci de ta réponse !

[Invité]

Tu as plusieurs possiblités, voici comment je procéde

1- Je déclare ne fait mon strFolder en Public (entête de module)
2-J'affiche le résultat de la sélection du fichier dans une textbox (cela permet de visualiser que l'on a bien sélectionné le bon fichier).
3 - J'ai un autre bouton pour lancer la procédure.

Starec

[DamKre]

OK, merci. Je vais essayer et je te dirai quoi...

[DamKre]

Tout va bien. L'export se passe sans problème.

Merci du coup de main