Résolu Renommer classeur avec date

Pat_35_75

Nouveau membre
Bonjour,
Je souhaite renommer un classeur avec des valeurs se trouvant dans des cellules de la feuille

ex : le classeur s'appelle "classeur 1.xls"

Je souhaite modifier le nom en prenant le contenu de la cellule E3, H3 et K3...

La cellule E3 contient une date et il faut transformer le format en jj-mm-aaaa pour que le nom du fichier soit correct.
(la date E3 n'est pas la date du jour)

Le classeur devra s'appeller jj-mm-aaa - code - nom.xls

Quelqu'un a t'il une solution ? Merci d'avance
 

zeb

Modérateur
Salut,

On s'entraide entre développeurs ici. Alors si tu as un bout de code, une tentative, un truc qui marche mal, voire pas du tout, on pourra t'aider. Si tu veux juste que quelqu'un fasse ton boulot, ce n'est pas ici qu'on t'aidera.

Alors ce code ?
 

Pat_35_75

Nouveau membre
Meilleure réponse
Pour ceux que cela intéresse , j'ai trouvé ceci et qui fonctionne :


Code:
Sub Toto()
ma_date = Replace(Format(Cells(2, 1)), "/", "-")
agence = Cells(2, 2)
agent = Cells(2, 3)
nom_fichier = ma_date & "_" & agence & "_" & agent
ActiveSheet.Name = nom_fichier
ActiveWorkbook.SaveAs Filename:= _
    ThisWorkbook.Path & "\" & nom_fichier, FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
 

zeb

Modérateur
Et le respect du règlement concernant la publication de code, nom d'un ordinateur en bois ! [:zeb:4]
 

Pat_35_75

Nouveau membre


Oui et en français , ça donne quoi ? :hello:
 

Storos

Modérateur cochon
Staff
Que les lignes de code doivent être encadrées par les balises [cpp]... :sarcastic:
 

zeb

Modérateur
Ah, je ne m'attendais pas à ton retour. J'en suis content.

Salut !

Alors on va commencer par le début. Merci d'avoir publié ta solution. Ça servira à d'autres, j'espère. Ensuite, comme c'est toi qui donne la meilleure solution, tu ne peux pas t'auto-désigner. Je vais le faire (je suis modo). Mais il reste encore un tout petit problème. Il existe ici un règlement. La moindre des choses eut été de le consulter. Tu y aurais appris qu'on ne balance pas son code comme ça !

Autre chose. J'ai la prétention de m'exprimer dans un français correct. Qu'est-ce qui te paraissait difficile à comprendre dans mon message ?

Bon, sinon, pour te dispenser d'avoir à chercher le bon chapitre dans le règlement, voici un smiley on ne peut plus explicite :

Vous devez être connecté pour voir les images.


GRILLED BY STOROS
Mais c'est parce que je soigne mes messages, moi :o
 

zeb

Modérateur
Ben alors quoi, tu ne veux pas me faire plaisir en modifiant ton message ?
Je te rappelle que je n'attends que ça pour te mettre en meilleure réponse.
 

Pat_35_75

Nouveau membre
Voili, voilà.... Merci....


[cpp]

Sub Toto()
ma_date = Replace(Format(Cells(2, 1)), "/", "-" )
agence = Cells(2, 2)
agent = Cells(2, 3)
nom_fichier = ma_date & "_" & agence & "_" & agent
ActiveSheet.Name = nom_fichier
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & nom_fichier, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
[/cpp]
 

zeb

Modérateur


Bon, je le fais à ta place ... :pfff:
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 049
Membres
1 586 282
Dernier membre
Yannick3553
Partager cette page
Haut