[Visual Basic] Problème d'active workbook

Question

Bonjour,

J'ai un petit soucis sous excel et j'aimerai le résoudre. 

J'ai un fichier excel appelé : Commande_Global_mm_yyyy.xls.

J'ai un bouton lancer qui me dirige sur un calendrier, je voudrais lorsque je choisis une date, mars 2008 par exemple que mon fichier excel s'appelle "Commande_Global_03_2008.xls."

Comment faire?

Merci beaucoup

Polux31 · Accepted Answer

bonjour,

Voilà une procédure qui reçoit une date en paramètre d'entrée et sauvegarde le fichier sous le format : "Commande_Global_mm_yyyy.xls":

Sub SaveXL(ByVal mDate As Date)
Dim nameXL As String

    If mDate = "" Then Exit Sub   'si le paramètre d'entrée est vide, on sort de la procédure
    
    nameXL = DatePart("m", mDate)   'on récupère le mois de la date
    'Si 1 digit on passe sur 2 digits.
    If Len(nameXL) = 1 Then nameXL = "0" & nameXL
    
    nameXL = "Commande_Global_" & nameXL & "_" & DatePart("yyyy", mDate) & ".xls"
    
    ThisWorkbook.SaveAs (nameXL)

End Sub

Polux31 · Answer

de rien,

Bonne continuation

;o)

[Visual Basic] Problème d'active workbook

2 réponses

Discussions similaires

Newsletters