Discussion :

[grimgrim]

Bonjour,

à partir d'un fichier excel, j'ouvre un autre fichier que je rend non visible par le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Windows("Revue Referentiel.xls").Visible = False

Or, quand je veux chercher une donnée dans ce fichier, j'utilise par ex le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Windows("Revue Referentiel.xls").Activate
Sheets("REF").Select
Nligne = Cells(1, 1).CurrentRegion.Rows.Count

le fichier redevient visible
Je voudrais réaliser la même chose sans voir son affichage

Existe il une méthode ?

Merci d'avance

[mercatog]

Pa besoin d'activer ou de sélectionner quoique ce soit en utilisant une variable objet de type workbook

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub TEST()
Dim Wbk As Workbook
Dim Fichier As String
Dim Nligne As Long
 
Fichier = "C:\Users\VAL\Desktop\XXX.xlsx"
Set Wbk = Workbooks.Open(Fichier)
Wbk.Windows(1).Visible = False
 
With Wbk.Worksheets("RF")
    Nligne = .Cells(1, 1).CurrentRegion.Rows.Count
    MsgBox Nligne
 
End With
Wbk.Close False
Set Wbk = Nothing
End Sub

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Windows("Revue Referentiel.xls").Activate
Sheets("REF").Select
Nligne = Cells(1, 1).CurrentRegion.Rows.Count

Si tu actives, tu rends visible.
Mais il est très rarement indispensable d'activer.

A la place de ton code, essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nligne = Workbooks("Revue Referentiel.xls").Sheets("REF").Cells(1, 1).CurrentRegion.Rows.Count

[/QUOTE]

[grimgrim]

Merci beaucoup pour ces informations.

Par contre, quand je lance un userform, j'ai mon classeur visible de mon userform

Est il possible de ne pas le rendre visible alors que je travaille sur le userform ?

Cordialement,