Un fichier X ouvre automatiquement un fichier Y
Le fichier Y est protégé par une clé USB et il peut donc y avoir refus (sans
avertissement).
Je cherche donc la possibilité de vérifier l'ouverture de Y et le cas
echeant un Msgbox d'avertissement.
Je n'ai rien trouvé sur Google, du moins d'exploitable pour moi.
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
Philippe
il faut prévoir la gestion des erreurs avec "on error resume" ou bien on error resume next" Philo
"Claude HERRMANN" a écrit dans le message de news: 413f62a8$0$317$
Bonsoir,
Un fichier X ouvre automatiquement un fichier Y Le fichier Y est protégé par une clé USB et il peut donc y avoir refus (sans
avertissement). Je cherche donc la possibilité de vérifier l'ouverture de Y et le cas echeant un Msgbox d'avertissement. Je n'ai rien trouvé sur Google, du moins d'exploitable pour moi.
Merci de votre aide
Claude
il faut prévoir la gestion des erreurs avec "on error resume" ou bien on
error resume next"
Philo
"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news: 413f62a8$0$317$7a628cd7@news.club-internet.fr...
Bonsoir,
Un fichier X ouvre automatiquement un fichier Y
Le fichier Y est protégé par une clé USB et il peut donc y avoir refus
(sans
avertissement).
Je cherche donc la possibilité de vérifier l'ouverture de Y et le cas
echeant un Msgbox d'avertissement.
Je n'ai rien trouvé sur Google, du moins d'exploitable pour moi.
il faut prévoir la gestion des erreurs avec "on error resume" ou bien on error resume next" Philo
"Claude HERRMANN" a écrit dans le message de news: 413f62a8$0$317$
Bonsoir,
Un fichier X ouvre automatiquement un fichier Y Le fichier Y est protégé par une clé USB et il peut donc y avoir refus (sans
avertissement). Je cherche donc la possibilité de vérifier l'ouverture de Y et le cas echeant un Msgbox d'avertissement. Je n'ai rien trouvé sur Google, du moins d'exploitable pour moi.
Merci de votre aide
Claude
LeSteph
Bonsoir Claude, attention respecter la casse (maj min) dans nom de fichier, ex ici avec monfichier si ouvert rien sinon message à copier dans un module ou adapter: '***** Sub verif() Dim mess As Boolean Dim wbo For Each wbo In Application.Workbooks If wbo.Name = "monfichier.xls" Then mess = False Exit For Else mess = True End If Next If mess = True Then MsgBox "pas ouvert" End Sub '***** 'leSteph
"Claude HERRMANN" a écrit dans le message de news:413f62a8$0$317$
Bonsoir,
Un fichier X ouvre automatiquement un fichier Y Le fichier Y est protégé par une clé USB et il peut donc y avoir refus (sans
avertissement). Je cherche donc la possibilité de vérifier l'ouverture de Y et le cas echeant un Msgbox d'avertissement. Je n'ai rien trouvé sur Google, du moins d'exploitable pour moi.
Merci de votre aide
Claude
Bonsoir Claude,
attention respecter la casse (maj min) dans nom de fichier,
ex ici avec monfichier si ouvert rien
sinon message à copier dans un module ou adapter:
'*****
Sub verif()
Dim mess As Boolean
Dim wbo
For Each wbo In Application.Workbooks
If wbo.Name = "monfichier.xls" Then
mess = False
Exit For
Else
mess = True
End If
Next
If mess = True Then MsgBox "pas ouvert"
End Sub
'*****
'leSteph
"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:413f62a8$0$317$7a628cd7@news.club-internet.fr...
Bonsoir,
Un fichier X ouvre automatiquement un fichier Y
Le fichier Y est protégé par une clé USB et il peut donc y avoir refus
(sans
avertissement).
Je cherche donc la possibilité de vérifier l'ouverture de Y et le cas
echeant un Msgbox d'avertissement.
Je n'ai rien trouvé sur Google, du moins d'exploitable pour moi.
Bonsoir Claude, attention respecter la casse (maj min) dans nom de fichier, ex ici avec monfichier si ouvert rien sinon message à copier dans un module ou adapter: '***** Sub verif() Dim mess As Boolean Dim wbo For Each wbo In Application.Workbooks If wbo.Name = "monfichier.xls" Then mess = False Exit For Else mess = True End If Next If mess = True Then MsgBox "pas ouvert" End Sub '***** 'leSteph
"Claude HERRMANN" a écrit dans le message de news:413f62a8$0$317$
Bonsoir,
Un fichier X ouvre automatiquement un fichier Y Le fichier Y est protégé par une clé USB et il peut donc y avoir refus (sans
avertissement). Je cherche donc la possibilité de vérifier l'ouverture de Y et le cas echeant un Msgbox d'avertissement. Je n'ai rien trouvé sur Google, du moins d'exploitable pour moi.
