Excel Downloads Forums - Afficher un message

Dan · 01/01/2007, 10h59

Bonjour,

Bonne année à toi et aux tiens.

je réponds partiellement à ta demande, notamment en ce qui concerne les points 1 et 2

Place cette macro en VBA (alt+F11) dans THISWORKBOOK.

Code:

Private Sub Workbook_Open()
'Macro par Dan - le 01/01/07
ThisWorkbook.Sheets("Modele").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = Format(Date, "ddmmyy")
    .Range("A3") = ActiveSheet.Name
End Sub

Une fois placée, veille bien à enregistrer ton fichier avant de le fermer.

Pour l'écriture dans chaque nouvelle ligne, il faut savoir où tu commences à écrire tes données en colonne A. Là une macro à exécuter via un bouton ou raccourci clavier s'impose pour ajouter des lignes.

Le point 3, je pense qu'un petit exemple dans un fichier serait le bienvenu.

A bientôt

01/01/2007, 10h59	#2 (permalink)
Dan XLDnaute Barbatruc Date d'inscription: février 2005 Localisation: Liège Version Excel : Excel 2004 (MAC) Messages: 3 550	Re : dupliquer modéle le nommer à la date Bonjour, Bonne année à toi et aux tiens. je réponds partiellement à ta demande, notamment en ce qui concerne les points 1 et 2 Place cette macro en VBA (alt+F11) dans THISWORKBOOK. Code: Private Sub Workbook_Open() 'Macro par Dan - le 01/01/07 ThisWorkbook.Sheets("Modele").Copy After:=Sheets(Sheets.Count) With ActiveSheet .Name = Format(Date, "ddmmyy") .Range("A3") = ActiveSheet.Name End Sub Une fois placée, veille bien à enregistrer ton fichier avant de le fermer. Pour l'écriture dans chaque nouvelle ligne, il faut savoir où tu commences à écrire tes données en colonne A. Là une macro à exécuter via un bouton ou raccourci clavier s'impose pour ajouter des lignes. Le point 3, je pense qu'un petit exemple dans un fichier serait le bienvenu. A bientôt Dernière modification par Dan ; 01/01/2007 à 15h29.