bonjour,
je cherche comment créer automatiquement un classeur qui me génère une
feuille par jour de la semaine.
je me suis fait un modele de feuille à completer avec une formule de
recherche pour chaque poste de mes employés et une recherche par
rapport au jour demandé. (recherchev est encore une fonction que je
maitrise à peu pres)
j'ai bien essayé d'enregistrer une macro pour que ca se fasse pour tous
les jours mais je n'y arrive pas , chaque fois que je crée ma macro,
elle me réecris le nom de la feuille sur la même.
je débute et je cherche à comprendre.
je pense pour tant que ca doit pouvoir se faire tout seul, j'en ai un
peu marre des copier coller chaque jour, lool
merci de votre aide
--
clotarn vous dit : bonjour à tous
le savoir ne vaut que s'il est partagé par tous.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. J'ai créé une macro qui crée une feuille par jour de la semaine dans un nouveau classeur Je pense que tu veux copier une feuille spécifique, mais comme tu ne dis pas trop où elle se trouve, il faudra que tu modifies le code.
Sub test() Dim sh As Worksheet, NbreFeuilles As Integer Dim Sem Sem = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "vendredi", "Samedi", "Dimanche") Workbooks.Add NbreFeuilles = Sheets.Count For i = 1 To NbreFeuilles Sheets(i).Name = Sem(i - 1) Next i If NbreFeuilles <= 6 Then Do Until NbreFeuilles = 7 NbreFeuilles = NbreFeuilles + 1 Sheets.Add ActiveSheet.Name = Sem(NbreFeuilles - 1) Loop End If ActiveWorkbook.SaveAs "toto.xls" ActiveWorkbook.Close ' ?? End Sub
Cordialement. Daniel "clotarn" a écrit dans le message de news:
bonjour, je cherche comment créer automatiquement un classeur qui me génère une feuille par jour de la semaine. je me suis fait un modele de feuille à completer avec une formule de recherche pour chaque poste de mes employés et une recherche par rapport au jour demandé. (recherchev est encore une fonction que je maitrise à peu pres) j'ai bien essayé d'enregistrer une macro pour que ca se fasse pour tous les jours mais je n'y arrive pas , chaque fois que je crée ma macro, elle me réecris le nom de la feuille sur la même. je débute et je cherche à comprendre. je pense pour tant que ca doit pouvoir se faire tout seul, j'en ai un peu marre des copier coller chaque jour, lool merci de votre aide
-- clotarn vous dit : bonjour à tous le savoir ne vaut que s'il est partagé par tous.
Bonsoir.
J'ai créé une macro qui crée une feuille par jour de la semaine dans un
nouveau classeur
Je pense que tu veux copier une feuille spécifique, mais comme tu ne dis pas
trop où elle se trouve, il faudra que tu modifies le code.
Sub test()
Dim sh As Worksheet, NbreFeuilles As Integer
Dim Sem
Sem = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "vendredi", "Samedi",
"Dimanche")
Workbooks.Add
NbreFeuilles = Sheets.Count
For i = 1 To NbreFeuilles
Sheets(i).Name = Sem(i - 1)
Next i
If NbreFeuilles <= 6 Then
Do Until NbreFeuilles = 7
NbreFeuilles = NbreFeuilles + 1
Sheets.Add
ActiveSheet.Name = Sem(NbreFeuilles - 1)
Loop
End If
ActiveWorkbook.SaveAs "toto.xls"
ActiveWorkbook.Close ' ??
End Sub
Cordialement.
Daniel
"clotarn" <clotarn@hotmail.com> a écrit dans le message de news:
mn.8d257d5b84b168c4.42261@hotmail.com...
bonjour,
je cherche comment créer automatiquement un classeur qui me génère une
feuille par jour de la semaine.
je me suis fait un modele de feuille à completer avec une formule de
recherche pour chaque poste de mes employés et une recherche par rapport
au jour demandé. (recherchev est encore une fonction que je maitrise à peu
pres)
j'ai bien essayé d'enregistrer une macro pour que ca se fasse pour tous
les jours mais je n'y arrive pas , chaque fois que je crée ma macro, elle
me réecris le nom de la feuille sur la même.
je débute et je cherche à comprendre.
je pense pour tant que ca doit pouvoir se faire tout seul, j'en ai un peu
marre des copier coller chaque jour, lool
merci de votre aide
--
clotarn vous dit : bonjour à tous
le savoir ne vaut que s'il est partagé par tous.
Bonsoir. J'ai créé une macro qui crée une feuille par jour de la semaine dans un nouveau classeur Je pense que tu veux copier une feuille spécifique, mais comme tu ne dis pas trop où elle se trouve, il faudra que tu modifies le code.
Sub test() Dim sh As Worksheet, NbreFeuilles As Integer Dim Sem Sem = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "vendredi", "Samedi", "Dimanche") Workbooks.Add NbreFeuilles = Sheets.Count For i = 1 To NbreFeuilles Sheets(i).Name = Sem(i - 1) Next i If NbreFeuilles <= 6 Then Do Until NbreFeuilles = 7 NbreFeuilles = NbreFeuilles + 1 Sheets.Add ActiveSheet.Name = Sem(NbreFeuilles - 1) Loop End If ActiveWorkbook.SaveAs "toto.xls" ActiveWorkbook.Close ' ?? End Sub
Cordialement. Daniel "clotarn" a écrit dans le message de news:
bonjour, je cherche comment créer automatiquement un classeur qui me génère une feuille par jour de la semaine. je me suis fait un modele de feuille à completer avec une formule de recherche pour chaque poste de mes employés et une recherche par rapport au jour demandé. (recherchev est encore une fonction que je maitrise à peu pres) j'ai bien essayé d'enregistrer une macro pour que ca se fasse pour tous les jours mais je n'y arrive pas , chaque fois que je crée ma macro, elle me réecris le nom de la feuille sur la même. je débute et je cherche à comprendre. je pense pour tant que ca doit pouvoir se faire tout seul, j'en ai un peu marre des copier coller chaque jour, lool merci de votre aide
-- clotarn vous dit : bonjour à tous le savoir ne vaut que s'il est partagé par tous.
clotarn
Merci beaucoup, j'essaye ca immediatement.
Bonsoir. J'ai créé une macro qui crée une feuille par jour de la semaine dans un nouveau classeur Je pense que tu veux copier une feuille spécifique, mais comme tu ne dis pas trop où elle se trouve, il faudra que tu modifies le code.
Sub test() Dim sh As Worksheet, NbreFeuilles As Integer Dim Sem Sem = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "vendredi", "Samedi", "Dimanche") Workbooks.Add NbreFeuilles = Sheets.Count For i = 1 To NbreFeuilles Sheets(i).Name = Sem(i - 1) Next i If NbreFeuilles <= 6 Then Do Until NbreFeuilles = 7 NbreFeuilles = NbreFeuilles + 1 Sheets.Add ActiveSheet.Name = Sem(NbreFeuilles - 1) Loop End If ActiveWorkbook.SaveAs "toto.xls" ActiveWorkbook.Close ' ?? End Sub
Cordialement. Daniel "clotarn" a écrit dans le message de news:
bonjour, je cherche comment créer automatiquement un classeur qui me génère une feuille par jour de la semaine. je me suis fait un modele de feuille à completer avec une formule de recherche pour chaque poste de mes employés et une recherche par rapport au jour demandé. (recherchev est encore une fonction que je maitrise à peu pres) j'ai bien essayé d'enregistrer une macro pour que ca se fasse pour tous les jours mais je n'y arrive pas , chaque fois que je crée ma macro, elle me réecris le nom de la feuille sur la même. je débute et je cherche à comprendre. je pense pour tant que ca doit pouvoir se faire tout seul, j'en ai un peu marre des copier coller chaque jour, lool merci de votre aide
-- clotarn vous dit : bonjour à tous le savoir ne vaut que s'il est partagé par tous.
-- clotarn vous dit : bonjour à tous le savoir ne vaut que s'il est partagé par tous.
Merci beaucoup,
j'essaye ca immediatement.
Bonsoir.
J'ai créé une macro qui crée une feuille par jour de la semaine dans un
nouveau classeur
Je pense que tu veux copier une feuille spécifique, mais comme tu ne dis pas
trop où elle se trouve, il faudra que tu modifies le code.
Sub test()
Dim sh As Worksheet, NbreFeuilles As Integer
Dim Sem
Sem = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "vendredi", "Samedi",
"Dimanche")
Workbooks.Add
NbreFeuilles = Sheets.Count
For i = 1 To NbreFeuilles
Sheets(i).Name = Sem(i - 1)
Next i
If NbreFeuilles <= 6 Then
Do Until NbreFeuilles = 7
NbreFeuilles = NbreFeuilles + 1
Sheets.Add
ActiveSheet.Name = Sem(NbreFeuilles - 1)
Loop
End If
ActiveWorkbook.SaveAs "toto.xls"
ActiveWorkbook.Close ' ??
End Sub
Cordialement.
Daniel
"clotarn" <clotarn@hotmail.com> a écrit dans le message de news:
mn.8d257d5b84b168c4.42261@hotmail.com...
bonjour,
je cherche comment créer automatiquement un classeur qui me génère une
feuille par jour de la semaine.
je me suis fait un modele de feuille à completer avec une formule de
recherche pour chaque poste de mes employés et une recherche par rapport au
jour demandé. (recherchev est encore une fonction que je maitrise à peu
pres)
j'ai bien essayé d'enregistrer une macro pour que ca se fasse pour tous les
jours mais je n'y arrive pas , chaque fois que je crée ma macro, elle me
réecris le nom de la feuille sur la même.
je débute et je cherche à comprendre.
je pense pour tant que ca doit pouvoir se faire tout seul, j'en ai un peu
marre des copier coller chaque jour, lool
merci de votre aide
-- clotarn vous dit : bonjour à tous
le savoir ne vaut que s'il est partagé par tous.
--
clotarn vous dit : bonjour à tous
le savoir ne vaut que s'il est partagé par tous.
Bonsoir. J'ai créé une macro qui crée une feuille par jour de la semaine dans un nouveau classeur Je pense que tu veux copier une feuille spécifique, mais comme tu ne dis pas trop où elle se trouve, il faudra que tu modifies le code.
Sub test() Dim sh As Worksheet, NbreFeuilles As Integer Dim Sem Sem = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "vendredi", "Samedi", "Dimanche") Workbooks.Add NbreFeuilles = Sheets.Count For i = 1 To NbreFeuilles Sheets(i).Name = Sem(i - 1) Next i If NbreFeuilles <= 6 Then Do Until NbreFeuilles = 7 NbreFeuilles = NbreFeuilles + 1 Sheets.Add ActiveSheet.Name = Sem(NbreFeuilles - 1) Loop End If ActiveWorkbook.SaveAs "toto.xls" ActiveWorkbook.Close ' ?? End Sub
Cordialement. Daniel "clotarn" a écrit dans le message de news:
bonjour, je cherche comment créer automatiquement un classeur qui me génère une feuille par jour de la semaine. je me suis fait un modele de feuille à completer avec une formule de recherche pour chaque poste de mes employés et une recherche par rapport au jour demandé. (recherchev est encore une fonction que je maitrise à peu pres) j'ai bien essayé d'enregistrer une macro pour que ca se fasse pour tous les jours mais je n'y arrive pas , chaque fois que je crée ma macro, elle me réecris le nom de la feuille sur la même. je débute et je cherche à comprendre. je pense pour tant que ca doit pouvoir se faire tout seul, j'en ai un peu marre des copier coller chaque jour, lool merci de votre aide
-- clotarn vous dit : bonjour à tous le savoir ne vaut que s'il est partagé par tous.
-- clotarn vous dit : bonjour à tous le savoir ne vaut que s'il est partagé par tous.
