Code macro - Eviter ouvrir à nouveau fichier

gourdin · 15 Mai 2014

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 · 15 Mai 2014

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 · 15 Mai 2014

Re : Code macro - Eviter ouvrir à nouveau fichier

Bonjour gourdin, Bernard,

Ou sans On Error Resume Next :

Code:

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

A+

gourdin · 15 Mai 2014

Re : Code macro - Eviter ouvrir à nouveau fichier

Merci beaucoup à vous 2
Je vais essayer vos solutions

Code macro - Eviter ouvrir à nouveau fichier

gourdin

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

Discussions similaires

Code macro - Eviter ouvrir à nouveau fichier

gourdin

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency