exception dans macro ouverture de tous les classeurs d'un dossier

[charette63]

bonjour à toutes et à tous

Il y a quelques semaines, vous m'aviez aider à concocter un code pour ouvrir tous les fichiers d'un dossier:

Sub OuvreClasseurs()

Dim nomfich As String
Application.ScreenUpdating = True 'fige l'écran
On Error Resume Next
nomfich = Dir(ThisWorkbook.Path & "\*.xls") '1er fichier du dossier

While nomfich <> ""
  If nomfich <> ThisWorkbook.Name Then   
    If IsError(Workbooks(nomfich).Name) Then _
      Workbooks.Open ThisWorkbook.Path & "\" & nomfich 'si le fichier n'est pas déjà ouvert, on l'ouvre
  End If
  nomfich = Dir 'fichier suivant du dossier
Wend

ThisWorkbook.Activate
End Sub

depuis, un fichier supplémentaire est venu s'ajouter dans ce dossier et j'aimerais qu'il ne s'ouvre pas avec les autres.

Ce dossier s'appelle: Creer nouveau dossier.

Pour info, les autres classeurs s'appellent:
-Fiche perso nursing Template (le "Template" change en année (2012 par ex.))
-Horaire nursing 01 Template (idem pour le Template et j'ai 12 dossiers (les 12 mois de l'année, donc nursing 02, 03, etc...))

j'espere que mes explications sont suffisamment claires

pouvez vous m'aider

merci

cordialement
Thierry

 

[fredl]

Re : exception dans macro ouverture de tous les classeurs d'un dossier

Si c'est un fichier que tu ne veux pas qui s'ouvre, alors :
Sub OuvreClasseurs()

Dim nomfich As String
Application.ScreenUpdating = True 'fige l'écran
On Error Resume Next
nomfich = Dir(ThisWorkbook.Path & "\*.xls") '1er fichier du dossier

While nomfich <> ""
If not nomfich = ThisWorkbook.Name and not nomfich="Creer nouveau dossier.xls" Then
......

 

[charette63]

Testé et approuvé

merci fredl

bonne journée