Importer et renommer un fichier texte

**guillaume74960** · 27/03/2015, 18h24

Bonjour à tous !!

Alors voici mon problème, j'ai voulu me lancer dans le VBA (quel fou je sais !!!), des idées plein la tête !

Ce que je voudrais faire :
Avoir un bouton qui quand j’appuie dessus, cela insère dans un nouvel onglet un fichier txt, et (le plus dur) cela renomme ce fichier txt avec la date du jour.

Où j'en suis actuellement :
J'appuie sur le bouton j'ouvre le txt dans un nouveau classeur, j'arrive à renommer le txt avec la date, mais le souci c'est que mon classeur prend le nom du txt (demandez moi pas pk je sais pas ^^). Du coup je tourne en rond !!!

Est ce que quelqu'un pourrai m'aider ??
Merci d'avance

**mercatog** · 27/03/2015, 18h40

On ne va pas te demander pourquoi mais on demandera surement à voir ton code

**gaet76** · 27/03/2015, 18h41

Tu peux nous envoyer ton fichier stp?

A priori tu n'est pas loin du résultat, il ne te manque pas grand chose.

**guillaume74960** · 27/03/2015, 19h12

Ah oui en effet j'avais zappé le code, donc le voici sauf que ça a évolué, en fait le rename ne marche pas quand j'ai importé le fichier car il considère qu'il est ouvert... bref ça me soule je pense ne pas être loin mais je tourne en rond.

(La partie du milieu est pour la mise en page)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
 
 
  Workbooks.Open Filename:="C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt", Format:=4
  Rows(1).Insert
 
     Cells(1, 1) = "CR"
     Cells(1, 2) = "JOBNAME"
     Cells(1, 3) = "IADATE"
     Cells(1, 4) = "IATIME"
     Cells(1, 5) = "RESSOURCE"
 
 Name "C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt" As "C:\Documents\TEST\" & Format(Now(), "yyyymmdd-hhnnss") & ".txt"
 
 
 End Sub

**Promethee25** · 28/03/2015, 08h59

Bonjour,

En reprenant ton code, il faut simplement fermer le classeur avant de le renommer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
  Dim wb as Workbook
 
  Set wb = Workbooks.Open Filename:="C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt", Format:=4
  Rows(1).Insert
 
     Cells(1, 1) = "CR"
     Cells(1, 2) = "JOBNAME"
     Cells(1, 3) = "IADATE"
     Cells(1, 4) = "IATIME"
     Cells(1, 5) = "RESSOURCE"
 
  wb.Close SaveChanges:=True
  Name "C:\Users\guillaum\Desktop\Rsrc\Rsrc_horaire.txt" As "C:\Documents\TEST\" & Format(Now(), "yyyymmdd-hhnnss") & ".txt"
 
 
 End Sub