Discussion :

[bakman]

Bonjour à tous je travaille sur une application qui inventorie des fichier excel.
j'aurais besoin de savoir si un fichier et déjà en cours d'utilisation, en effet si un utilisateur à un fichier excel ouvert sur son poste et que l'ont essaie de l'ouvrir nous obtenons un petit message qui nous demande si nous souhaitons l'ouvrir en lecture seule. Pour ne pas être déranger lors de mon inventaire j'ai mis la propriété d'Excel DisplayAlerts à False.
Existe t'il une fonction de type isReadOnly?
Merci

[matll]

Salut,

Tu as la méthode suivante :

Code :

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

My.Computer.FileSystem.GetFileInfo("chemin de ton fichier").IsReadOnly

@+
Mat

[bakman]

merci pour ta réponse! apparemment l'appli ne voit pas le fichier comme étant en lecture seul :S alors qu'il est bien ouvert sur le réseau.
Je ne comprend pas trop là!

[matll]

merci pour ta réponse! apparemment l'appli ne voit pas le fichier comme étant en lecture seul :S alors qu'il est bien ouvert sur le réseau.
Je ne comprend pas trop là!

ça parait logique finalement, c'est Excel qui dit que le fichier est en lecture seule et pas le système d'exploitation.

Lorsqu'un utilisateur ouvre ton fichier, c'est un verrou qui est posé et non l'attribut lecture seule qui est modifié.

[bakman]

Effectivement,
J'ai aussi essayer de mettre sur mon objet worksheet la propriété "Read Only" mais elle apparait comme "False"
Allé un ptit boud'coD

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
        ExcelAp = CreateObject("Excel.Application")
        ExcelAp.DisplayAlerts = False
                            Try
                                ExcelAp.Workbooks.Add(File.Path)
                                ExcelFile = ExcelAp.ActiveWorkbook
 
                                If ExcelFile.ReadOnly Then
                                    mylistview.SubItems.Add("Read Only")
                                End If
 
                            Catch ex As COMException
                                mylistview.SubItems.Add("Invalid File")
                            Finally
                                ExcelFile.Close(SaveChanges:=False)
                            End Try

Il y à quelques chose que je ne saisi pas!

[wakan]

Bonjour,
Je peux essayer de vous conseiller une autre approche.
http://www.developpez.net/forums/d86...r-deja-ouvert/

Je ne suis pas sure quel correponde à votre problème.

En espérant vous avoir aidé.

[bakman]

Merci! L'exemple que vous venez de me fournir n'est valable que si le fichier et ouvert sur mon propre ordinateur.
Alors que dans mon cas je voudrais savoir si le fichier est ouvert sur un ordinateur du réseau

[wakan]

Je m'obstine un peu avec mon idée.
Je ne suis toujours pas convaincu qu'elle soit bonne.

http://msdn.microsoft.com/fr-fr/libr...81(VS.80).aspx

GetProcess marche aussi pour les machines distantes.

[bakman]

@wakan: Je pense que cette solution n'est pas adapté à mon problème mais je te remercie de t'être penché sur le problème
Après plusieurs débug je me suis aperçus que lorsque mon programme ouvre le fichier excel qui est déjà ouvert sur le réseau ce dernier ne porte pas la mention [Lecture seule] tel que si je l'ouvrais en cliquant dessus. j'ai l'impression que lorsque qu'il est ouvert par mon appli vb.net est prioritaire sur le fichier donc il n'est jamais vu comme étant un fichier en lecture seule même en mettant la propriété DisplayAlerts = True je ne reçois aucune message me spécifiant qu'il est déjà utilisé.

[bakman]

Trouvé !!

Le problème venait de la manière dont j'ouvre le fichier excel

Code :

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

1
2
 
ExcelAp.Workbooks.Add(File.Path)

Alors que la méthode open permet d'ouvrir suivant plusieurs critères comme
"IgnoreReadOnlyRecommended"

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
 
ExcelAp.Workbooks.Open(File.Path, , , , , , True, , , , True)

En utilisant la méthode Open() on peux donc pas la suite utiliser

Code :

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

1
2
3
 
If ExcelFile.ReadOnly Then
                                blablabla

Merci encore a bientot
Ps: J'ai trouvé mon bonheur ici