Code macro - Eviter ouvrir à nouveau fichier

[gourdin]

Bonjour,

Depuis un fichier j'utilise le code macro suivant pour ouvrir un autre fichier excel intitulé "monfichier.xls":

Workbooks.Open Filename:=ThisWorkbook.Path & "\monfichier.xls"

Je souhaite que lorsque "monfichier.xls" est déjà ouvert la macro qui doit ouvrir monfichier.xls ne n’exécute pas.

Merci

 

[Dranreb]

Re : Code macro - Eviter ouvrir à nouveau fichier

Bonjour.

Essayez d'affecter par un Set à une variable déclarée As Workbook l'élément de la collection Workbooks portant son nom, et ne l'ouvrez que si cela se solde par une erreur.
P..S. Faites Err.Clear devant le WorkBooks.Open pour pouvoir tester ensuite si la tentative d'ouverture a aussi échoué.
P.S.2: Cela implique bien évidement On Error Resume Next devant l'ensemble des opérations.

 

[job75]

Re : Code macro - Eviter ouvrir à nouveau fichier

Bonjour gourdin, Bernard,

Ou sans On Error Resume Next :

Dim wb As Workbook
For Each wb In Workbooks
  If wb.Name = "monfichier.xls" Then Exit Sub
Next

A+

 

[gourdin]

Re : Code macro - Eviter ouvrir à nouveau fichier

Merci beaucoup à vous 2
Je vais essayer vos solutions