charette63
XLDnaute Occasionnel
bonjour à toutes et à tous
Il y a quelques semaines, vous m'aviez aider à concocter un code pour ouvrir tous les fichiers d'un dossier:
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
Il y a quelques semaines, vous m'aviez aider à concocter un code pour ouvrir tous les fichiers d'un dossier:
Code:
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 Subdepuis, 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