VB sur Workbooks

jijudu Messages postés 215 Statut Membre -  
lermite222 Messages postés 9042 Statut Contributeur -
Salut,

est-il possible de dire en VB :

Si le Workbooks "machin" n'est pas ouvert alors ......

Merci
A voir également:
  • VB sur Workbooks
  • Vb - Télécharger - Langages
  • Vb audio cable - Télécharger - Audio & Musique
  • Vb editor - Télécharger - Langages
  • Vb 6 - Télécharger - Divers Utilitaires
  • Vb express - Télécharger - Langages

1 réponse

lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
Sub TestWkBk()
Dim Fichier As String
    On Error GoTo Ouvrir
Reco:
    Workbooks("machin.xls").Activate
Sortie:
    Exit Sub
Ouvrir:
    On error Goto Sortie 'Si trouve pas, éventuellement mettre message
    Fichier = "C:\Mes documents\Machin.xls"
    Workbooks.Open Fichier
    Resume Reco
End Sub

A+
0