XL 2013 Fermer tous les fichiers ouverts sauf le fichier actif et Personnal

Deadpool_CC à dit:

Bonjour,

En faisant tourner la macro "pas à pas" (F8) et avec des "espions" => on peut voir que le .name contient le nom du fichier SANS l'extension
ps : suis en en version 2016

Donc corrige avec cela et dis nous :

VB:

Sub OnFerme()
Dim Wkb As Workbook
Application.ScreenUpdating = False
For Each Wkb In Application.Workbooks
    If Wkb.Name <> ThisWorkbook.Name And Wkb.Name <> "PERSONAL" Then
        Wkb.Close False
    End If
Next Wkb
Application.ScreenUpdating = True
End Sub

Par contre moi j'ai la macro dans le classeur actif quand je la lance et pas dans dans un autre fichier.
Je ne sais pas si le ThisWorkbook est celui ou se trouve la macro en train de s'exécuter ou si c'est le fichier dans lequel on est et d'où on peut déclencher la macro avec un raccourci clavier par exemple.
A+

Cliquez pour agrandir...

Deadpool_CC à dit:

Bonjour,

En faisant tourner la macro "pas à pas" (F8) et avec des "espions" => on peut voir que le .name contient le nom du fichier SANS l'extension
ps : suis en en version 2016

Donc corrige avec cela et dis nous :

VB:

Sub OnFerme()
Dim Wkb As Workbook
Application.ScreenUpdating = False
For Each Wkb In Application.Workbooks
    If Wkb.Name <> ThisWorkbook.Name And Wkb.Name <> "PERSONAL" Then
        Wkb.Close False
    End If
Next Wkb
Application.ScreenUpdating = True
End Sub

Par contre moi j'ai la macro dans le classeur actif quand je la lance et pas dans dans un autre fichier.
Je ne sais pas si le ThisWorkbook est celui ou se trouve la macro en train de s'exécuter ou si c'est le fichier dans lequel on est et d'où on peut déclencher la macro avec un raccourci clavier par exemple.
A+

Cliquez pour agrandir...

vgendron à dit:

en début de macro, qui est ton classeur actif?
si tu lances ta macro à partir du ruban, à priori, le classeur actif est celui qui est à l''écran..
alors que le thisworkbook est celui qui contient la macro executée (me semble t il)
il suffirait donc de faire comme ceci

VB:

Sub OnFerme()
Dim Wkb As Workbook
Dim ActClasseur As Workbook
Set ActClasseur = ActiveWorkbook
Application.ScreenUpdating = False
For Each Wkb In Application.Workbooks
    If Wkb.Name <> ActClasseur.Name And Wkb.Name <> "PERSONAL" Then
        Wkb.Close False
    End If
Next Wkb
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...