Création automatique de feuilles sous excel

mat777 -  
PapyLuc51 Messages postés 4519 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voila je vous expose mon problème :
Je dois créer un fichier excel qui contient plusieurs fois la même feuille. Le problème est que chacune de ces feuilles doit être renommer selon une date : une réunion s'effectue tous les lundi par exemple et je souhaite créer un feuille pour chaque lundi. Il faut qu'elles soient nommées comme ceci : 17-mai, 25-mai, 31-mai... jusqu'à la fin de l'année.
Je voulais savoir si il n'y avais pas un moyen pour qu'excel les crées automatiquement ?

Merci d'avance,
A voir également:

3 réponses

Réponse 1 / 3
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
Bonjour,

je viens de réaliser une macro qui permettra de simplement créer une feuille à l'ouverture du classeur, si le jour est un lundi.

Pour cela, après avoir ouvert votre classeur, appuyez sur Alt+F11 pour entrer dans l'éditeur de macros. A gauche, clic droit sur "This Workbook" et cliquez sur Code. Coller le code suivant, et enfin enregistrer votre classeur en .xlsm

Le code est le suivant : 
'Macro d'ajout de feuille 
Private Sub Workbook_Open()
If Weekday(Date) = 2 Then 'si le jour où l'on ouvre le fichier est un lundi'
Sheets.Add After:=Sheets(Sheets.Count) 'ajouter une feuille
' et on la renomme avec numéro du jour - nom du mois (17-mai par exemple)
Sheets(Sheets.Count).Name = Day(Date) & "-" & MonthName(Month(Date))

End If
End Sub


Cette macro est à améliorer si vous souhaitez qu'elle ait directement la même allure qu'une feuille déjà présente.

Attention à ne pas ouvrir le classeur plusieurs fois dans la journée, sinon cela risque de planter.

Pour toutes informations, je suis à votre disposition.

Cordialement.
0
Réponse 2 / 3
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
Modification de la macro en testant si la feuille existe déjà : 
Private Sub Workbook_Open()
If Weekday(Date) = 2 Then
For i = 1 To Sheets.Count
If Sheets(i).Name = Day(Date) & "-" & MonthName(Month(Date)) Then Exit Sub
Next i
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Day(Date) & "-" & MonthName(Month(Date))
End If
End Sub
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Salut Chossette,
Si je peux me permettre, juste une petite modif de ton code. Si l'utilisateur ouvre le classeur un mercredi, cette modif permet de créer la nouvelle feuille en date du lundi (jour de réunion) : 
Private Sub Workbook_Open()
Dim lundi As Date
lundi = Date
Do While Weekday(lundi) <> 2
lundi = lundi - 1
Loop
For i = 1 To Sheets.Count
If Sheets(i).Name = Day(lundi) & "-" & MonthName(Month(lundi)) Then Exit Sub
Next i
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Day(lundi) & "-" & MonthName(Month(lundi))
End Sub

Passe une bonne journée
0
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
Merci pour la modif, je m'était borné au fait de créer la feuille seulement le lundi.
0
mat777
 
Merci à vous jvais tester tout ca !
0
Réponse 3 / 3
youcefesa Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour
J'ai un fichier Excel avec une feuille contenant plus de 2000 lignes de données sur plusieurs colonnes.

les données sont relatives à des sites (villes) bien précis.

Nom_Ville|Nbr_contact|Ressource_M|Ressources_H|Adresse|date|etc


Je veux créer des classeurs autant de fois qu'il y a de ville;

avec le nom de fichier correspondant au nom de la ville(champs ville)+la date (champs date);

(avec la même mise en forme) et;

les données qui vont avec chaque ville.

Voilà.

Merci
0
PapyLuc51 Messages postés 4519 Date d'inscription   Statut Membre Dernière intervention   1 486
 
Eriiic et moi avons répondu à cette dernière demande à l'adresse suivante :

https://forums.commentcamarche.net/forum/affich-25189801-excel-creation-de-feuille-et-copie-automatiqu#p25398525

Cdlmt
0