Discussion :

[smaret]

Bonjour,

Est-il possible au moyen d'une macro VBA d'ouvrir un classeur excel directement en lecture seul et de manière automatique sans boite de dialogue demandant de la valider ?

D'avance merci et bonne journée

[BlueMonkey]

Bonjour,

Oui c'est possible.
Par exemple :

Code :

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

1
2
 Dim wbAllData As Workbook
 Set wbAllData = Workbooks.Open(Filename:=<nom du fichier>, ReadOnly:=True)

[smaret]

Mon classeur s'appelle "Mon annuaire.xlsm"

J'ai essayé de poser la macro dans:ThisWorkbook

Code :

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

1
2
3
4
Private Sub Workbook_Open()
 Dim wbAllData As Workbook
 Set wbAllData = Workbooks.Open(Filename:=<Mon annuaire.xlsm>, ReadOnly:=True)
End Sub

Et cela ne fonctionne pas !

Sorry, je suis un novice

[BlueMonkey]

Re.

Pour que ça fonctionne :
- le nom de fichier retire les caractères < et >.
- ajoute à la place des < et > le caractère "
- si le fichier ne se trouve pas dans le même dossier que le classeur ouvert qui contient la macro,
précise le dossier dans lequel se trouve le classer avec un chemin absolu (ex : C:\MesDocuments\Dusoir\) dans lequel se trouve le fichier.

[smaret]

Merci à tous cela fonctionne très bien