Création automatique de feuilles sous excel Fermé

Question

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,

chossette9 · Answer

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.

chossette9 · Answer

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

youcefesa · Answer

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