Se connecter avec
S'enregistrer | Connectez-vous

Renommer classeur avec date

Dernière réponse : dans Programmation

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

Autres pages sur : renommer classeur date

Lassé par la pub ? Créez un compte

Meilleure solution

Pour ceux que cela intéresse , j'ai trouvé ceci et qui fonctionne :


  1. Sub Toto()
  2. ma_date = Replace(Format(Cells(2, 1)), "/", "-")
  3. agence = Cells(2, 2)
  4. agent = Cells(2, 3)
  5. nom_fichier = ma_date & "_" & agence & "_" & agent
  6. ActiveSheet.Name = nom_fichier
  7. ActiveWorkbook.SaveAs Filename:= _
  8.     ThisWorkbook.Path & "\" & nom_fichier, FileFormat:=xlNormal, _
  9.     Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
  10. CreateBackup:=False
  11. End Sub
Expert Programmation

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 ?
Expert Programmation

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 :




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

Voili, voilà.... Merci....


  1. Sub Toto()
    

  2. ma_date = Replace(Format(Cells(2, 1)), "/", "-" )
    

  3. agence = Cells(2, 2)
    

  4. agent = Cells(2, 3)
    

  5. nom_fichier = ma_date & "_" & agence & "_" & agent
    

  6. ActiveSheet.Name = nom_fichier
    

  7. ActiveWorkbook.SaveAs Filename:= _
    

  8. ThisWorkbook.Path & "\" & nom_fichier, FileFormat:=xlNormal, _
    

  9. Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    

  10. CreateBackup:=False
    

  11. End Sub
Expert Programmation

zeb a dit :
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.


Bon, je le fais à ta place ... :pfff: 
Lassé par la pub ? Créez un compte

Créer un nouveau sujet