Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour Claude;
If FileLocked "J:GroupAnabxxx.xls" Then '.... Else '... End If
Private Function FileLocked(FileName As String) As Boolean On Error Resume Next Open FileName For Binary Access Read Write Lock Read Write As #1 Close #1 FileLocked = Err.Number > 0 End Function
MP
"Claude" a écrit dans le message de news:1346601c3f6fe$7d7520a0$ petite question macro:
quel code je peux utiliser pour faire:
si le fichier xxx est ouvert alors ... si le fichier xxx est fermé alors...
proposition d une non initiée (moi) : If filename: "J:GroupAnabxxx.xls is open then .. if filename : "J:GroupAnabxxx.xls is close then ...
MErci beaucoup !!
Bonjour Claude;
If FileLocked "J:GroupAnabxxx.xls" Then
'....
Else
'...
End If
Private Function FileLocked(FileName As String) As Boolean
On Error Resume Next
Open FileName For Binary Access Read Write Lock Read Write As #1
Close #1
FileLocked = Err.Number > 0
End Function
MP
"Claude" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1346601c3f6fe$7d7520a0$a501280a@phx.gbl...
petite question macro:
quel code je peux utiliser pour faire:
si le fichier xxx est ouvert alors ...
si le fichier xxx est fermé alors...
proposition d une non initiée (moi) :
If filename: "J:GroupAnabxxx.xls is open then ..
if filename : "J:GroupAnabxxx.xls is close then ...
If FileLocked "J:GroupAnabxxx.xls" Then '.... Else '... End If
Private Function FileLocked(FileName As String) As Boolean On Error Resume Next Open FileName For Binary Access Read Write Lock Read Write As #1 Close #1 FileLocked = Err.Number > 0 End Function
MP
"Claude" a écrit dans le message de news:1346601c3f6fe$7d7520a0$ petite question macro:
quel code je peux utiliser pour faire:
si le fichier xxx est ouvert alors ... si le fichier xxx est fermé alors...
proposition d une non initiée (moi) : If filename: "J:GroupAnabxxx.xls is open then .. if filename : "J:GroupAnabxxx.xls is close then ...
MErci beaucoup !!
isabelle
bonjour Claude,
la propriété IsOpen s'applique uniquement à l'objet HTMLProjectItem, une autre solution est la gestion d'erreur.
On Error Resume Next Windows("xxx.xls").Activate If Err.Number = 0 Then MsgBox "il est ouvert" Else MsgBox "il est fermer" End If
isabelle
petite question macro:
quel code je peux utiliser pour faire:
si le fichier xxx est ouvert alors ... si le fichier xxx est fermé alors...
proposition d une non initiée (moi) : If filename: "J:GroupAnabxxx.xls is open then .. if filename : "J:GroupAnabxxx.xls is close then ...
MErci beaucoup !!
bonjour Claude,
la propriété IsOpen s'applique uniquement à l'objet HTMLProjectItem,
une autre solution est la gestion d'erreur.
On Error Resume Next
Windows("xxx.xls").Activate
If Err.Number = 0 Then
MsgBox "il est ouvert"
Else
MsgBox "il est fermer"
End If
isabelle
petite question macro:
quel code je peux utiliser pour faire:
si le fichier xxx est ouvert alors ...
si le fichier xxx est fermé alors...
proposition d une non initiée (moi) :
If filename: "J:GroupAnabxxx.xls is open then ..
if filename : "J:GroupAnabxxx.xls is close then ...
