pb : pas de notification d'ouverture de fichier XL

pb : pas de notification d'ouverture de fichier XL - VB/VBA/VBS - Programmation

Marsh Posté le 29-07-2005 à 11:09:56    

Bonjour à tous,
mon programme VB6 affiche un form1 dans lequel se trouve
1 bouton par fichier XL que l'on veut ouvrir ...
lorsque l'on click sur un bouton, code ci dessous ...
 
Private Sub Command2_Click()
    Dim xlTmp As Excel.Application
    Set xlTmp = New Excel.Application
    xlTmp.Visible = True
    Dim xlWB As Excel.Workbook
    Set xlWB = Workbooks.Open("\\Serveur\chemin\" _
    & "mon nom fichier.xls" _
    , , , , "mon mot de passe", , , , , , True, , True)
    Set xlWB = Nothing
    Set xlTmp = Nothing
    Unload Form1
End Sub
 
Ma question :  
ca marche ... mais, si le fichier est déjà ouvert par un collègue,  
ma macro ouvre le fichier XL en lecture seule sans rien me dire,
plutot que de me notifier qu'il est déjà ouvert par le collègue "toto" ?
(ce qui est super, et qui arrive quand on l'ouvre par l'explorateur)
j'ai pourtant passé "notify" à true  
(ce qui fait par contre que le collègue "toto" voit que ma macro à ouvert le fichier)
 
Merci de vos réponses et / ou critiques sur ce bout de code

Reply

Marsh Posté le 29-07-2005 à 11:09:56   

Reply

Marsh Posté le 02-08-2005 à 15:22:35    

up
ça n'intéresse  personne ???

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed