Discussion :

[bosk1000]

bonjour a tous,

voila j'ai un fichie commande et un autre caisse

la macro se trouve dans le fichier commande
et je voudrais qu'au debut de la macro, une fonction vérifie si le fichier caisse est ouvert, dans ce cas la je sauvegarde le fichier caisse et je le ferme.
ceci afin d'eviter de planter le reste du programme si le fichier est déjà ouvert

merci pour votre aide

[melouille56]

Et voilà:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name = "Caisse.xls" Then
        wb.Close True
        Exit For
    End If
Next

dis si ca marche
a+

[ben_ghost]

Je te propose ça, je sais pas si c'est exactement ça que tu veux mais bon (ça me parait un peu trop simple en fait).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
for each WB in workbooks
     if WB.name = "caisse" then
          WB.save
          WB.close
     end if
next WB

arf on m'a devancé lol pis en plus propre en plus MDR