Discussion :

[visto94]

Ami(e)s du Forum BONJOUR!!


J'ai un petit problème après avoir créer ma macro je souhaite que son résultat s'affiche dans un nouveaux classeur..
Pour cela mon code est :

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
nom_feuille = "Nom_à_définir.csv"
'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets (ici 5)
xlApp.SheetsInNewWorkbook = 1
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On donne un nom au classeur
xlBook.SaveAs (nom_feuille)
'On rend le classeur visible
xlApp.Visible = True
'On créer l'objet onglet dans le nouveau classeur créé
Set xlSheet = xlBook.Worksheets(1)
'On affecte un nom aux l'onglets
xlSheet.Name = "Nom_bizarre"

Ps: ne faite pas attention au nom de variable c'est pour le test

J'arrive donc a créer mon nouveau classeur mais je n'arrive a me placer dessus avec la ligne :

Code :

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

Workbooks(nom_feuille).Worksheets("Nom_bizarre").Activate

Pour info, je souhaite me placer dessus afin de pouvoir afficher mon résultat!

Voilà je vous remercie d'avance et vous souhaite à tous une bonne journée!

PS2: Si vous avez des questions, ou des points a éclaircir je suis la, je ne quitte pas l'écran

[mercatog]

Ta feuille décrite ici

Code :

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

Workbooks(nom_feuille).Worksheets("Nom_bizarre").Activate

c'est ta xlSheet
tu peux l'appeler

Code :

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

xlSheet.range("A1")="Me voilà dans la feuille 1 du nouiveau classeur"

[mapeh]

bonjour,

Pourquoi créés-tu une deuxième instance d'Excel?

Code :

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

Set xlApp = CreateObject("Excel.Application")

Tu peux très bien travailler sous la même instance....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
NbOrigine = Application.SheetsInNewWorkbook
nom_feuille = "Nom_à_définir.csv"
'On défini le nombre d'onglets (ici 5)
Application.SheetsInNewWorkbook = 1
'On ajoute un classeur
Set xlBook = Workbooks.Add
'On donne un nom au classeur
xlBook.SaveAs (nom_feuille)
'On créer l'objet onglet dans le nouveau classeur créé
Set xlSheet = xlBook.Worksheets(1)
'On affecte un nom aux l'onglets
xlSheet.Name = "Nom_bizarre"
Application.SheetsInNewWorkbook = NbOrigine
Workbooks(nom_feuille).Worksheets("Nom_bizarre").Activate

De plus, lorsque tu modifies l'environnement d'Excel, prend l'habitude de le remettre à son état d'origine...

J'ai rajouté le NbOrigine, qui définissait le nombre d'onglets à la création d'un fichier.
Ainsi, en fin de code, on remet tout comme avant...

Bonne journée