Créer un nouveau workbook dont le nom contient la valeur d'une variable (urgent) [Résolu]

Signaler
Messages postés
2
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
28 janvier 2005
-
Messages postés
2
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
28 janvier 2005
-
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,

Cordialement

YoOL

2 réponses

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
4
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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
2
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
28 janvier 2005

Impeccable. Merci beaucoup pour cette aide si prompte!!