Ouverture classeur

[CP79]

Bonjour tout le monde,
J'ouvre un classeur A qui ouvre un classeur B...

Private Sub Workbook_Open()
Workbooks.Open ("C:\Documents and Settings\Moi\Mes documents\GestionVelo\Gestion_parcours.xlsm")
End Sub

... jusqu'ici tou va bien. Par contre je voudrais que le classeur A s'affiche après avoir ouvert le classeur B, comment faire ?

 

[jeanpierre]

Re : Ouverture classeur

Bonjour CP79, re tous,

Essaies avec un truc comme cela : Windows("LeNomDeTonClasseur").Activate avant le End Sub

A te lire.

Jean-Pierre

 

[CB60]

Re : Ouverture classeur

Bonjour
Je pense que cela doit fonctionné
Private Sub Workbook_Open()
Workbooks.Open ("C:\Documents and Settings\Moi\Mes documents\GestionVelo\Gestion_parcours.xlsm")
Windows("Nom de ton classeur.xls").Sheets("nom de ta feuille").activate
End Sub

 

[CP79]

Re : Ouverture classeur

Re,
Erreur execution 9 : l'indice n'appartient pas à la selection, quand je met le chemin complet pour aller au classeur ( c: etc )
Erreur execution 438 : propriete ou methode non geree par l'objet, quand je met uniquement le nom du classeur

 

[MJ13]

Re : Ouverture classeur

Bonjour à tous

Tu peux essayer ainsi

Private Sub Workbook_Open()
nomf = ActiveWorkbook.Name
Workbooks.Open ("C:\MonDossier\MonFichier.xls")
Workbooks(nomf).Activate
End Sub

Attention si tu as option explicit, tu peux l'enlever (car dans ce cas tu dois définir toutes tes variables).

 

[CP79]

Re : Ouverture classeur

Merci MJ13, ça fonctionne parfaitement