Enregistrer une seule feuille

[k@rl]

Bonsoir le forum,
Qui peut m'aider sur différents problèmes rencontrés lors de la mise au point de mon programme ?
Je voudrais enregistrer une seule feuille de mon classeur,'Répartions du mois' et la stocker dans un autre dossier (historique).
Cette feuille la renommer du mois précédant au mois actuel.
Ne pas enregister les Boutons d'appel des macros.
Merci pour votre aide
Cordialement. [file name=conso_elec.zip size=47535]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/conso_elec.zip[/file]

 

[guitarde]

Essaye la macro suivante...

Sub Macro5()
'
vNomFichier = Range('c5').Value & '.xls'
vRépertoire = 'H:\\Personnel\\Usine\\Historique consommation mensuelle\\'

Sheets('Répartitions du mois').Copy
ChDir vRépertoire

ActiveSheet.Shapes('Button 1').Delete
ActiveSheet.Shapes('Button 2').Delete
ActiveSheet.Shapes('Button 3').Delete
Range('A1').Select

vNomFichier = vRépertoire & vNomFichier

ActiveWorkbook.SaveAs Filename:=vNomFichier, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False

ActiveWindow.Close
End Sub


Ca semble faire pas mal de méga-watts mais la facture ici est pas mal plus grosse. On a 9 fours qui fonctionnent à 50 mW chaque...

Salut
Eric

 

[john]

Bonsoir,

Ci-joint ton fichier modifié comme tu le veux.

Bonne soirée.

John

Ps: j'ai juste oublié d'enlever la remarque dans le code pour le chemin de l'enregistrement[file name=conso_elec_20051219220134.zip size=43797]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/conso_elec_20051219220134.zip[/file]

Message édité par: john, à: 19/12/2005 22:03

 

[MichelXld]

bonsoir

j'espere que ces infos pourront t'aider


Dim i As Integer

'copy feuille dans un nouveau classeur
Sheets('Répartitions du mois').Copy

'renomme la feuille avec le nom du mois precedent
ActiveSheet.Name = Format(DateSerial(Year(Date), Month(Date) - 1, 1), 'mmmm')

'sauvegarde le nouveau classeur
ActiveWorkbook.SaveAs ('J:\\\\\\\\Sauvegarde.xls')

'suppression boutons
For i = ActiveWorkbook.Sheets(1).Shapes.Count To 1 Step -1
ActiveWorkbook.Sheets(1).Shapes(i).Delete
Next i

'fermer le classeur
'ActiveWorkbook.Close



bonne soiree
MichelXld

 

[k@rl]

Bonsoir MichelXLD, John, Guitarde, et le forum

Merci beaucoup pour vos solutions rapides.
Cela fonctionne inpeccable.

PS: Pour Guitarde, heureusement on ne paye pas ce genre de facture à la fin du mois !!!!!

 

[k@rl]

Bonsoir MichelXLD, John, Guitarde, et le forum

Merci beaucoup pour vos solutions rapides.
Cela fonctionne inpeccable.

PS: Pour Guitarde, heureusement on ne paye pas ce genre de facture à la fin du mois !!!!!