enregistrement feuil

  • Initiateur de la discussion caroline
  • Date de début
C

caroline

Guest
bonjour a vous
je suis pas o top pour le vba
je voudrai sur un classeur enregistré une feuil sur le meme classeur
avec la possibilité de choisir le nom de longlet

merci pour l'info et votre aide
 
T

Thomas®

Guest
Bonjour caroline,

voila

le mieux pour debuter est de faire le code de tes macro avec 'Outils', 'macro' et 'nouvelle macro'.

puis de reprendre le code afin de faire ce genre de USF

Bonne soirée
Thomas [file name=Classeur2_20050511192625.zip size=9317]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050511192625.zip[/file]
 

Pièces jointes

  • Classeur2_20050511192625.zip
    9.1 KB · Affichages: 15
C

caroline

Guest
bonsoir merci pour ton aide

mais jai un petit probléme je narrive pas a coller le feuil1 dans le nouveau classeur crée
merci et bonne soirée [file name=Tableur de base pour budget_20050511202507.zip size=21291]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tableur de base pour budget_20050511202507.zip[/file]
 

Pièces jointes

  • Tableur de base pour budget_20050511202507.zip
    20.8 KB · Affichages: 15
T

Thomas

Guest
re, le forum,

Tu n'y arrives pas car le nom de ta feuille est Feuil1

Car excel crée automatiquement 3 feuil dans les classeurs et feuil1 en est une.

Dans ton cas 2 solutions possible :

1) soit sur décide d'appeler ta feuille autrement
2) quand tu crées le nouveau fichier excel tu lui précise de ne pas créer de feuille dedans.

En fait sans info de ta part sur la fonction précis de ta macro le forum ne peut pas et ne fera pas de réflexion poussé sur ta demande et de ce fait tu risques d'avoir des solutions qui vont te convenir dans l'immédiat mais plus si tu complexifie ton fichier.

Bonne soirée
Thomas
 
C

caro

Guest
Private Sub CommandButton1_Click()
Range('A1:L125').Select
Selection.Copy

Set NewSheet = Sheets.Add(Type:=xlWorksheet)

NewSheet.Name = Feuille
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste

Unload UserForm1
Call raz

merci de votre aide jai trouvé
bonne soirée
 

Discussions similaires

Réponses
17
Affichages
881
Réponses
4
Affichages
265

Statistiques des forums

Discussions
313 058
Messages
2 094 885
Membres
106 115
dernier inscrit
bruno lemaire