Discussion :

[patate5555]

Salut!

Dans mon code, j'ouvre un fichier Excel mais je veux savoir s'il est en lecture seule car si je l'ouvre en lecture seule, je veux qu'un Msgbox s'affiche. Voici une partie du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
    Dim xlapp As Excel.Application
    Dim xlsheet As Excel.Worksheet
    Dim xlbook As Excel.Workbook
    Dim i As Long
    If Envoye.Value = False Then
        Set x1app = CreateObject("Excel.Application")
        x1app.Visible = True
        Set x1book = x1app.Workbooks.Open("U:\Rapport de  production\Data.xls")
        x1app.Sheets("Data").Select
        Set x1sheet = x1book.worksheets("Data")
   end if

Merci d'avance

[pgz]

Bonsoir.

Code :

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

XlBook.ReadOnly

renvoie un booléen qui indique si le document est en lecture seule.

Bon courage,

PGZ

[patate5555]

Merci d'avoir réglé mes problèmes pgz!!!