Discussion :

[AMNA2]

Hello,

Je suis debutante en VBA.
Je tente de creer une macro qi me permettrait de creer un onglet avec la date de la veille (du mardi au vendredi) et 2 jours avant (pour le lundi, la date du vendredi dernier).

Est ce que vous pourrez maider svp ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub ongletdate()
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Date, "dd mmm yyyy")
Range("A1") = Format(Date, "mm/dd/yyyy")
Range("C3:C5") = 0
End Sub

Merci d'avance

[BENNASR]

bonjou amna, la forum
essayez avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub ongletdate()
Dim NomFeuil As Date
Dim laveuille As String
laveuille = Format(Now - 1, "dd-mm-yyyy")
MsgBox laveuille
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = laveuille
Range("A1") = Format(Date, "mm/dd/yyyy")
Range("C3:C5") = 0
End Sub

[Philippe Tulliez]

Bonjour,
J'ai tendance à utiliser un minimum de VBA.
Pour ton cas, même si je trouve l'idée d'avoir une feuille par jour quelque peu saugrenue, je placerais la formule ci-dessous dans une cellule d'excel présente dans une feuille paramètre que je formaterais de la manière dont je souhaite que le nom de la feuille soit écrit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=AUJOURHUI()-1+-2*(JOURSEM(AUJOURHUI();2)=1)

Cette cellule on la nommera par exemple pSheetName

Le code VBA se résumera alors à ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub CreateSheet()
  With Worksheets: .Add After:=Worksheets(.Count): End With
  On Error Resume Next
  ActiveSheet.Name = Range("pSheetName").Text
  If Err = 1004 Then MsgBox "Le nom existe déjà "
  On Error GoTo 0
End Sub

ou, si tu veux gérer le format dans la procédure VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub CreateSheet()
  With Worksheets: .Add After:=Worksheets(.Count): End With
  On Error Resume Next
  ActiveSheet.Name = Format(Range("pSheetName").Value, "ddd dd-mm-yyyy")
  If Err = 1004 Then MsgBox "Le nom existe déjà "
  On Error GoTo 0
End Sub

J'ai utiliser la méthode Add plutôt que Copy car dans ta question tu écris "créer" et pas "copier"

me permettrait de creer un onglet

La formule dans excel, suppose que l'on n'activera jamais la procédure un samedi ou un dimanche

[Pierre Fauconnier]

Bonjour,
J'ai tendance à utiliser un minimum de VBA.
Pour ton cas, même si je trouve l'idée d'avoir une feuille par jour quelque peu saugrenue, [...]

+1000000