pb : pas de notification d'ouverture de fichier XL
pb : pas de notification d'ouverture de fichier XL - VB/VBA/VBS - Programmation
MarshPosté 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
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