Bonjour
Je souhaite créer un msgbox qui previenne un utilisateur que le programme
est déjà utilisé par qqun, et que de ce fait il doit patienter.
Merci beaucoup
Patrick
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
FxM
Bonsoir,
Tenter d'ouvrir un fichier non partagé qui est déjà utilisé devrait générer un message indiquant qu'il y a utilisation. Tenter d'ouvrir un fichier partagé qui est déjà utilisé ne devrait pas poser de problème ;o).
Il y a ce genre de détection pour des fichiers texte (à tester) : Function IsFileOpen(filename As String) As Boolean On Error Resume Next Dim filenum As Integer, errnum As Integer filenum = FreeFile() Open filename For Input Lock Read As #filenum Close filenum errnum = Err.Number Err.Clear Select Case errnum Case 0 IsFileOpen = False Case 70 IsFileOpen = True Case Else Error errnum End Select End Function
@+ FxM
Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Bonsoir,
Tenter d'ouvrir un fichier non partagé qui est déjà utilisé devrait
générer un message indiquant qu'il y a utilisation.
Tenter d'ouvrir un fichier partagé qui est déjà utilisé ne devrait pas
poser de problème ;o).
Il y a ce genre de détection pour des fichiers texte (à tester) :
Function IsFileOpen(filename As String) As Boolean
On Error Resume Next
Dim filenum As Integer, errnum As Integer
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
errnum = Err.Number
Err.Clear
Select Case errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
Case Else
Error errnum
End Select
End Function
@+
FxM
Bonjour
Je souhaite créer un msgbox qui previenne un utilisateur que le programme
est déjà utilisé par qqun, et que de ce fait il doit patienter.
Merci beaucoup
Patrick
Tenter d'ouvrir un fichier non partagé qui est déjà utilisé devrait générer un message indiquant qu'il y a utilisation. Tenter d'ouvrir un fichier partagé qui est déjà utilisé ne devrait pas poser de problème ;o).
Il y a ce genre de détection pour des fichiers texte (à tester) : Function IsFileOpen(filename As String) As Boolean On Error Resume Next Dim filenum As Integer, errnum As Integer filenum = FreeFile() Open filename For Input Lock Read As #filenum Close filenum errnum = Err.Number Err.Clear Select Case errnum Case 0 IsFileOpen = False Case 70 IsFileOpen = True Case Else Error errnum End Select End Function
@+ FxM
Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Denis Michon
Bonjour Alpha,
Tu désires quelque chose dans le genre :
MsgBox "Ce programme est déjà utilisé par un autre utilisateur." & vbCrLf & _ "Veuillez patienter.", vbCritical + vbOKOnly, "Un instant S.V.P"
Salutations!
P.S. Attention aux coupures de ligne du service de messagerie.
"Alpha" a écrit dans le message de news: Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Bonjour Alpha,
Tu désires quelque chose dans le genre :
MsgBox "Ce programme est déjà utilisé par un autre utilisateur." & vbCrLf & _
"Veuillez patienter.", vbCritical + vbOKOnly, "Un instant S.V.P"
Salutations!
P.S. Attention aux coupures de ligne du service de messagerie.
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:OEl697fsDHA.1788@tk2msftngp13.phx.gbl...
Bonjour
Je souhaite créer un msgbox qui previenne un utilisateur que le programme
est déjà utilisé par qqun, et que de ce fait il doit patienter.
Merci beaucoup
Patrick
MsgBox "Ce programme est déjà utilisé par un autre utilisateur." & vbCrLf & _ "Veuillez patienter.", vbCritical + vbOKOnly, "Un instant S.V.P"
Salutations!
P.S. Attention aux coupures de ligne du service de messagerie.
"Alpha" a écrit dans le message de news: Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Alpha
Merci Denis, mais où mettre le msgbox Alpha
"Denis Michon" a écrit dans le message de news: foawb.61355$
Bonjour Alpha,
Tu désires quelque chose dans le genre :
MsgBox "Ce programme est déjà utilisé par un autre utilisateur." & vbCrLf & _
P.S. Attention aux coupures de ligne du service de messagerie.
"Alpha" a écrit dans le message de news:
Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Merci Denis,
mais où mettre le msgbox
Alpha
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:
foawb.61355$Ng3.23260@charlie.risq.qc.ca...
Bonjour Alpha,
Tu désires quelque chose dans le genre :
MsgBox "Ce programme est déjà utilisé par un autre utilisateur." & vbCrLf
& _
P.S. Attention aux coupures de ligne du service de messagerie.
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:OEl697fsDHA.1788@tk2msftngp13.phx.gbl...
Bonjour
Je souhaite créer un msgbox qui previenne un utilisateur que le programme
est déjà utilisé par qqun, et que de ce fait il doit patienter.
Merci beaucoup
Patrick
P.S. Attention aux coupures de ligne du service de messagerie.
"Alpha" a écrit dans le message de news:
Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Alpha
Merci beaucoup Alpha
"FxM" a écrit dans le message de news:
Bonsoir,
Tenter d'ouvrir un fichier non partagé qui est déjà utilisé devrait générer un message indiquant qu'il y a utilisation. Tenter d'ouvrir un fichier partagé qui est déjà utilisé ne devrait pas poser de problème ;o).
Il y a ce genre de détection pour des fichiers texte (à tester) : Function IsFileOpen(filename As String) As Boolean On Error Resume Next Dim filenum As Integer, errnum As Integer filenum = FreeFile() Open filename For Input Lock Read As #filenum Close filenum errnum = Err.Number Err.Clear Select Case errnum Case 0 IsFileOpen = False Case 70 IsFileOpen = True Case Else Error errnum End Select End Function
@+ FxM
Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme
est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Merci beaucoup
Alpha
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de news:
uaiqJ9gsDHA.1996@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Tenter d'ouvrir un fichier non partagé qui est déjà utilisé devrait
générer un message indiquant qu'il y a utilisation.
Tenter d'ouvrir un fichier partagé qui est déjà utilisé ne devrait pas
poser de problème ;o).
Il y a ce genre de détection pour des fichiers texte (à tester) :
Function IsFileOpen(filename As String) As Boolean
On Error Resume Next
Dim filenum As Integer, errnum As Integer
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
errnum = Err.Number
Err.Clear
Select Case errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
Case Else
Error errnum
End Select
End Function
@+
FxM
Bonjour
Je souhaite créer un msgbox qui previenne un utilisateur que le
programme
est déjà utilisé par qqun, et que de ce fait il doit patienter.
Merci beaucoup
Patrick
Tenter d'ouvrir un fichier non partagé qui est déjà utilisé devrait générer un message indiquant qu'il y a utilisation. Tenter d'ouvrir un fichier partagé qui est déjà utilisé ne devrait pas poser de problème ;o).
Il y a ce genre de détection pour des fichiers texte (à tester) : Function IsFileOpen(filename As String) As Boolean On Error Resume Next Dim filenum As Integer, errnum As Integer filenum = FreeFile() Open filename For Input Lock Read As #filenum Close filenum errnum = Err.Number Err.Clear Select Case errnum Case 0 IsFileOpen = False Case 70 IsFileOpen = True Case Else Error errnum End Select End Function
@+ FxM
Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme
est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Denis Michon
Bonjour Alpha,
Je croyais que tu avais une procédure et il te manquait la manière d'écrire un "msgbox".
Si tu n'as pas élaboré de procédure... tu peux oublier cela !
Salutations!
"Alpha" a écrit dans le message de news: Merci Denis, mais où mettre le msgbox Alpha
"Denis Michon" a écrit dans le message de news: foawb.61355$
Bonjour Alpha,
Tu désires quelque chose dans le genre :
MsgBox "Ce programme est déjà utilisé par un autre utilisateur." & vbCrLf & _
P.S. Attention aux coupures de ligne du service de messagerie.
"Alpha" a écrit dans le message de news:
Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Bonjour Alpha,
Je croyais que tu avais une procédure et il te manquait la manière d'écrire un "msgbox".
Si tu n'as pas élaboré de procédure... tu peux oublier cela !
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:eDL1tHssDHA.1756@TK2MSFTNGP09.phx.gbl...
Merci Denis,
mais où mettre le msgbox
Alpha
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:
foawb.61355$Ng3.23260@charlie.risq.qc.ca...
Bonjour Alpha,
Tu désires quelque chose dans le genre :
MsgBox "Ce programme est déjà utilisé par un autre utilisateur." & vbCrLf
& _
P.S. Attention aux coupures de ligne du service de messagerie.
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:OEl697fsDHA.1788@tk2msftngp13.phx.gbl...
Bonjour
Je souhaite créer un msgbox qui previenne un utilisateur que le programme
est déjà utilisé par qqun, et que de ce fait il doit patienter.
Merci beaucoup
Patrick
P.S. Attention aux coupures de ligne du service de messagerie.
"Alpha" a écrit dans le message de news:
Bonjour Je souhaite créer un msgbox qui previenne un utilisateur que le programme est déjà utilisé par qqun, et que de ce fait il doit patienter. Merci beaucoup Patrick
Alpha
Ok, merci Alpha
"Denis Michon" a écrit dans le message de news: Buuwb.64886$
Bonjour Alpha,
Je croyais que tu avais une procédure et il te manquait la manière d'écrire un "msgbox".
Si tu n'as pas élaboré de procédure... tu peux oublier cela !
Salutations!
"Alpha" a écrit dans le message de news:
Merci Denis, mais où mettre le msgbox Alpha
"Denis Michon" a écrit dans le message de news: foawb.61355$
Bonjour Alpha,
Tu désires quelque chose dans le genre :
MsgBox "Ce programme est déjà utilisé par un autre utilisateur." & vbCrLf
