Sur l'onglet "1"
1 étant le nom de l'onglet pas sa place
le mois voulu est inscrit dans la case B6
à partir de ça je voudrais que excel masque simplement les onglets non
nécessaire (à savoir il y a 31 onglets en tout nommés, de 1 à 31).
de plus si le mois correspond à celui en cours, j'aimerais que le document
excel aille directement à l'onglet correspondant à la date du jour actuel
voilà
il y a des formules différentes dans chaque onglet voilà pourquoi une MACRO
enregistrée n'est pas une solution, surtout qu'elle ne prendra pas en compte
le mois, juste des actions.
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
Antoine
Bonjour
En bas à gauche, avant de cliquer sur OK tu as un petit "?" ; cliques dessus ! ou bien encore, fais F1...
Antoine "Sanaell" a écrit dans le message de news:
Sur l'onglet "1" 1 étant le nom de l'onglet pas sa place
le mois voulu est inscrit dans la case B6
à partir de ça je voudrais que excel masque simplement les onglets non nécessaire (à savoir il y a 31 onglets en tout nommés, de 1 à 31).
de plus si le mois correspond à celui en cours, j'aimerais que le document excel aille directement à l'onglet correspondant à la date du jour actuel
voilà il y a des formules différentes dans chaque onglet voilà pourquoi une MACRO enregistrée n'est pas une solution, surtout qu'elle ne prendra pas en compte le mois, juste des actions.
merci d'avance
Bonjour
En bas à gauche, avant de cliquer sur OK tu as un petit "?" ; cliques dessus
!
ou bien encore, fais F1...
Antoine
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message de
news: F6E3A125-66AF-49A8-9011-E69C78DF69B3@microsoft.com...
Sur l'onglet "1"
1 étant le nom de l'onglet pas sa place
le mois voulu est inscrit dans la case B6
à partir de ça je voudrais que excel masque simplement les onglets non
nécessaire (à savoir il y a 31 onglets en tout nommés, de 1 à 31).
de plus si le mois correspond à celui en cours, j'aimerais que le document
excel aille directement à l'onglet correspondant à la date du jour actuel
voilà
il y a des formules différentes dans chaque onglet voilà pourquoi une
MACRO
enregistrée n'est pas une solution, surtout qu'elle ne prendra pas en
compte
le mois, juste des actions.
En bas à gauche, avant de cliquer sur OK tu as un petit "?" ; cliques dessus ! ou bien encore, fais F1...
Antoine "Sanaell" a écrit dans le message de news:
Sur l'onglet "1" 1 étant le nom de l'onglet pas sa place
le mois voulu est inscrit dans la case B6
à partir de ça je voudrais que excel masque simplement les onglets non nécessaire (à savoir il y a 31 onglets en tout nommés, de 1 à 31).
de plus si le mois correspond à celui en cours, j'aimerais que le document excel aille directement à l'onglet correspondant à la date du jour actuel
voilà il y a des formules différentes dans chaque onglet voilà pourquoi une MACRO enregistrée n'est pas une solution, surtout qu'elle ne prendra pas en compte le mois, juste des actions.
merci d'avance
JLuc
*Bonjour Sanaell*,
de plus si le mois correspond à celui en cours, j'aimerais que le document excel aille directement à l'onglet correspondant à la date du jour actuel
Pour cette question, déjà :
Private Sub Workbook_Open() Dim Lejour As String ' En supposant que le mois est sous forme de chiffre (1, 2, ...) ' Sinon adapter If Sheets(1).Range("B6") = Month(Now()) Then Lejour = Day(Now()) Sheets(Lejour).Select End If End Sub
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Sanaell*,
de plus si le mois correspond à celui en cours, j'aimerais que le document
excel aille directement à l'onglet correspondant à la date du jour actuel
Pour cette question, déjà :
Private Sub Workbook_Open()
Dim Lejour As String
' En supposant que le mois est sous forme de chiffre (1, 2, ...)
' Sinon adapter
If Sheets(1).Range("B6") = Month(Now()) Then
Lejour = Day(Now())
Sheets(Lejour).Select
End If
End Sub
de plus si le mois correspond à celui en cours, j'aimerais que le document excel aille directement à l'onglet correspondant à la date du jour actuel
Pour cette question, déjà :
Private Sub Workbook_Open() Dim Lejour As String ' En supposant que le mois est sous forme de chiffre (1, 2, ...) ' Sinon adapter If Sheets(1).Range("B6") = Month(Now()) Then Lejour = Day(Now()) Sheets(Lejour).Select End If End Sub
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
*Bonjour Sanaell*, Pour la creation d'un classeur avec les feuille du mois, je suis parti avec un classeur nommé "Modele.xls". Celui ci contient 1 feuille nommee "1" et qui sera recopier autant de fois qu'il y a de jour dans le mois. Elle te servira de modele pour toutes les autres feuilles. Toutes les informations de date se font sur "Now()", donc a toi d'adapter pour le mois ;-)
Sub creer_classeur() 'creer un classeur a partir d'un modele 'l'enregistrer avec le numero du mois et l'annee 'copier la feuille "1" pour tous les jours du mois en les nommant 'a la date du jour
Set nwk = Workbooks.Add(ThisWorkbook.Path & "Modele.xls") With nwk .SaveAs ThisWorkbook.Path & "" & Format(Month(Now()), "00") & _ Year(Now()) & ".xls" End With For x = 2 To Day(DateSerial(Year(Now()), Month(Now()) + 1, 0)) Sheets("1").Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = x Next End Sub
Sur l'onglet "1" 1 étant le nom de l'onglet pas sa place
le mois voulu est inscrit dans la case B6
à partir de ça je voudrais que excel masque simplement les onglets non nécessaire (à savoir il y a 31 onglets en tout nommés, de 1 à 31).
de plus si le mois correspond à celui en cours, j'aimerais que le document excel aille directement à l'onglet correspondant à la date du jour actuel
voilà il y a des formules différentes dans chaque onglet voilà pourquoi une MACRO enregistrée n'est pas une solution, surtout qu'elle ne prendra pas en compte le mois, juste des actions.
merci d'avance
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Sanaell*,
Pour la creation d'un classeur avec les feuille du mois, je suis parti
avec un classeur nommé "Modele.xls". Celui ci contient 1 feuille nommee
"1" et qui sera recopier autant de fois qu'il y a de jour dans le mois.
Elle te servira de modele pour toutes les autres feuilles.
Toutes les informations de date se font sur "Now()", donc a toi
d'adapter pour le mois ;-)
Sub creer_classeur()
'creer un classeur a partir d'un modele
'l'enregistrer avec le numero du mois et l'annee
'copier la feuille "1" pour tous les jours du mois en les nommant
'a la date du jour
Set nwk = Workbooks.Add(ThisWorkbook.Path & "Modele.xls")
With nwk
.SaveAs ThisWorkbook.Path & "" & Format(Month(Now()), "00") & _
Year(Now()) & ".xls"
End With
For x = 2 To Day(DateSerial(Year(Now()), Month(Now()) + 1, 0))
Sheets("1").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = x
Next
End Sub
Sur l'onglet "1"
1 étant le nom de l'onglet pas sa place
le mois voulu est inscrit dans la case B6
à partir de ça je voudrais que excel masque simplement les onglets non
nécessaire (à savoir il y a 31 onglets en tout nommés, de 1 à 31).
de plus si le mois correspond à celui en cours, j'aimerais que le document
excel aille directement à l'onglet correspondant à la date du jour actuel
voilà
il y a des formules différentes dans chaque onglet voilà pourquoi une MACRO
enregistrée n'est pas une solution, surtout qu'elle ne prendra pas en compte
le mois, juste des actions.
*Bonjour Sanaell*, Pour la creation d'un classeur avec les feuille du mois, je suis parti avec un classeur nommé "Modele.xls". Celui ci contient 1 feuille nommee "1" et qui sera recopier autant de fois qu'il y a de jour dans le mois. Elle te servira de modele pour toutes les autres feuilles. Toutes les informations de date se font sur "Now()", donc a toi d'adapter pour le mois ;-)
Sub creer_classeur() 'creer un classeur a partir d'un modele 'l'enregistrer avec le numero du mois et l'annee 'copier la feuille "1" pour tous les jours du mois en les nommant 'a la date du jour
Set nwk = Workbooks.Add(ThisWorkbook.Path & "Modele.xls") With nwk .SaveAs ThisWorkbook.Path & "" & Format(Month(Now()), "00") & _ Year(Now()) & ".xls" End With For x = 2 To Day(DateSerial(Year(Now()), Month(Now()) + 1, 0)) Sheets("1").Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = x Next End Sub
Sur l'onglet "1" 1 étant le nom de l'onglet pas sa place
le mois voulu est inscrit dans la case B6
à partir de ça je voudrais que excel masque simplement les onglets non nécessaire (à savoir il y a 31 onglets en tout nommés, de 1 à 31).
de plus si le mois correspond à celui en cours, j'aimerais que le document excel aille directement à l'onglet correspondant à la date du jour actuel
voilà il y a des formules différentes dans chaque onglet voilà pourquoi une MACRO enregistrée n'est pas une solution, surtout qu'elle ne prendra pas en compte le mois, juste des actions.
