Discussion :

[SamLeChiseuji]

Bonjour,

A partir d'une application Access, j'ai besoin d'exporter des données de ma base Access vers un fichier Excel.
Pour celà, j'utilise l'automation.
Voici une partie de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    'Déclaration des variables
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Name = "Valeurs"
 
    'Exportation
 
    xlBook.SaveAs "D:\Valeurs.xls"
    xlApp.Quit

Jusque là, aucun soucis, mon fichier Excel est bien créé comme il faut, tout est impeccable.

Mais maintenant, à la fin de mon traitement, plutôt que d'enregistrer mon fichier Excel, j'aimerais plutôt l'afficher uniquement. Ensuite, libre à l'utilisateur de l'enregistrer ou bien de l'imprimer, ou bien tout simplement de quitter Excel sans l'enregistrer ni l'imprimer, simplement après l'avoir regardé.

Bien sûr, j'ai effectué quelques recherches sur la FAQ et dans les forums, mais je n'ai rien trouvé !

Je ne savais pas trop si je devais poster ce sujet dans la partie Access ou dans la partie Excel, j'ai longuement hésité avant de poster dans la partie Access, j'éspère que je ne me trompe pas !

Merci d'avance à ceux qui pourront m'aider.
Cordialement,
Devil-Atomic666.

[Invité]

Bonjour

Peut-être avec

Code :

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

xlApp.Visible = True

Starec

[SamLeChiseuji]

Je l'avais mis au début quand j'ai commencé à exporter mes données, puis je l'ai enlevé pour une raison totallement mystérieuse, et je l'ai complètemet effacé de ma mémoire !
Je suis un !

Starec


Hors-Sujet : Ceci est mon 100ème message ! Et pas un seul message de flood !!!