Discussion :

[fredschmidt]

Bonjour,
je ne sais pas si je poste au bon endroit.
Je fais actuellement une base de donnée sous Access, avec plusieurs formulaires...
A partir de là, j'extraie mes données Access sous Excel (en automation) et je lance un algo sous Excel qui me tri tout ça.
Après ce tri, j'aimerai enregistrer mon rapport Excel (tout ça à partir d'access en automation).

J'utilise donc la commande suivante:

Code :

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

xlBook.SaveAs "C:\Temp\Feuille1.xls"

qui m'enregistre mon .xls dans le dossier indiqué.

Mais j'aimerai pouvoir parcourir mon disque dur pour choisir ou enregistrer mon fichier et choisir le nom de ce fichier quand je l'enregistre, comme quand je fais "enregistrer sous" avec Excel.

Est-ce possible?

Si oui comment?

Merci

[jfontaine]

Bonjour,

Pas sur que cela fonctionne correctement depuis access, mais c'est a essayer

Application étant ta variable application excel

Code :

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

1
2
 
Application.SaveWorkspace

Bon courage

[cafeine]

Hello,

tu dois afficher une boite de dialogue "Enregistrer sous" pour récupérer le chemin d'enregistrement (code dispo dans les FAQ) puis envoyer la valeur à l'instance Excel que tu pilotes via VBA.

schématiquement

Code :

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

1
2
3
4
5
varFichier = FonctionEnregistrerUnFichier(....)
if VarFichier & "" <> ""
   xlBook.SaveAs VarFichier
   ' ou appExcel.Workbooks(NomDuClasseur).SaveAs VarFichier
End if