sélection onglet

[Yann]

Bonjour à tous,

Je voudrais via un commandbutton, ouvrir un ficier excel et sélectionner un onglet particulier. J'arrive à ouvrir le fichier mais pas me positionner sur un onglet donné.

Merci beaucoup d'avance.
Yann

 

[nicolas]

Salut,
je pense qu'il suffit de rajouter en fin de macro
sheets("nom_onglet")
enfin je crois que c'est ce que tu veux
a plus

 

[Yann]

Merci Nicolas, mais quend j'écris ça le message d'ereur suivant apparaît : "Utilisation incorrecte de la propriété", je ne comprends pas ?

 

[nicolas]

Bne je pense qu'il faut mettre le chemin complet d'acces à l'onglet ou un truc dans le genre (si le classeur que tu ouvres est actif)
ActiveWorkbook.Sheets("nom_onglet") en fin de macro.

Enfin admettons que ta macro soit

Workbook(nomclasseur).open
ActiveWorkbook.Sheets ("nom_onglet")

 

[nicolas]

Enfin je dis n'imp'

c'est plutot Workbook.open Filename:"chemin du fichier"
ActiveWorbook.Sheets("nom_onglet")

 

[Yann]

Même message qu'avant avec le code suivant :

Private Sub CommandButton6_Click()
Set xl = CreateObject("Excel.Application")

xl.Workbooks.Open "C:\Documents and Settings\blg.ALTOWG\Mes documents\test\Modèle\Numérotation.xls"
xl.Visible = True
ActiveWorkbook.Sheets ("Notes")
End Sub

A l'aide !

 

[nicolas]

Bon je crois que je dois revoir ma syntaxe (ca fé que deux semaines que je fé du VBA)
désolé de pas pouvoir t'aider plus mais t'inquiètes un autre va le faire mieux que moi
Et pis là g fini ma journée et je rentre chez moi
a plus
koko

 

[Yann]

Merci Nico,


Une autre âme charitable pourrait elle m'aider ?

Merci bcp d'avance.

Yann

 

[Damos]

Essaye la modif suivante

Private Sub CommandButton6_Click()
Set xl = CreateObject("Excel.Application")

xl.Workbooks.Open "C:\Documents and Settings\blg.ALTOWG\Mes documents\test\Modèle\Numérotation.xls"
xl.Visible = True
xl.Workbooks("Numérotation.xls").Worksheets("Notes").Activate
End Sub

Ca devrait fonctionner.

A+ Damos