Discussion :

[yoyo77yo]

Bonjour,
Je fais un macro qui me permet d'ouvrir un autre classeur dans lequel je fais un find et find.next mais je souhaite que se second classeur soit caché :

J'ai essayer :

windows("Classeur9").visible=false

et

application.visible=False

mais j'y arrive pas

Voici une partie de mon code :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Sub CommandButton3_Click()
 
TextBox2.Locked = True
TextBox3.Locked = True
TextBox4.Locked = True
TextBox5.Locked = True
TextBox6.Locked = True
TextBox7.Locked = True
TextBox8.Locked = True
TextBox9.Locked = True
 
 
Dim wb As Workbook
Dim ws As Worksheet
Dim c As Range
Dim TR As String, FirstAddress As String, TabVal() As String, TabLig() As Integer
Dim k As Integer
 
Dim r As Range
Dim li As Integer
 
 
 
 
Set wb = Workbooks.Open("U:\ICDC\DPI\OPE\Oac\2.Applicatif\Référentiel applis.xls")
 
Set ws = wb.Worksheets(1)
 
Sheets("Réf applis").Select
 
Range("A1").Select
 
 
TR = Me.TextBox1.Text
If TR <> "" Then
    With Worksheets("Réf applis").Range("a1:c1000")
        Set c = .Find(TR, LookIn:=xlValues, lookat:=xlPart)
 
        If c Is Nothing Then
            MsgBox "Aucune application trouvée!", , "Résultat"
        Else
 
        If Not c Is Nothing Then

etc...

merci par avance de votre aide

[jfontaine]

Bonjour,

Pour cacher un classeur j'utilise une nouvelle instance d'Excel (car c'est elle que tu peux masquer)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim app As New Excel.Application
Dim wrk As Workbook
 
 
Set wrk = app.Workbooks.Open("C:\monfichier.xls")
 
'Travail a effectuer
 
 
app.Quit
Set app = Nothing

[yoyo77yo]

oui ca a l'air de fonctionner mais cela m'ouvre come tu dit une autre occurence dès le depart on voit le classeur or je ne veut pas

[wilfried_42]

Bonjour

pour evite ces saut d'ecran, si tu ouvres ton classeur et le ferme apres traitement, ceci devrait passer

Code :

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

Application.screenupdating = false

ne pas oublier de le remetre à true à la fin du traitement

[Didier Gonard]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
Sub Sesame()
Dim wkbClasseurAOuvrir As Workbook
 
Set wkbClasseurAOuvrir = GetObject("D:\toto.xls")
'Windows(2).Visible = True ' pour le faire apparaître si besoin
Debug.Print wkbClasseurAOuvrir.Worksheets(1).Range("B6").Value
Set wkbClasseurAOuvrir = Nothing
 
End Sub

cordialement,

Didier