macro Workbook_Open

[julie999]

bonjour
je cherche a creé une petite macro a l'ouverture d'un fichier:
la cellule a1 de la feuille 1contient la date systeme sous forme sam 06 aout 2011

est il possible qu'a chaque 01 du mois (exemple pour le 01 aout 2011):faire une copie de la feuille "modele1" et la renomée avec la date contenue dans la cellule a1 de la feuille 1 sous la forme aout 2011

et il possible qu'a chaque 01 janvier 'exemple pour le 1er janvier 2012):faire une copie de la feuille "recap" et la renomée avec la date contenue dans la cellule a1 de la feuille 1 sous la forme recap 2012

le plus difficile
mettre une securite a l'ouverture du fichier si la feuille est deja crée ne rien faire


merci julie

 

[Softmama]

Re : macro Workbook_Open

Bonjour,

Tu peux tester ceci, dans une procédure workbook_Open

Din NFeuil as string, NFeuilAn as String, Mois as boolean, Annee as Boolean
nFeuil =  Format(sheets(1).[A1],"mmmm yyyy")
nFeuilAn = "recap " & Format(Sheets(1).[A1],"yyyy")
Mois= true: Annee = true
For t=1 to activeworkbook.sheets.count
   if sheets(t).Name = nFeuil then Mois= false
   if sheets(t).Name = nFeuilAn then Annee = false
Next t
If Mois and Day(Now)=1 Then Sheets("Modele1").Copy After:=activeworkbook.sheets.count:Activesheet.Name = nFeuil
If Annee and day(now)=1 and month(now)=1 then Sheets("Recap").Copy After:=activeworkbook.sheets.count:Activesheet.Name = nFeuilAn

 

[KenDev]

Re : macro Workbook_Open

Bonsoir Julie,

Pourrais tu joindre un petit fichier exemple avec la date comme elle est indiquée? ce serait mieux pour faire des essais pertinents. Cordialement

KD

Edit : bonsoir Carcharon, Softmama

 

[julie999]

Re : macro Workbook_Open

salut softmama,carcharodon,le fil
softmama ta solution est plus simple pour moi la comprendre par contre il y a une erreur de syntaxe sur la premiere ligne
Din NFeuil as string, NFeuilAn as String, Mois as boolean, Annee as Boolean
julie

 

[Softmama]

Re : macro Workbook_Open

Re,

Il n'y a pas je pense d'erreur de syntaxe. As-tu bien inséré ce code dans une procédure Workbook_open ? (Thisworkbook, choisir Workbook_open)

Private Sub Workbook_Open()
'... le code 
End Sub

EDIT: Ha ben si, y a une erreur 😛

 

[Staple1600]

Re : macro Workbook_Open

Bonsoir

C'est Dim et non pas Din

Désolé SoftMamama 😉

 

[Softmama]

Re : macro Workbook_Open

re

lol, merci Staple, en effet, c'est Dim... J'vais même pas vu ^^

 

[julie999]

Re : macro Workbook_Open

en faite les noms de feuilles et de la cellule pour la date sont des exemples j'aurais adapté apres selon mon fichier mais si vous pouvez le faire directement sur mon fichier c'est encore mieux"j'ai beau etre brune parfois je suis blonde"
voici donc les bonne informations
j'aimerais qu'a l'ouverture du fichier a chaque debut de mois (le 1er) il faut copier la feuille "juillet 2011" date contenue dans la cellule k3 et la renomée avec le mois suivant donc aout 2011 bien sure le feuille aout2011 serait vierge les cases de couleur seraient effacées a la creation de la page"
et faire la meme chose pour la feuille recap a chaque debut d'année copié la feuille recap 2011 date dans la cellule k3 aussi et la renomé avec l'année suivante donc recap 2012(idem les cases de couleur seront effacées sur la feuille 2012

voici donc les bonnes informations

l'ideal serait une securite a l'ouverture deu classeur si la feuille existe deja ne rien faire sinon la crée

julie

 

[Softmama]

Re : macro Workbook_Open

Re,

Vois si le fichier joint réalise ce que tu souhaites...

 

[julie999]

Re : macro Workbook_Open

re il y a un probleme sur cette ligne
If Mois And Day(Now) = 1 Then Sheets("Modele").Copy After:=ActiveWorkbook.Sheets.Count: ActiveSheet.Name = NFeuil: [K3] = Int(Now)

 

[KenDev]

Re : macro Workbook_Open

Re bonsoir,

Softmama semblant déconnecté, peut-être comme ça :

Edit : oups, mal lu, la création de la feuille aout d'après juillet se passe le 1er juillet ou le premier aout ?

Cordialement

KD

 

[julie999]

Re : macro Workbook_Open

non toujours pas ce morceau de code apparait en jaune et rien ne se passe

 

[KenDev]

Re : macro Workbook_Open

Re,

Oui j'ai édité mon message précédent : la création de la feuille aout d'après juillet se passe le 1er juillet ou le premier aout ?

Cordialement

KD

 

[julie999]

Re : macro Workbook_Open

oui mais avec cette macro si j'entre la date du 01 septembre en k3 il va me creer la feuille setembre 2011 a 'louverture du classeur non

 

[KenDev]

Re : macro Workbook_Open

Bon faut que j'arrête d'éditer mes messages pendant que tu postes 🙂 Je recopie ici :

Si c'est le premier aout 2012, ce code devrait aller chercher la feuille juillet 2012 et la recopier et la renommer en aout.

Private Sub Workbook_Open()
Dim NFeuil As String, NFeuilAn As String, Mois As Boolean, Annee As Boolean, NOFeuil As String
NFeuil = Format(Now, "mmmm yyyy") 'exemple 1er aout=août 2012
NOFeuil = Format(Now - 15, "mmmm yyyy") 'exemple 1er aout=juillet 2012
NFeuilAn = "recap " & Split(NFeuil)(1)
Mois = True: Annee = True
For t = 1 To ActiveWorkbook.Sheets.Count
   If Sheets(t).Name = NFeuil Then Mois = False
   If Sheets(t).Name = NFeuilAn Then Annee = False
Next t
If Mois And Day(Now) = 1 Then Sheets(NOFeuil).Copy After:=ActiveWorkbook.Sheets.Count: ActiveSheet.Name = NFeuil: [K3] = Int(Now)
If Annee And Day(Now) = 1 And Month(Now) = 1 Then Sheets("Recap").Copy After:=ActiveWorkbook.Sheets.Count: ActiveSheet.Name = NFeuilAn: [K3] = Int(Now)
End Sub

:

J'ai modifié la ligne, en ai ajouté une au début et rajouté une variable au code de Softmama.

Remarque : Ce code ne se déclenchera comme tu l'as demandé que le 1er de chaque mois. Es tu sure que ce fichier sera ouvert si le 1er est un dimanche ou un jour férié ? ...

Cordialement

KD