Discussion :

[wise_mind]

Bonjour,
J'aimerais savoir s'il y a un code sous VB 6.0 qui me permet d'ouvrir un fichier EXCEL en mode lecture seule.
Merci d'avance

[SfJ5Rpw8]

voir aide en ligne excel vba de la méthode open, le 3° paramètre :

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument)

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Dim st
Dim AppExcel As New Excel.Application
Dim wk As Excel.Workbook
AppExcel.Visible = True
st = AppExcel.GetOpenFilename
If TypeName(st) = "String" Then
   Set wk = AppExcel.Workbooks.Open(FileName:=st, ReadOnly:=True)
End If
End Sub

[wise_mind]

merci pour votre aide