ouvrir un classeur en invisible

[nsqualli]

bonjour,

j'ai un ptit souci, lors de mon traitement, j'ai une boucle qui ouvre tous les classeurs dans un repertoire, le probleme c que je veux ouvrir ses classeurs mais sans qu'ils apparaissent sur mon ecran, j'ai mis application.visible = false, mais ça me cache meme le classeur sur quoi je travaille.

est ce que vous pouvez me dire comment m'y prendre?

merci

 

[JCGL]

Re : ouvrir un classeur en invisible

Bonjour à tous,

Peux-tu essayer avec :

 Windows("Classeur1.xls").Visible = False

Le nom du classeur est à adapter

A+

 

[nsqualli]

Re : ouvrir un classeur en invisible

non ça marche pas

 

[Etienne2323]

Re : ouvrir un classeur en invisible

Bonjour nsqualli,
voyez si quelque chose comme ceci pourrait vous convenir:

Sub test()
Dim VariableClasseur As String
Dim Wb As Workbook

VariableClasseur = ThisWorkbook.Name

For Each Wb In Workbooks
    If Wb.Name <> VariableClasseur Then
        Windows(Wb.Name).Visible = False
    End If
Next Wb

End Sub

Cordialement,

Étienne