Commande Access vers Excel

Version imprimable

Bonjour à tous,

j'ai un petit problème dans une application que j'ai développez.
j'ai besoin d’exécuter une commande export de données vers un fichier excel qui devra être protégé (fichier dans le disque E:\xxxx\xxxx.
Quelqu'un peut il m'aider sur les commandes à ajouter au code Suivant.

d'avance merci.

Bruno
Code:

1 2 3 4 DoCmd.OpenQuery "Parcours intermediare Nbre de pts_simuleq2", acViewNormal, acEdit DoCmd.OpenQuery "Parcours Expert Nbre de pts simuleq2", acViewNormal, acEdit DoCmd.OpenQuery "Parcours simul Eq2 Nbre de pts", acViewNormal, acEdit DoCmd.TransferSpreadsheet acExport, 8, "Autonomie equipe 2 simul", "E:\xxxxxxx\xxxxxxxxx", True, ""

Ajouter dans un module une routine de ce genre

Code:

1
2
3
4
5
6
7
8
9
10
Public Sub Proteger(CheminFichier As String)
    Dim appExcel As Excel.Application, wkb As Excel.Workbook
    Set appExcel = New Excel.Application
    Set wkb = appExcel.Workbooks.Open(CheminFichier)  '--- chemin et nom complet du fichier
    wkb.Password = "MonMotDePasse"
    wkb.Save
    wkb.Close
    appExcel.Quit
    Set appExcel = Nothing
End Sub

et ensuite, après DoCmd.TransferSpreadsheet ajouter cette instruction

Code:

Proteger "E:\xxxxxxx\xxxxxxxxx.xls"

Bonne continuation.

23/04/2016, 08h47
Bruno59170

Commande Vba

Çà marche

merci beaucoup pour votre aide

Bruno59170