blord
XLDnaute Impliqué
Bonjour à tous,
J'aimerais utiliser le bout de code suivant pour vérifier si un fichier Excel est ouvert. Cependant, j'aimerais pouvoir utiliser un nom de fichier variable qui débute toujours de la même façon mais dont la fin sera variable.
Dans mon code, je fait le test avec le "vrai" nom du fichier soit "CIBC0439 2009-12.xls" tout fonctionne correctement.
Par contre, ce que j'aimerais faire c'est de vérifier si un fichier dont le nom débute par "CIBC0439" est ouvert...
Sub Fichier0439()
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks("CIBC0439 2009-12.xls")
'Set Wk = Workbooks("CIBC0439*" & ".xls")
'Set Wk = Workbooks("CIBC0439*.xls")
If Err = 0 Then
MsgBox "Le fichier est ouvert"
Else
MsgBox "Le fichier n'est pas ouvert"
End If
End Sub
J'ai fait des tentatives avec le symbole * mais ça ne fonctionne pas ...
Quelle serait la bonne nomenclature à utiliser ?
Merci pour votre aide si précieuse...
Benoit Lord
J'aimerais utiliser le bout de code suivant pour vérifier si un fichier Excel est ouvert. Cependant, j'aimerais pouvoir utiliser un nom de fichier variable qui débute toujours de la même façon mais dont la fin sera variable.
Dans mon code, je fait le test avec le "vrai" nom du fichier soit "CIBC0439 2009-12.xls" tout fonctionne correctement.
Par contre, ce que j'aimerais faire c'est de vérifier si un fichier dont le nom débute par "CIBC0439" est ouvert...
Sub Fichier0439()
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks("CIBC0439 2009-12.xls")
'Set Wk = Workbooks("CIBC0439*" & ".xls")
'Set Wk = Workbooks("CIBC0439*.xls")
If Err = 0 Then
MsgBox "Le fichier est ouvert"
Else
MsgBox "Le fichier n'est pas ouvert"
End If
End Sub
J'ai fait des tentatives avec le symbole * mais ça ne fonctionne pas ...
Quelle serait la bonne nomenclature à utiliser ?
Merci pour votre aide si précieuse...
Benoit Lord