Discussion :

[Bruno59170]

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 :

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

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, ""

[EricDgn]

Ajouter dans un module une routine de ce genre

Code :

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

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 :

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

Proteger "E:\xxxxxxx\xxxxxxxxx.xls"

Bonne continuation.

[Bruno59170]

Çà marche

merci beaucoup pour votre aide

Bruno59170