ouvrir 2eme fichier et le masquer

[herve62]

Bonjour
Comme le dit le sujet , j'ai un fichier que je vais compléter avec un USF , Mais j'ai besoin d'ouvrir un 2eme fichier( pour extraction)
- Dès l'ouverture de l'USF j'ai déjà besoin de quelques données ( Initialize) donc je l'ouvre

Private Sub UserForm_Initialize()
chemin = "C:\DATA\exceldata\Perm\Planning Permanences.xlsx"
Workbooks.Open(Filename:=chemin) _
        .RunAutoMacros Which:=xlAutoOpen

Dans "This workbbok" j'ai mis MENU.SHOW 0
ma 1ere Feuille START j'avais trouvé :

Private Sub Worksheet_Activate()
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
ActiveWindow.Visible = False
End If
End Sub

Mais je vois quand même apparaitre le 2eme Fichier derrière l'USF et j'aimerai REster sur ma feuille START et ne pas voir ce fichier
Je pense que c'est OU le placer ? ou autre instruction ?
Merci

 

[Pierrot93]

Re : ouvrir 2eme fichier et le maasquer

Bonjour,

essaye ceci, enfin si j'ai bien compris :

Dim w As Workbook
chemin = "C:\DATA\exceldata\Perm\Planning Permanences.xlsx"
Set w = Workbooks.Open(Filename:=chemin)
Windows(w.Name).Visible = False

bon après midi
@+

 

[herve62]

Re : ouvrir 2eme fichier et le maasquer

Merci Pierrot
Mais il manque pas un truc avec w.Name ???

 

[Pierrot93]

Re : ouvrir 2eme fichier et le masquer

Re,

Mais il manque pas un truc avec w.Name ???

pas je dirais non... as tu testé ?

 

[herve62]

Re : ouvrir 2eme fichier et le masquer

Bin oui justement j'ai fait

Private Sub Workbook_Open()
Dim w As Workbook

'ActiveWindow.DisplayHeadings = False
'ActiveWindow.DisplayGridlines = False

chemin = "C:\DATA\exceldata\Perm\Planning Permanences.xlsx"
Set w = Workbooks.Open(Filename:=chemin)
Windows(w.Name).Visible = False
Menu_P.Show 0
End Sub

et à WIndows j'ai Erreur 9 > l'indice n'appartient pas à la selection pourtant quand je passe la souris dessus je vois bien mon nom de fichier

 

[Pierrot93]

Re : ouvrir 2eme fichier et le masquer

Re,

bah comprends pas trop... ce type de code fonctionne chez moi...

 

[Pierrot93]

Re : ouvrir 2eme fichier et le masquer

Re,

A noter, j'ai placé le code dans un module standard, fais la même chose et appele ta procédure de l'événement "open"

 

[Pierrot93]

Re : ouvrir 2eme fichier et le masquer

Re,

essaye peutt être aussi ceci :

Application.Windows(w.Name).Visible = False

 

[herve62]

Re : ouvrir 2eme fichier et le masquer

Bon j'ai trouvé ou presque mon fichier a déjà des liens avec celui que je dois ouvrir ( il récupère des données)
Donc j'en ai crée un autre qui fait pareil sans la feuille avec les liens et ça marche
Alors pourquoi ça fiche la panique ... ??? va savoir !!
J'ai quand même un message Alerte que j'ai jamais vu en tout cas avec 2007
Est ce que ça vient de là ??
Je pense que je vais retirer tous ces liens puisque je vais remplir en VBA !