OVH Cloud OVH Cloud

renomer fichier a partie de excel

6 réponses
Avatar
Mr_Mousse
Bonjour a tous,

Voila mon probleme (enfin plutot ma question):
j'ai un fichier txt qui ressemble en beaucoup plus long a ça:

I:\UT2003\Cache\ C9D24AE011D7C5DF000066BC36F30001-1 .uxx
ttm2003v23.u
I:\UT2003\Cache\ 0C6F76E011D76C1A000065BC36F30001-1 .uxx
ttm2003v21_crosshairs.utx
I:\UT2003\Cache\ 4030264F448718BB1BACFEA5B1835AEC-1 .uxx
ttm2003v2_gametex.utx
I:\UT2003\Cache\ FDF943E54676F76544681E929CB8D812-1 .uxx
Zound32.u
I:\UT2003\Cache\ 6EF3FC7E42ACF22F9767D2B476A0AA9C-1 .uxx
wanparty1.uax
I:\UT2003\Cache\ 2C25EFD947382D8B13166A9161CA5A90-1 .uxx
wanparty2.uax
I:\UT2003\Cache\ A0AA8392D7119FA3D000C6874E3993B7-1 .uxx TA100.u
I:\UT2003\Cache\ 48A4620041A37EBEFFDD19B902C4C717-1 .uxx
DM-Campgrounds2003-LE.ut2
I:\UT2003\Cache\ C53B12794F272A71C561538CB28C14A3-1 .uxx
CTF-(ES_FastPace2k3.ut2
I:\UT2003\Cache\ 4948371642769B4DD2D341A3E84DCF8C-1 .uxx
FastPace.utx
...........................
qui me donne le tableau corespondant dans excel.

Je voudrait savoir si il existe un moyen de renomer les fichiers (par
exemple I:\UT2003\Cache\C9D24AE011D7C5DF000066BC36F30001-1.uxx par
I:\UT2003\Cache\ttm2003v23.u automatiquement car la liste est très longue
(plus de 350 lignes).


Merci d'avance pour vos futures reponses

Mr_Mousse

6 réponses

Avatar
Christian.L
Bonjour

En VBA

Name oldname As newname

Dans ton exemple

Name I:UT2003CacheC9D24AE011D7C5DF000066BC36F30001-1.uxx As
I:UT2003Cachettm2003v23.u

Bon courage

C.L.



"Mr_Mousse" a écrit dans le message de
news:416a8c15$0$17784$
Bonjour a tous,

Voila mon probleme (enfin plutot ma question):
j'ai un fichier txt qui ressemble en beaucoup plus long a ça:

I:UT2003Cache C9D24AE011D7C5DF000066BC36F30001-1 .uxx
ttm2003v23.u
I:UT2003Cache 0C6F76E011D76C1A000065BC36F30001-1 .uxx
ttm2003v21_crosshairs.utx
I:UT2003Cache 4030264F448718BB1BACFEA5B1835AEC-1 .uxx
ttm2003v2_gametex.utx
I:UT2003Cache FDF943E54676F76544681E929CB8D812-1 .uxx
Zound32.u
I:UT2003Cache 6EF3FC7E42ACF22F9767D2B476A0AA9C-1 .uxx
wanparty1.uax
I:UT2003Cache 2C25EFD947382D8B13166A9161CA5A90-1 .uxx
wanparty2.uax
I:UT2003Cache A0AA8392D7119FA3D000C6874E3993B7-1 .uxx
TA100.u

I:UT2003Cache 48A4620041A37EBEFFDD19B902C4C717-1 .uxx
DM-Campgrounds2003-LE.ut2
I:UT2003Cache C53B12794F272A71C561538CB28C14A3-1 .uxx
CTF-(ES_FastPace2k3.ut2
I:UT2003Cache 4948371642769B4DD2D341A3E84DCF8C-1 .uxx
FastPace.utx
...........................
qui me donne le tableau corespondant dans excel.

Je voudrait savoir si il existe un moyen de renomer les fichiers (par
exemple I:UT2003CacheC9D24AE011D7C5DF000066BC36F30001-1.uxx par
I:UT2003Cachettm2003v23.u automatiquement car la liste est très longue
(plus de 350 lignes).


Merci d'avance pour vos futures reponses

Mr_Mousse




Avatar
Mr_Mousse
Merci pour ta reponse rapide,
Mais le prbleme c'est que je suis vraiment un nulos en vba
donc si j'ai bien compris il faut comme commande (pour tous mes fichiers):

Name oldname As newname

Name (A1:A350) As (B1:B350)

Enfin je pense........?




"Christian.L" a écrit dans le message de
news:
Bonjour

En VBA

Name oldname As newname

Dans ton exemple

Name I:UT2003CacheC9D24AE011D7C5DF000066BC36F30001-1.uxx As
I:UT2003Cachettm2003v23.u

Bon courage

C.L.





Avatar
Clément Marcotte
Name (A1:A350) As (B1:B350)

Enfin je pense........?



Non, ce sont les noms de fichier:

oldname : le nom actuel du fichier dans l'explorateur

Newname : le nouveau nom du fichier

"Mr_Mousse" a écrit dans le message de
news:416a93be$0$28829$
Merci pour ta reponse rapide,
Mais le prbleme c'est que je suis vraiment un nulos en vba
donc si j'ai bien compris il faut comme commande (pour tous mes
fichiers):


Name oldname As newname




"Christian.L" a écrit dans le message
de

news:
Bonjour

En VBA

Name oldname As newname

Dans ton exemple

Name I:UT2003CacheC9D24AE011D7C5DF000066BC36F30001-1.uxx As
I:UT2003Cachettm2003v23.u

Bon courage

C.L.










Avatar
Mr_Mousse
A d'accord donc, il n'y a pas de solution qui traite tout mes fichiers
automatiquements, il faut que je tape tout les nom de fichier a la suite.

et bah c'est pas gagner

Merci quand meme

"Clément Marcotte" a écrit dans le message
de news:
Name (A1:A350) As (B1:B350)

Enfin je pense........?



Non, ce sont les noms de fichier:

oldname : le nom actuel du fichier dans l'explorateur

Newname : le nouveau nom du fichier

"Mr_Mousse" a écrit dans le message de
news:416a93be$0$28829$
Merci pour ta reponse rapide,
Mais le prbleme c'est que je suis vraiment un nulos en vba
donc si j'ai bien compris il faut comme commande (pour tous mes
fichiers):


Name oldname As newname




"Christian.L" a écrit dans le message
de

news:
Bonjour

En VBA

Name oldname As newname

Dans ton exemple

Name I:UT2003CacheC9D24AE011D7C5DF000066BC36F30001-1.uxx As
I:UT2003Cachettm2003v23.u

Bon courage

C.L.













Avatar
Clément Marcotte
Si les noms à changer sont dans une feuille de calcul, on peut
boucler. En supposant les noms à changer en colonne a et les nouveaux
noms en colonne b

derniereligne = [a65536].end(xlup).row
for i = 1 to derniereligne
name cells(i,1).value as cells(i,2).vALUE
next

"Mr_Mousse" a écrit dans le message de
news:416a965f$0$17762$
A d'accord donc, il n'y a pas de solution qui traite tout mes
fichiers

automatiquements, il faut que je tape tout les nom de fichier a la
suite.


et bah c'est pas gagner

Merci quand meme

"Clément Marcotte" a écrit dans le
message

de news:
Name (A1:A350) As (B1:B350)

Enfin je pense........?



Non, ce sont les noms de fichier:

oldname : le nom actuel du fichier dans l'explorateur

Newname : le nouveau nom du fichier

"Mr_Mousse" a écrit dans le message de
news:416a93be$0$28829$
Merci pour ta reponse rapide,
Mais le prbleme c'est que je suis vraiment un nulos en vba
donc si j'ai bien compris il faut comme commande (pour tous mes
fichiers):


Name oldname As newname




"Christian.L" a écrit dans le
message



de
news:
Bonjour

En VBA

Name oldname As newname

Dans ton exemple

Name I:UT2003CacheC9D24AE011D7C5DF000066BC36F30001-1.uxx As
I:UT2003Cachettm2003v23.u

Bon courage

C.L.

















Avatar
Mr_Mousse
Merci Beaucoup pour ton aide, tout fonctionne impecablement bien, encors
merci.


Bonne Continuation

Mr_Mousse

"Clément Marcotte" a écrit dans le message
de news: #
Si les noms à changer sont dans une feuille de calcul, on peut
boucler. En supposant les noms à changer en colonne a et les nouveaux
noms en colonne b

derniereligne = [a65536].end(xlup).row
for i = 1 to derniereligne
name cells(i,1).value as cells(i,2).vALUE
next

"Mr_Mousse" a écrit dans le message de
news:416a965f$0$17762$
A d'accord donc, il n'y a pas de solution qui traite tout mes
fichiers

automatiquements, il faut que je tape tout les nom de fichier a la
suite.


et bah c'est pas gagner

Merci quand meme

"Clément Marcotte" a écrit dans le
message

de news:
Name (A1:A350) As (B1:B350)

Enfin je pense........?



Non, ce sont les noms de fichier:

oldname : le nom actuel du fichier dans l'explorateur

Newname : le nouveau nom du fichier

"Mr_Mousse" a écrit dans le message de
news:416a93be$0$28829$
Merci pour ta reponse rapide,
Mais le prbleme c'est que je suis vraiment un nulos en vba
donc si j'ai bien compris il faut comme commande (pour tous mes
fichiers):


Name oldname As newname




"Christian.L" a écrit dans le
message



de
news:
Bonjour

En VBA

Name oldname As newname

Dans ton exemple

Name I:UT2003CacheC9D24AE011D7C5DF000066BC36F30001-1.uxx As
I:UT2003Cachettm2003v23.u

Bon courage

C.L.