sélection onglet

N

nicolas

Guest

• 4 Mai 2004

• #2

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

 

Vote positif 0 Vote négatif

Y

Yann

Guest

• 4 Mai 2004

• #3

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

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 4 Mai 2004

• #4

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")

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 4 Mai 2004

• #5

Enfin je dis n'imp'

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

 

Vote positif 0 Vote négatif

Y

Yann

Guest

• 4 Mai 2004

• #6

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 !

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 4 Mai 2004

• #7

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

 

Vote positif 0 Vote négatif

Y

Yann

Guest

• 4 Mai 2004

• #8

Merci Nico,


Une autre âme charitable pourrait elle m'aider ?

Merci bcp d'avance.

Yann

 

Vote positif 0 Vote négatif

D

Damos

Guest

• 4 Mai 2004

• #9

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

 

Vote positif 0 Vote négatif