Discussion :

[Invité]

Bonjour,

J'ai besoins d'aide. Dans un formulaire, j'ai crée un bouton qui permet de copier certaines feuilles du classeur dans un nouveau classeur.
Je souhaite avoir une macro qui permet de copier les feuilles dans le nouveau classeur et enregistrer automatiquement ce dernier avec le nom du classeur original + l'année précédent celle encours ( date système Windows).

voici ci dessous le code du bouton. Je ne sais plus comment enregistrer automatiquement le nouveau classeur sous le nom voulu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton11_Click()
Dim i As Byte
With ThisWorkbook
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre", "RECAPITULATIF")).Copy
 
End With
 
' je souhaite insérer un code ici pour l'enregistrement automatique du nouveau classeur.
 
Sheets("Janvier").Range("A3:H756").ClearContents
Sheets("Février").Range("A3:H756").ClearContents
Sheets("Mars").Range("A3:H756").ClearContents
Sheets("Avril").Range("A3:H756").ClearContents
Sheets("Mai").Range("A3:H756").ClearContents
Sheets("Juin").Range("A3:H756").ClearContents
Sheets("Juillet").Range("A3:H756").ClearContents
Sheets("Aout").Range("A3:H756").ClearContents
Sheets("Septembre").Range("A3:H756").ClearContents
Sheets("Octobre").Range("A3:H756").ClearContents
Sheets("Novembre").Range("A3:H756").ClearContents
Sheets("Décembre").Range("A3:H756").ClearContents
End Sub

Je souhaiterai aussi que mon bouton ( buttoncommand11) sois actif si et seulement si le mois du système Windows est janvier (1)

Merci d'avance.

[blepy]

Bonjour,

Une manière simple qui aiguille bien, c'est d'enregistrer une macro en faisant manuellement les opérations souhaitées ensuite récupérer le code et l'adapter.

A+

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Name & Format(Year(Now()) - 1; "0000")

[Invité]

Merci, Le fichier est bien créé et enregistré. Mais n'est pas valide. L'année apparaît juste après l'extension "xls".

[Philippe Tulliez]

Bonjour,

Merci, Le fichier est bien créé et enregistré. Mais n'est pas valide. L'année apparaît juste après l'extension "xls".

J'imagine qu'il ne te doit pas être difficile d'adapter le code que t'a proposer Menhir.C'est une simple concaténation de chaîne de caractères et j'imagine que tu as deviné pour ne pas dire constaté où se trouve l'année dans cette chaîne.
Si dans une formule d'excel A2 est le Nom et le prénom en B2 et que tu reçois comme réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A2 & " " & B2

et que tu souhaitais obtenir le prénom d'abord et le nom ensuite, j'ose espérer que tu auras toi même fait la correction. Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=B2 & " " & A2

Non ?

La propriété Name de l'objet Workbook renvoie le nom + l'extension, pour isoler le nom de son extension tu peux, il faut trouver où se trouve le point qui les sépare et la fonction Instr te permet de le faire et la fonction Left permettra d'extraire le nom

[Invité]

Merci à vous, j'ai réussit à adapter le code de Menhir.