Re : Remplir une feuille de données
Bonjour Chris
Je suis ton conseil de créer un fichier par mois avec comme nom par exemple 0608Pain. Dans ce fichier j'ai créer ma base sous la forme Date | Produit | Qté fabriquée | Qté invendue.
Bon j'essaye d'utiliser l'enregistreur de macro et après plusieurs essai voici le code obtenu pour l'enregistrement de seulement 1 donnée...
Sub Archiver()
'
' Archiver Macro
' Macro enregistrée le 21/08/2006 par jyb
'
' Touche de raccourci du clavier: Ctrl+a
'
Workbooks.Open Filename:= _
"C:\Documents and Settings\HP_Administrateur\Mes documents\Gestion Boulangerie\0608Pain.xls"
Windows("Calcul pain.xls").Activate
Range("A5").Select
Selection.Copy
Windows("0608Pain.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Calcul pain.xls").Activate
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0608Pain.xls").Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Calcul pain.xls").Activate
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0608Pain.xls").Activate
Range("C2").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Calcul pain.xls").Activate
Range("B13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0608Pain.xls").Activate
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
La se pose plusieurs problémes...
-->Pour le nom du fichier est il possible de le créer en fonction de la date?
-->Comment faire pour que Excel trouve le bon emplacement (dans le fichier 0608pain) pour stocker les infos?
-->Est il posible de simplifier ce code....
Merci
Jean Yves