COPER DES FEUILLES

[TONY]

BONJOUR LE FORUM?
POURRIEZ VOUS M'AIDER SUR CETTE PROGRAMMATION (cf), JE SOUHAITERAIS QU'APRES CETTE PROGRAMMATION LA FENETRE DE SAUVEGARE S'OUVRE ET QUE LE FICHIER SOIT PRES A ETRE ENREGISTRE, MAIS AU NOM QUE J'AURAIS PREALABLEMENT INSCRIT DANS LA CELLULE A1 DE LA FEUILLE 1
PAR AVANCE MERCI DE VOTRE AIDE
TONY

Application.ScreenUpdating = False
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets(Array('PAGE DE GARDE', 'Synthèse de marge', 'TARIF V BOVINE R', _
'TARIF PORC', 'TARIF VEAU ', 'TARIF AGNEAU', 'TARIF CAISSETTE ECO', _
'TARIF PLATEAUX', 'TARIF ABATS')).Select
Sheets('PAGE DE GARDE').Activate
Sheets(Array('PAGE DE GARDE', 'Synthèse de marge', 'TARIF V BOVINE R', _
'TARIF PORC', 'TARIF VEAU ', 'TARIF AGNEAU', 'TARIF CAISSETTE ECO', _
'TARIF PLATEAUX', 'TARIF ABATS')).Copy
Application.ScreenUpdating = True

 

[JC de Lorient]

salut
je comprends pas trop ton code
si tu veux enregistrer ton classeur ça peut donner ça :
Sub Macro1()
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\Jean Charles\\Mes documents\\' & Sheets('Feuil1').Range('A1').Value & '.xls'
End Sub

 

[JC de Lorient]

re
je viens de piger (je crois)
tu veux enregistrer tes feuilles 1 à 1 ?

 

[JC de Lorient]

re
attention dans le code envoyé les anti slashs ne passent pas
faut les remettre a leur place

 

[Dan]

Bonjour,


Jc de Lorient, je pense que ce qu'il veut faire c'est enbregistrer toutes ces feuilles vers un classeur particulier.

Tony, essaie ce code

Sub Macro()
Sheets(Array('PAGE DE GARDE', 'Synthèse de marge', 'TARIF V BOVINE R', _ 
'TARIF PORC', 'TARIF VEAU ', 'TARIF AGNEAU', 'TARIF CAISSETTE ECO', _ 
'TARIF PLATEAUX', 'TARIF ABATS')).Copy
End sub

Reste à savoir, si tu veux enregistrer automatiquement ou en te laissant le choix du classeur. Dans ce cas cela t'enregistrera les feuilles dans un nouveau classeur que tu peux renommer à ta guise.

😉

 

[Dan]

Re,

Un peu plus complet avec la valeur de la cellule A1 de ta feuille 1 :

Sub Macro1()
' Macro par DAN pour Tony
' [B]Lien supprimé[/B]
Dim monnom As String
Application.ScreenUpdating = False
monnom = ThisWorkbook.Sheets('feuil1').Range('A1')
Sheets(Array('PAGE DE GARDE', 'Synthèse de marge', 'TARIF V BOVINE R', _
'TARIF PORC', 'TARIF VEAU ', 'TARIF AGNEAU', 'TARIF CAISSETTE ECO', _
'TARIF PLATEAUX', 'TARIF ABATS')).Copy
With Application
.GetSaveAsFilename (monnom)
.ScreenUpdating = True
End with
End Sub

Bonne journée

😉

Message édité par: Dan, à: 13/06/2006 08:45

 

[TONY]

BONJOUR DAN, BONJOUR JC
C'EST SUPER TON EXEMPLE FONCTIONNE, LA FENETRE DE SAUVEGARDE PORTE LE NOM DE LA CELLULE COMME PREVU SEULEMENT APRES AVOIR CLIQUER SUR ENREGISTRER JE NE RETROUVE PAS MON FICHIER !!

Sub Macro1()
' Macro par DAN pour Tony
' Lien supprimé
Dim monnom As String
Application.ScreenUpdating = False
monnom = ThisWorkbook.Sheets('SOMMAIRE').Range('B4')
Sheets(Array('PAGE DE GARDE', 'Synthèse de marge', 'TARIF V BOVINE R', _
'TARIF PORC', 'TARIF VEAU ', 'TARIF AGNEAU', 'TARIF CAISSETTE ECO', _
'TARIF PLATEAUX', 'TARIF ABATS')).Copy
With Application
.GetSaveAsFilename (monnom)
.ScreenUpdating = True
End With
End Sub

 

[Dan]

Re,

Normal, l'avantage est que tu peux justement choisir l'endroit où tu veux le conserver.

Donc là regarde dans la fenetre pour choisir ton répertoire et dans ton cas retrouver où le fichier a été sauvegardé.

Si tu veux le sauvegarder dans un répertoire défini, il faut le préciser mais dans le cas où tu voudras changer, il faudra réadapter ta macro.

Juste une petite remarque, pourquoi cries-tu ('crier' veut dire écrire en majuscules) lorsque tu poses une question ? Essaie d'éviter cela car c'est pas toujours apprécié sur un forum.

Si pb n'hésite pas

😉

 

[tony]

bonjour DAN, bonjour le FORUM,
j'ai toujours un petit probleme dans la macro que tu m'as donné, apres avoir enregistré mon fichier dans la fenetre de sauvegarde je ne retrouve mais nul part celui ci meme en faisant une recherche
merci par avance de votre aide
TONY

 

[Dan]

Bonsoit Tony,

Désolé mais une petite erreur dans la macro.
Essaie plutôt ceci :

Sub Macro1()
' Macro par DAN pour Tony
' [B]Lien supprimé[/B]
Dim monnom As String
Application.ScreenUpdating = False
monnom = ThisWorkbook.Sheets('feuil1').Range('A1')
Sheets(Array('PAGE DE GARDE', 'Synthèse de marge', 'TARIF V BOVINE R', _
'TARIF PORC', 'TARIF VEAU ', 'TARIF AGNEAU', 'TARIF CAISSETTE ECO', _
'TARIF PLATEAUX', 'TARIF ABATS')).Copy
With Application
.Dialogs(xlDialogSaveAs).Show (monnom)
.ScreenUpdating = True
End with
End Sub

Si pb n'hésite pas

😉