elguau
XLDnaute Junior
Bonjour le forum,
J'ai lu bcp d'articles sur le forum mais je ne trouve pas ma réponse. J'ao le code suivant, mais je voudrais que la macro tourne tous les jours (bien sur, si le fichier est ouvert, donc de lundi au vendredi) à la même heure et qu'elle finisse avec un enregistrement automtique. J'avoue que je ne conaît pas le code pour faire cela.
Merci de votre aide.
David
J'ai lu bcp d'articles sur le forum mais je ne trouve pas ma réponse. J'ao le code suivant, mais je voudrais que la macro tourne tous les jours (bien sur, si le fichier est ouvert, donc de lundi au vendredi) à la même heure et qu'elle finisse avec un enregistrement automtique. J'avoue que je ne conaît pas le code pour faire cela.
Code:
Sub bases()
Sheets("hist").Rows("5:5").Insert shift:=xlDown
Range("A4:at4").Select
Selection.Copy
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
End Sub
Merci de votre aide.
David