Recuperer Mois En Lettre

  • Initiateur de la discussion Initiateur de la discussion Cazinos
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Cazinos

XLDnaute Occasionnel
Bonsoir le forum,

J'ai joint un fichier pour savoir si c'est possible de récuperer le mois du nom du fichier pour l'inscrire automatiquement dans les onglets

merci
 

Pièces jointes

Re : Recuperer Mois En Lettre

Bonjour,

Code:
   temp = ThisWorkbook.Name
   If UCase(Right(temp, 4)) = ".XLS" Then temp = Left(temp, Len(temp) - 4)
   p = InStrRev(temp, " ")
   mois = Mid(temp, p + 1)
   dc = "01/" & mois & "/" & Year(Date)
   If IsDate(dc) Then
     For i = 1 To Sheets.Count
       Sheets(i).Name = Sheets(i).Name & " " & Format(CDate(dc), "mm-yyyy")
     Next i
   End If

JB
Formation Excel VBA JB
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
419
Réponses
8
Affichages
377
Réponses
2
Affichages
523
Réponses
4
Affichages
288
Réponses
4
Affichages
270
Retour