nom de l'onglet auto

[j p été1plomb]

Bonjour a tous et a toutes,

Voici mon souci :

Quand je sauvegarde ce bon dans un dossier 'sauvegarde' j'aimerai que l'onglet de la nouvelle feuille créée se nomme automatiquement
Avec le N° du bon
Merci de votre aide

 

[pitchoune85]

bonjour jp et le forum
peut être ceci pourra t'aider :
(en supposant que ton classeur soit ouvert) :
je la m^me chose ds mon fichier et cet argument est dans ma macro qui me sert à sauvegarder ma feuille ds la dossier.
si tu veux la macro complète, dis le moi :

Windows('nom de ton classeur.xls').Activate
Sheets('feuillesauvegardée_ancien nom').Activate
Sheets('feuillesauvegardée_ancien nom').Name = Range('cellule où se trouve le nom à copier')

j'espère avoir pu t'aider
salt

 

[j p été1plomb]

ok je veut bien ta macro
merci de ton aide inch: j'ai quelque neuronnes qui chaffent !!!!!

 

[pitchoune85]

Private Sub Cmdsauvegarde_Click()

Dim Cell As Range
Dim Ref$
Dim OldCalculation&

If MsgBox('Voulez vraiment réaliser la sauvegarde du mois en cours ?', vbYesNo) = vbNo Then
Cmdannuler4.SetFocus
Else
Title = 'Attention sauvegarde du mois en cours.'

usfmenu.Hide
'Selection classeur de sauvegarde :
'_______________________________________________________
Workbooks.Open Filename:= _
'C:\\Documents and Settings\\Aloa\\Mes Documents\\OGEC\\OGEC_Sauvegarde PLVT.xls'
'_______________________________________________________

'Copier feuille 'Moisencours' :
Windows('Planning ecole_2006.xls').Activate
Sheets('Moisencours').Select
Sheets('Moisencours').Copy Before:=Workbooks('OGEC_Sauvegarde PLVT.xls'). _
Sheets(1)

'Oter les formules dans feuille de sauvegarde et les remplacer par leurs valeurs :
Windows('OGEC_Sauvegarde PLVT.xls').Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('a1').Select

'Copier feuille 'AVIS PLVT' :
Windows('Planning ecole_2006.xls').Activate
Sheets('AVIS PLVT').Select
Sheets('AVIS PLVT').Copy Before:=Workbooks('OGEC_Sauvegarde PLVT.xls'). _
Sheets(2)

'Oter les formules dans feuille de sauvegarde et les remplacer par leurs valeurs :
Windows('OGEC_Sauvegarde PLVT.xls').Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('a1').Select

'Renommer les feuilles 'Moisencours' et 'AVIS PLVT' du dossier d'archives :
Windows('OGEC_Sauvegarde PLVT.xls').Activate
Sheets('Moisencours').Activate
Sheets('Moisencours').Name = Range('AF2')
Sheets('AVIS PLVT').Activate
Sheets('AVIS PLVT').Name = Range('au1')

'Revenir au menu du planning :
Windows('OGEC_Sauvegarde PLVT.xls').Activate
ActiveWorkbook.Save
ActiveWindow.Close

Windows('Planning ecole_2006.xls').Activate
Sheets('Moisencours').Activate

End Sub

j'espère que ca pourra t'aider
sinon, joint ton fichier et je regarderai
salut B)

 

[pitchoune85]

oh fait une petite précision
cette macro n'est pas tout à fait de moi : je pense que c'est charly2 qui m'avait aider alors merci à lui et tous les autre qui m'ont apporté de l'aide sur ce forum