Discussion :

[MANOU06]

Bonsoir,

Je voudrais insérer une feuille "toto" dans un nouveau classeur,...mais en créant en même temps le dit nouveau classeur "tutu".

Avez vous quelque chose de simple pour faire cela ?

Merci

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
 
ThisWorkbook.Sheets("Toto").Copy
With ActiveWorkbook
   .SaveAs ThisWorkbook.Path & "\" & "Tutu.xls"
   .Close
End With
End Sub

PS: Écrire en majuscule dans un forum est mal vu

[MANOU06]

ok, je ne savais pas...

Non, ça ne marche pas, ça bog à la ligne

Code :

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

1
2
 
ThisWorkbook.Sheets("TC").Copy

(ma feuille s'appelle "TC"

[mercatog]

Question récurrente: et quel est le message d'erreur?

[MANOU06]

le message est :

Erreur d'exécution 9
L'indice n'appartient pas à la sélection

...

[mercatog]

Dans le classeur où tu as écris ta macro, tu n'as pas de feuille qui s'appelle TC
(sans espace ni avant ni après TC)

[MANOU06]

Si, dans le fichier j'ai nommé la feuille "TC".
La macro n'est pas liée au fichier, elle est dans XLSTART. Je l'appelle lorsque j'en ai besoin.

[mercatog]

Dans le classeur où tu as écris ta macro, tu n'as pas de feuille qui s'appelle TC

remplace Thisworkbook par activeworkbook
il te copie la feuille TC de ton classeur actif
code modifié

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim Wb As Workbook
 
Set Wb = ActiveWorkbook
Wb.Sheets("TC").Copy
With ActiveWorkbook
   .SaveAs Wb.Path & "\" & "Tutu.xls"
   .Close
End With
Set Wb = Nothing
End Sub

[MANOU06]

Merci beaucoup, ça marche bien.

Bonne soirée