enregistrer une feuille de calcul dans un autre classeur avec une macro

[jerem17]

bonjour,

je suis en train de créer un classeur client dans lequel ont y trouve
un listing de mes clients
un listing de mes produits
une facture a envoyer

j aimerais copier uniquement certaines cellules (que j ai nommé) de ma feuille facture dans un autre classeur qui me premettrait de tout garder en archive

avec l enregistreur car je maitrise pas le VBA je fais
je vais ds la zone nom je clic sur celle que je veux
copier
j ouvre un classeur vierge
je colle
bouton office enregister sous
je sélectionne le classeur ds lequel je veux enregistrer
je change le type de fichier en mettant avec des macros
mais pour le nom de fichier je suis pommé
j aimerais mettre mon numero de commande (type : 07.01.3267)
merci de votre aide

 

[Paritec]

Re : enregistrer une feuille de calcul dans un autre classeur avec une macro

bonsoir jerem17,
oui tu nous joins un petit fichier avec ce que tu as et ce que tu veux obtenir et on va te faire cela
a+
papou

 

[jerem17]

Re : enregistrer une feuille de calcul dans un autre classeur avec une macro

ok vous avez une adresse?

 

[jerem17]

Re : enregistrer une feuille de calcul dans un autre classeur avec une macro

Sub Macro1()
'
' Macro1 Macro
'

'
Application.Goto Reference:="facture"
Selection.Copy
ChDir "C:\Documents and Settings\jmallarme\Bureau\pour michele dienne\factures"
Workbooks.Open Filename:= _
"C:\Documents and Settings\jmallarme\Bureau\pour michele dienne\factures\listing facture.xlsx"
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
Range("P3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "aaaaa"
Range("H1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

voici la macro mais le probleme est que j arrive pas a mettre commen nom de feuille mon numero de facture
avez vous une adresse mail pour vous envoyer le tout
j en ai besoin pour demain
merci