macro ouverture distant

[limagerit]

Bonjour a tous,
je voudrais completer mon bout de code ci dessous et j'en appel a votre talent.


Sub maj()
'
'
ChDir "N:\Suivi toto"
Workbooks.Open Filename:="N:\Suivi 1\suivi toto.xls"
ActiveWindow.Close

End Sub


Point 1 : le fichier source est ouvrable via un mot de passe mais je ne souhaite l'ouvir seulement en lecture seul.
ce qui est le cas lorsqu'un utilisateur est déjà sur le fichier souce
mais pas le cas lorsque le fichier n'est pas utilisé
Comment donc supprimer la boite de dialogue à l'ouverture et le forcer en lecture seul.

Point 2 Le fichier source s'ouvre puis apparait la boite d'enregistrement du fichier source.
je souhaite que cette boite de dialogue n'apparaissent pas ou que la réponse soit toujours non


Merci de vos bons conseils

 

[camarchepas]

Re : macro ouverture distant

Voici le plus simple :
la commande msgbox sera à remplacer par ton traitement d'infos.
Je ne vois pas trop pourquoi tu sélectionnes le répertoire avant d'ouvrir le fichier
puisqu'il faut à nouveau préciser celui-ci dans la commande d'ouverture fichier ?

Option Explicit
Sub maj()
'
'
ChDir "N:\Suivi toto"
Workbooks.Open Filename:="N:\Suivi 1\suivi toto.xls", ReadOnly:=True
'Ici, je pense opération de contrôle ou de copie des infos
MsgBox "" ' simule le temps de traitement
ActiveWindow.Close False
End Sub

J'espère répondre à tes attentes.