Onglet et macro qui coince...

[pascalmou]

Je suis a réaliser une macro et je voudrais copier dans un dossier appeller SAUVEGARDE 2005 cette feuille de la cellule A1 a F30.
Dans le dossier SAUVEGARDE, le classeur se nommeras sauvegarde
L'onglet de ce classeur devras ce nommer comme dans la cellule B3 soit pour mon exemple BJ/01.
Ensuite cela m'enregistre ma feuille, me la ferme.

Je peut ensuite changer le nom de ma cellule B3 en BJ/150 par exemple et cela ira m'enregistrer alors ma feuille dans le classeur sauvegarde avec un nom d'onglet BJ/150 etc

Ceci afin d'avoir une sauvegarde de toute mes feuille

Mais ma macro coince.... :angry:

Je vous est joint le début de mes travaux

Merci [file name=onglet.zip size=12379]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/onglet.zip[/file]

 

[pat1545.]

Salut,

déjà pour commencer :
un onglet ne peut contenir un '/'


Patrick

 

[pat1545.]

re:

un peu modifié ton code:

Sub test()
'
' test Macro
' Macro enregistrée le 08/04/2005 par pascal m
'

'
Application.ScreenUpdating = False ' pour geler ecran
Workbooks.Open Filename:= _
'Feuille sauvegarde.xls'
Sheets.Add
ActiveWindow.WindowState = xlMinimized
Windows('feuille A.xls').Activate
'ActiveWindow.WindowState = xlMaximized
Range('A1:F3').Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Windows('Feuille sauvegarde.xls').Activate
ActiveWindow.WindowState = xlMaximized
ActiveSheet.Paste
Range('B3').Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = 'BJ-20'
Range('B3').Select
Sheets('Feuil1').Select
Sheets('Feuil1').Name = [B3]
Range('A4').Select
' ActiveWorkbook.Save ' en rem pour le test
' ActiveWindow.Close ' à enlever le ' en début de ligne
' Range('E21').Select '
End Sub

Patrick

 

[pascalmou]

Merci j'ai encore modifié 2 ou 3 ligne et cela fonctionne maintenant