Ouvrir un fichier Lecture seule

%Bonjour,

Je cherche à ouvrir un fichier qui est 90% du temps pris par un de mes collègue.

Je voudrais via une macro, ne pas avoir à répondre "oui" ou "non" à l'ouverture en lecteur seule mais qu'il s'ouvre d'office en lecture seule.

Aussi et si possible, je voudrais passer la fenêtre suivante qui demande la mise à jour des liens (si possible en les mettant à jour)

Voici le morceau de code que j'ai actuellement qui ouvre bien le fichier (mais avec les fenêtres):

Sub OuvertureDeFichier()

On Error GoTo OuvertureFichierErreur
   Dim MonApplication As Object
   Dim MonFichier As String
   Set MonApplication = CreateObject("Shell.Application")

   MonFichier = "\\ficcol1.latelec.gl.local.\PHS\Ligne KITS & RECHANGES\Planning Kit Airbus PHS\Kit Airbus Prod.xls"
   MonApplication.Open (MonFichier)

   Set MonApplication = Nothing
Exit Sub

OuvertureFichierErreur:
   Set MonApplication = Nothing
    MsgBox "Erreur lors de l'ouverture de fichier..."
End Sub

D'avance merci pour votre aide

Bonjour,

Oui, tu as le paramètre "readonly" :

WorkBooks.Open MonFichier,,True

Daniel

Bonjour ok je vais tester mais je l'intègre où dans mon code ?

A la place de la ligne :

MonApplication.Open (MonFichier)

Ca ne fonctionne pas de mon côté:

Il y deux virgules entre MonFichier et True :

WorkBooks.Open MonFichier,,True

WorkBooks.Open MonFichier,,True

Hum, ok je croyais que c'était une erreur désolé.

Même message d'erreur...

J'ai essayé aussi comme ça car je voudrais éviter les mises à jourà l'ouverture:

Workbooks.Open MonFichier, False, True

Mais toujours l'erreur objet

Fais ce que tu veux. Est-ce que je t'ai demandé de mettre False ?????

Il faut mettre 0 :

Fais ce que tu veux. Est-ce que je t'ai demandé de mettre False ?????

On se calme, je débute et dans la description il y a cela:le premier False correspondrait à UpdateLinks...

Même si j'enlève le 1er False et que je laisse les 2 virgules ça ne fonctionne pas.

Avec "0" toujours le même message :(