cs_YoOL
Messages postés2Date d'inscriptionvendredi 28 janvier 2005StatutMembreDernière intervention28 janvier 2005
-
28 janv. 2005 à 20:06
cs_YoOL
Messages postés2Date d'inscriptionvendredi 28 janvier 2005StatutMembreDernière intervention28 janvier 2005
-
28 janv. 2005 à 23:01
Bonjour à tous,
Je suis assez débutant, je m'excuse donc par avance si je m'exprime assez mal.
Je vous explique mon problème.
Au préalable je précise que je developpe une macro vba sous excel.
J'ai crée les deux variable suivantes :
Dim Début As Date
Dim Fin As Date
Début = Worksheets("Données").Cells(22, 1).Value
Fin = Worksheets("Données").Cells(22, 2).Value
Et je souhaiterai créer un nouveau workbook dont le nom serait "Plan du (valeur de la variable Début) au (Valeur de la variable Fin)"
Mais hélas je ne trouve pas la commande qui me permettrait de faire cela.
Je vous serai infiniment reconnaissant si vous pouviez m'apporter votre aide éclairée sur ce point.
En vous remerciant par avance,
mrdep1978
Messages postés402Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 7 juin 20097 28 janv. 2005 à 22:45
Voila ce que j'ai de mieux sous la main.
Le problème c'est que dans Excel pour pouvoir donner un nom à un classeur, il faut l'enregistrer.
Public Sub gsub_test()
Dim Debut As Date
Dim Fin As Date
Dim ls_Temp As String
Dim ls_FileName As String
Dim NewWorkBook As Workbook
Debut = Worksheets("Données").Cells(22, 1).Value
Fin = Worksheets("Données").Cells(22, 2).Value
'Crée le chemin par la variable d'environnement TEMP
ls_Temp = Environ("TEMP")
'Définit le chemin par celui du classeur en cours
'ls_Temp = ThisWorkbook.Path
'Remplace les / par des _ dans les dates car les / sont interdits dans les noms de fichier
ls_FileName = ls_Temp & "\Plan du " & Replace(CStr(Debut), "/", "_") & " au " & Replace(CStr(Fin), "/", "_")
'Crée un nouveau classeur
Set NewWorkBook = Workbooks.Add
'Enregistre le classeur
NewWorkBook.SaveAs ls_FileName
'Ferme le classeur
NewWorkBook.Close False
End Sub