Discussion :

[Nono Sto]

Chères amies, chers amis


Je dois ouvrir un fichier et puis le refermer, or je souhaiterais que cela soit masquer, j'ai penser à Application.ScreenUpdating = False, mais on voit malgré tous le fichiers s'ouvrir puis se fermer.

Je ne souhaite pas utiliser les ODDB connection ou l'ADO.

Merci

[Philippe Tulliez]

Bonjour,
Par exemple en ouvrant une seconde instance Excel en la cachant

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
Sub OpenWkbHidden()
  ' Procédure ouvrant une 2ème instance Excel Invisible
  Const File As String = "Fichier A.xls" ' Nom du classeur à ouvrir
  Dim appliExcel As Excel.Application
  Dim curDir As String:  curDir = ThisWorkbook.Path
  ' Ouverture d'une 2ème application Excel
  Set appliExcel = CreateObject("Excel.Application")
  With appliExcel
  .Visible = False ' Rendre l'application invisible
  .Workbooks.Open curDir & "\" & File ' Ouverture d'un fichier dans la deuxième appli
  MsgBox .Workbooks(File).Worksheets("Feuil1").Range("A1") ' Lecture de la cellule A1 de Feuil1
  .Workbooks(File).Close ' Fermeture de l'application
  End With
  ' appliExcel.Visible = True ' on affiche l'application
  Set appliExcel = Nothing
End Sub

[EDIT]
Le code que j'ai publié est plutôt fait pour l'ouverture d'une application Excel depuis une autre application Office.
Cette procédure est moins lourde

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
Sub OpenWkbHidden()
  Const File As String = "Fichier A.xls"
  Dim App As Excel.Application
  Dim wkb As Excel.Workbook
  Dim curDir As String:  curDir = ThisWorkbook.Path
  Set App = New Excel.Application
  With App
  .Visible = False ' Rendre l'application invisible
  Set wkb = .Workbooks.Open(curDir & "\" & File) ' Ouverture d'un fichier dans la deuxième appli
  End With
  MsgBox wkb.Worksheets("Feuil1").Range("A1") ' Lecture de la cellule A1 de Feuil1
  wkb.Close ' Fermeture de l'application
  ' appliExcel.Visible = True ' on affiche l'application
  Set App = Nothing
End Sub

[Marc-L]

Bonjour.

j'ai penser à Application.ScreenUpdating = False, mais on voit malgré tous le fichiers s'ouvrir puis se fermer.

De mon côté avec différentes versions d'Excel,

avec Application.ScreenUpdating = False on ne voit ni les fichiers s'ouvrir ni se fermer ‼

[Philippe Tulliez]

Bonjour,
La remarque de Marc est tout à fait exacte avec une nuance tout de même. Si on arrête la procédure ou si on laisse le deuxième classeur ouvert, il est parfaitement possible de le visualiser.
De même il est apparent dans la barre des tâches alors que si l'on ouvre une deuxième instance en rendant le classeur invisible l'utilisateur ne voit rien.

[Invité]

rien ne t’empêche d’ouvrir une nouvelle session de Excel qui elle reste masqué:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim E As Excel.Application
Dim wb As Workbook
Set E = New Excel.Application
E.Visible = False
Set wb = E.Workbooks.Open("c:\Mon.Xls")
wb.Close False
E.Quit
Set wb = Nothing
Set E = Nothing
End Sub

désolé j'avais pas vue que la réponse avait déjà été donné par Philippe Tulliez!

[Nono Sto]

Merci

En effet cela marche, j'ai été tromper car je travaille en pas à pas /debug, mais lorsqu'on enleve les point d'arret et on laisse la macro tourner le fichier n'apparait pas.

Merci