ouvrir un classeur en invisible

nsqualli · 31 Décembre 2008

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 · 31 Décembre 2008

Re : ouvrir un classeur en invisible

Bonjour à tous,

Peux-tu essayer avec :

Code:

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

Le nom du classeur est à adapter

A+

nsqualli · 31 Décembre 2008

Re : ouvrir un classeur en invisible

non ça marche pas

Etienne2323 · 31 Décembre 2008

Re : ouvrir un classeur en invisible

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

Code:

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

ouvrir un classeur en invisible

nsqualli

XLDnaute Junior

JCGL

XLDnaute Barbatruc

nsqualli

XLDnaute Junior

Etienne2323

XLDnaute Impliqué

Discussions similaires