[AC-2003] Mode d'ouverture d'un fichier Excel [Résolu]

[ChChatou]

Bonjour,

Dans une macro de ma base Access, j'exporte des données vers Excel afin de les mettre à disposition d'un certain nombre d'utilisateurs sur un disque partagé. Tout cela fonctionne bien.
Comme le fichier Excel est parfois modifié de manière intempestive, je compte mettre ce fichier en lecture seule pour les utilisateurs.
Mon problème est alors de programmer dans ma macro l'ouverture du fichier Excell en lecture/écriture lors des mises à jour.

Voilà à quoi ça ressemble

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Export_PP_TDM(CheminFic As String)
 
    Dim xlApp As Excel.Application                    'necessaire pour lancer Excel
    Dim lngXLHwnd As Long                             'handle de l'application
    Dim xlBook As Object                                'nécessaire pour un nouveau cahier de travail
    Dim xlSheet1 As Object                              'requise pour travailler avec la feuille 1
 
    Set xlApp = New Excel.Application
    lngXLHwnd = xlApp.hWnd                            ' handle
 
With xlApp                                                          'travail dans Excel
 
        .Visible = False
 
Set xlBook = xlApp.Workbooks.Open(CheminFic)
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="TOTO"
With xlBook

Sauf que cela ne marche pas, je ne trouve pas comment lui indiquer, à l'ouverture, que je veux ouvrir le ficher en mode read/write et lui indiquer le mot de passe correspondant.

Après une recherche infructueuse dans la FAQ et dans les questions du forum, je vous demande de l'aide.
D'avance merci

[loufab]

Bonjour,
Tu as cherché dans la FAQ Excel ?
Parceque c'est là qu'il faut chercher.

http://excel.developpez.com/faq/inde...sseur#BookOpen

Cordialement,

[pgz]

Bonjour. Et salut Loufab!

Je crois que si le classeur est protégé contre les écritures, c'est sur l'instruction Open qu'il faut choisir le mode RW en lui fournissant le mot de passe correpondant, soit le WriteResPassword.

Du genre :

Code :

Set xlBook = xlapp.Workbooks.Open(CheminFic, , False, , , "TOTO")

Cordialement,

PGZ

[ChChatou]

re-bonjour,

je viens d'essayer la syntaxe de PGZ et ça marche très bien, le problème est résolu.
Je suis uniquement frustré de ne pas savoir où chercher pour rentrer dans ce type de détails car l'aide contextuelle de VisualBasic n'indique rien... de ces différents paramètres à séparer par des virgules.

Merci à vous