Bonjour,
Débutante en excel, j'ai de nouveau une question tres basique à vous soumettre :
Je souhaite copier une date (de format aaaammjj, que j'ai formaté grace au format custom) en texte sur une autre case mais qd je procede ainsi, excel me retourne un chiffre completement différent de ma date :
Je m'explique avec un exemple :
avec la date : 20100507 (que l'on visualise 07/05/2010 dans la Formula Bar) j'obtiens avec un copié/collé en format texte le chiffre 40305 alors que je souhaite obtenir 20100507 en texte (que l'on visualiserait 20100507 dans la formula bar)
J'espere avoir été claire pour que qqn puisse m'éclairer de ses lanternes car cela fait + de deux heures que je cherche une solution :
J'ai essayé de faire des copier dans un fichier .txt puis de coller dans la feuille exel mais comme je dois faire cela via macro, mon .txt s'ouvre en excel et je tombe sur le meme probleme :
D'avance merci a ceux qui prendront un peu de leur temps pour me répondre
Débutante en excel, j'ai de nouveau une question tres basique à vous soumettre :
Je souhaite copier une date (de format aaaammjj, que j'ai formaté grace au format custom) en texte sur une autre case mais qd je procede ainsi, excel me retourne un chiffre completement différent de ma date :
Je m'explique avec un exemple :
avec la date : 20100507 (que l'on visualise 07/05/2010 dans la Formula Bar) j'obtiens avec un copié/collé en format texte le chiffre 40305 alors que je souhaite obtenir 20100507 en texte (que l'on visualiserait 20100507 dans la formula bar)
J'espere avoir été claire pour que qqn puisse m'éclairer de ses lanternes car cela fait + de deux heures que je cherche une solution :
J'ai essayé de faire des copier dans un fichier .txt puis de coller dans la feuille exel mais comme je dois faire cela via macro, mon .txt s'ouvre en excel et je tombe sur le meme probleme :
Code:
Sheets("datas_mono").Select
Columns("F:F").Select
Selection.Copy
Workbooks.Open Filename:=ThisWorkbook.Path & "\tempo.txt"
Windows("tempo.txt").Activate
Sheets("tempo").Select
Columns("A:A").Select
ActiveSheet.Paste
Columns("A:A").Select
Selection.Copy
Windows("macro_traitement_datas_total.xlsm").Activate
Sheets("datas_mono").Select
Range("F1").Select
ActiveSheet.PasteD'avance merci a ceux qui prendront un peu de leur temps pour me répondre
Dernière édition: