Discussion :

[kimou75]

Bonjour,

J'essaye désespérément de mettre le mois et le jour sur deux caractères obligatoirement mais tant que l'un des deux est inférieur à 10, ça ne le fait pas.
J'ai fouillé dans le forum en vain.

Merci d'avance pour votre aide

[Philippe Tulliez]

Bonjour,
Il est normal que la valeur se trouvant dans la variable Mois comme Jour d'ailleurs ne réponde pas à vos attentes.
Au lieu de déclarer ces variables comme Integer, il faut les déclarer comme String
Pour rappel, la fonction Format renvoie une chaîne de caractères

Si on déclare une variable comme un type numérique et qu'on lui passe comme valeur une chaîne de caractères correspondant à un nombre, la conversion sera automatique

Exemple

Code :

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

1
2
3
4
5
Sub t()
  Dim Mois As Integer
  Mois = "01"
  MsgBox Mois
End Sub

[zoltar_x]

Code :

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

1
2
3
4
5
6
7
8
9
 
jour = Day(Now)
mois = Month(Now)
 
 If jour <= 9 And mois <= 9 Then
 
    d = jour & mois
 
End If

d donne 91 pour aujourd'hui (9 janvier)

[Philippe Tulliez]

Bonjour,

d donne 91 pour aujourd'hui (9 janvier)

C'est tout à fait logique, voir mon explication plus haut
Les fonctions Day et Month font une extraction d'une date et donc toute valeur numérique inférieure à 10 ne renvoie qu'un seul caractère et donc pour obtenir deux caractères il faut utiliser Format

Exemple pour obtenir deux caractères pour les valeurs numériques inférieures à 10

Code :

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

1
2
3
4
5
6
7
Sub t()
  Dim Mois As String
  Dim Jour As String
  Mois = Format(Now(), "mm")
  Jour = Format(Now(), "dd")
  MsgBox Mois & Jour
End Sub

[kimou75]

Bonjour,
Il est normal que la valeur se trouvant dans la variable Mois comme Jour d'ailleurs ne réponde pas à vos attentes.
Au lieu de déclarer ces variables comme Integer, il faut les déclarer comme String
Pour rappel, la fonction Format renvoie une chaîne de caractères

Si on déclare une variable comme un type numérique et qu'on lui passe comme valeur une chaîne de caractères correspondant à un nombre, la conversation sera automatique

Exemple

Code :

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

1
2
3
4
5
Sub t()
  Dim Mois As Integer
  Mois = "01"
  MsgBox Mois
End Sub

Merci Philippe :-)

[Philippe Tulliez]

Bonjour,
Maintenant si l'on souhaite par exemple renvoyer une date inversée pour par exemple sauver un fichier avec la date inversée comme préfixe, on n'est pas obligé de passer par des variables comme Jour et Mois

Exemple pour obtenir une chaîne de caractères ayant la date inversée suivi de du texte "-Ventes mensuelles" suivi du suffixe de l'extension

Code :

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

1
2
3
4
5
Sub t()
  Dim FileName As String
  FileName = Format(Now(), "yymmdd") & "-Ventes mensuelles.xlsm"
  MsgBox FileName
End Sub

et personnellement, j'utiliserais Date au lieu de Now