comment savoir si un fichier excel est ouvert avec vba

[saadmechiche]

Bonjour j'aimerai réalisé la procedure suivante sur vba , si le fichier "outil.xls" est ouvert alors le fermer
sinon l'ouvrir
le probleme est que je ne connais pas la fonction qui dit si le fichier est ouvert ou pas
Merci d'avance pôur votre aide
SAAD

 

[wilfried_42]

Re : comment savoir si un fichier excel est ouvert avec vba

boujour saadmechiche

voici une macro

sub fermer_outil()
dim i as integer
for i = workbooks.count to 1 step -1
if workbooks(i).name = "Outil.xls" then workbooks(i).close false ' False empeche la sauvegarde
next i
end sub

 

[Spitnolan08]

Re : comment savoir si un fichier excel est ouvert avec vba

Bonjour Saademiche, Wilfried,

Pour compléter le code de Wilfried...

                              sub fermer_outil()
dim i as integer
Dim TonChemin as sting
TonChemin = "C:\blabla\bipbip\"
for i = workbooks.count to 1 step -1
if workbooks(i).name = "Outil.xls" then 
workbooks(i).close false ' False empeche la sauvegarde
Else 
Workbooks.Open Filename:= "TonChemin\Outil.xls"
End If
next i
end sub

Cordialement

 

[saadmechiche]

Re : comment savoir si un fichier excel est ouvert avec vba

Merci pour tout
ca marche
A bientot

 

[saadmechiche]

Re : comment savoir si un fichier excel est ouvert avec vba

Petite questionj subsidiaire
que veut dire l'instruction suivante

for i = workbooks.count to 1 step -1

Je n'arrive pas a comprendre
Merci

 

[Spitnolan08]

Re : comment savoir si un fichier excel est ouvert avec vba

Re,

Il s'agit d'incrémenter la boucle en sens inverse avec un pas de 1, donc de "décrémenter"...

Cordialement