OVH Cloud OVH Cloud

Renommer un fichier commençant par 20

10 réponses
Avatar
tetro curieux
Bonjour, je cherche à incorper dans une macro la possibilité de renommer un
fichier Excel dont le nom commence par 20. J'ai pensé à la fonction "name as"
mais je ne sais pas sélectionner qu'une partie du nom du fichier à renommer.
Exemple : le fichier d'aujourd'hui se nomme "20xp8.xls", demain il
s'appelera "20puy.xls" avec comme unique clef le chiffre 20 présent dans
chaque fichier et en début de fichier, pour finalement le renommer en
"résultat.xls".
Pouvez vous m'aider ?
Merci d'avance.

10 réponses

Avatar
Daniel
Bonjour.
Si tu n'as qu'un fichier commençant par 20 dans ton dossier :

Sub test()
fich = Dir("e:donneesdanielmpfe5*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Cordialement.
Daniel

"tetro curieux" <tetro a écrit dans le
message de news:
Bonjour, je cherche à incorper dans une macro la possibilité de renommer
un
fichier Excel dont le nom commence par 20. J'ai pensé à la fonction "name
as"
mais je ne sais pas sélectionner qu'une partie du nom du fichier à
renommer.
Exemple : le fichier d'aujourd'hui se nomme "20xp8.xls", demain il
s'appelera "20puy.xls" avec comme unique clef le chiffre 20 présent dans
chaque fichier et en début de fichier, pour finalement le renommer en
"résultat.xls".
Pouvez vous m'aider ?
Merci d'avance.


Avatar
JB
Bonjour,

Sub essai()
ChDir ActiveWorkbook.Path
nf = Dir("20*.xls")
nf2 = "Resultat.xls"
If nf <> "" Then
Name nf As nf2
End If
End Sub

Cordialement JB
Avatar
tetro curieux
Merci mais cela ne fonctionne qu'une fois puis cela ne refonctionne plus.

Incompréhensible.



Bonjour,

Sub essai()
ChDir ActiveWorkbook.Path
nf = Dir("20*.xls")
nf2 = "Resultat.xls"
If nf <> "" Then
Name nf As nf2
End If
End Sub

Cordialement JB




Avatar
tetro curieux
Désolé mais je ne vois pas pourquoi il y a 05 ? pourquoi les données sont un
moment sur e: puis sur c:temp ?

Pouvez vous m'expliquer un peu plus clairement, merci.


Bonjour.
Si tu n'as qu'un fichier commençant par 20 dans ton dossier :

Sub test()
fich = Dir("e:donneesdanielmpfe5*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Cordialement.
Daniel

"tetro curieux" <tetro a écrit dans le
message de news:
Bonjour, je cherche à incorper dans une macro la possibilité de renommer
un
fichier Excel dont le nom commence par 20. J'ai pensé à la fonction "name
as"
mais je ne sais pas sélectionner qu'une partie du nom du fichier à
renommer.
Exemple : le fichier d'aujourd'hui se nomme "20xp8.xls", demain il
s'appelera "20puy.xls" avec comme unique clef le chiffre 20 présent dans
chaque fichier et en début de fichier, pour finalement le renommer en
"résultat.xls".
Pouvez vous m'aider ?
Merci d'avance.







Avatar
Daniel
Désolé, j'avais modifié le code pour le tester :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Daniel
"tetro curieux" a écrit dans le
message de news:
Désolé mais je ne vois pas pourquoi il y a 05 ? pourquoi les données sont
un
moment sur e: puis sur c:temp ?

Pouvez vous m'expliquer un peu plus clairement, merci.


Bonjour.
Si tu n'as qu'un fichier commençant par 20 dans ton dossier :

Sub test()
fich = Dir("e:donneesdanielmpfe5*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Cordialement.
Daniel

"tetro curieux" <tetro a écrit dans le
message de news:
Bonjour, je cherche à incorper dans une macro la possibilité de
renommer
un
fichier Excel dont le nom commence par 20. J'ai pensé à la fonction
"name
as"
mais je ne sais pas sélectionner qu'une partie du nom du fichier à
renommer.
Exemple : le fichier d'aujourd'hui se nomme "20xp8.xls", demain il
s'appelera "20puy.xls" avec comme unique clef le chiffre 20 présent
dans
chaque fichier et en début de fichier, pour finalement le renommer en
"résultat.xls".
Pouvez vous m'aider ?
Merci d'avance.









Avatar
tetro curieux
Désolé Daniel mais cela ne fonctionne pas.

Aurais tu une autre méthode ?

"Daniel" wrote:

Désolé, j'avais modifié le code pour le tester :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Daniel
"tetro curieux" a écrit dans le
message de news:
Désolé mais je ne vois pas pourquoi il y a 05 ? pourquoi les données sont
un
moment sur e: puis sur c:temp ?

Pouvez vous m'expliquer un peu plus clairement, merci.


Bonjour.
Si tu n'as qu'un fichier commençant par 20 dans ton dossier :

Sub test()
fich = Dir("e:donneesdanielmpfe5*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Cordialement.
Daniel

"tetro curieux" <tetro a écrit dans le
message de news:
Bonjour, je cherche à incorper dans une macro la possibilité de
renommer
un
fichier Excel dont le nom commence par 20. J'ai pensé à la fonction
"name
as"
mais je ne sais pas sélectionner qu'une partie du nom du fichier à
renommer.
Exemple : le fichier d'aujourd'hui se nomme "20xp8.xls", demain il
s'appelera "20puy.xls" avec comme unique clef le chiffre 20 présent
dans
chaque fichier et en début de fichier, pour finalement le renommer en
"résultat.xls".
Pouvez vous m'aider ?
Merci d'avance.














Avatar
Daniel
Re désolé :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

NB. Tu remplaces bien sûr c:temp par ton dossier.
Daniel
"tetro curieux" a écrit dans le
message de news:
Désolé Daniel mais cela ne fonctionne pas.

Aurais tu une autre méthode ?

"Daniel" wrote:

Désolé, j'avais modifié le code pour le tester :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Daniel
"tetro curieux" a écrit dans le
message de news:
Désolé mais je ne vois pas pourquoi il y a 05 ? pourquoi les données
sont
un
moment sur e: puis sur c:temp ?

Pouvez vous m'expliquer un peu plus clairement, merci.


Bonjour.
Si tu n'as qu'un fichier commençant par 20 dans ton dossier :

Sub test()
fich = Dir("e:donneesdanielmpfe5*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Cordialement.
Daniel

"tetro curieux" <tetro a écrit dans
le
message de news:
Bonjour, je cherche à incorper dans une macro la possibilité de
renommer
un
fichier Excel dont le nom commence par 20. J'ai pensé à la fonction
"name
as"
mais je ne sais pas sélectionner qu'une partie du nom du fichier à
renommer.
Exemple : le fichier d'aujourd'hui se nomme "20xp8.xls", demain il
s'appelera "20puy.xls" avec comme unique clef le chiffre 20 présent
dans
chaque fichier et en début de fichier, pour finalement le renommer
en
"résultat.xls".
Pouvez vous m'aider ?
Merci d'avance.
















Avatar
tetro curieux
Tu n'as pas à être désolé, par contre c'est l'identique au message d'en
dessous à moins que j'ai les yeux qui louchent...

Merci quand même.

"Daniel" wrote:

Re désolé :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

NB. Tu remplaces bien sûr c:temp par ton dossier.
Daniel
"tetro curieux" a écrit dans le
message de news:
Désolé Daniel mais cela ne fonctionne pas.

Aurais tu une autre méthode ?

"Daniel" wrote:

Désolé, j'avais modifié le code pour le tester :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Daniel
"tetro curieux" a écrit dans le
message de news:
Désolé mais je ne vois pas pourquoi il y a 05 ? pourquoi les données
sont
un
moment sur e: puis sur c:temp ?

Pouvez vous m'expliquer un peu plus clairement, merci.


Bonjour.
Si tu n'as qu'un fichier commençant par 20 dans ton dossier :

Sub test()
fich = Dir("e:donneesdanielmpfe5*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Cordialement.
Daniel

"tetro curieux" <tetro a écrit dans
le
message de news:
Bonjour, je cherche à incorper dans une macro la possibilité de
renommer
un
fichier Excel dont le nom commence par 20. J'ai pensé à la fonction
"name
as"
mais je ne sais pas sélectionner qu'une partie du nom du fichier à
renommer.
Exemple : le fichier d'aujourd'hui se nomme "20xp8.xls", demain il
s'appelera "20puy.xls" avec comme unique clef le chiffre 20 présent
dans
chaque fichier et en début de fichier, pour finalement le renommer
en
"résultat.xls".
Pouvez vous m'aider ?
Merci d'avance.





















Avatar
Daniel
T'es sûr pour tes yeux ? ;-)))
Il y a un "" en plus dans la dernière version.
Quant à être désolé, si; c'est l'étalage public de mon ineptie. snif.
Daniel
"tetro curieux" a écrit dans le
message de news:
Tu n'as pas à être désolé, par contre c'est l'identique au message d'en
dessous à moins que j'ai les yeux qui louchent...

Merci quand même.

"Daniel" wrote:

Re désolé :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

NB. Tu remplaces bien sûr c:temp par ton dossier.
Daniel
"tetro curieux" a écrit dans le
message de news:
Désolé Daniel mais cela ne fonctionne pas.

Aurais tu une autre méthode ?

"Daniel" wrote:

Désolé, j'avais modifié le code pour le tester :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Daniel
"tetro curieux" a écrit dans
le
message de news:
Désolé mais je ne vois pas pourquoi il y a 05 ? pourquoi les données
sont
un
moment sur e: puis sur c:temp ?

Pouvez vous m'expliquer un peu plus clairement, merci.


Bonjour.
Si tu n'as qu'un fichier commençant par 20 dans ton dossier :

Sub test()
fich = Dir("e:donneesdanielmpfe5*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Cordialement.
Daniel

"tetro curieux" <tetro a écrit
dans
le
message de news:

Bonjour, je cherche à incorper dans une macro la possibilité de
renommer
un
fichier Excel dont le nom commence par 20. J'ai pensé à la
fonction
"name
as"
mais je ne sais pas sélectionner qu'une partie du nom du fichier
à
renommer.
Exemple : le fichier d'aujourd'hui se nomme "20xp8.xls", demain
il
s'appelera "20puy.xls" avec comme unique clef le chiffre 20
présent
dans
chaque fichier et en début de fichier, pour finalement le
renommer
en
"résultat.xls".
Pouvez vous m'aider ?
Merci d'avance.























Avatar
tetro curieux
SUPER DANIEL ! Ca fonctionne nickel !!!!

MERCI !!!!!!!!!!!!!!!!!!!!!



T'es sûr pour tes yeux ? ;-)))
Il y a un "" en plus dans la dernière version.
Quant à être désolé, si; c'est l'étalage public de mon ineptie. snif.
Daniel
"tetro curieux" a écrit dans le
message de news:
Tu n'as pas à être désolé, par contre c'est l'identique au message d'en
dessous à moins que j'ai les yeux qui louchent...

Merci quand même.

"Daniel" wrote:

Re désolé :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

NB. Tu remplaces bien sûr c:temp par ton dossier.
Daniel
"tetro curieux" a écrit dans le
message de news:
Désolé Daniel mais cela ne fonctionne pas.

Aurais tu une autre méthode ?

"Daniel" wrote:

Désolé, j'avais modifié le code pour le tester :

Sub test()
fich = Dir("c:temp20*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Daniel
"tetro curieux" a écrit dans
le
message de news:
Désolé mais je ne vois pas pourquoi il y a 05 ? pourquoi les données
sont
un
moment sur e: puis sur c:temp ?

Pouvez vous m'expliquer un peu plus clairement, merci.


Bonjour.
Si tu n'as qu'un fichier commençant par 20 dans ton dossier :

Sub test()
fich = Dir("e:donneesdanielmpfe5*.xls")
Name "c:temp" & fich As "c:tempresultat.xls"
End Sub

Cordialement.
Daniel

"tetro curieux" <tetro a écrit
dans
le
message de news:

Bonjour, je cherche à incorper dans une macro la possibilité de
renommer
un
fichier Excel dont le nom commence par 20. J'ai pensé à la
fonction
"name
as"
mais je ne sais pas sélectionner qu'une partie du nom du fichier
à
renommer.
Exemple : le fichier d'aujourd'hui se nomme "20xp8.xls", demain
il
s'appelera "20puy.xls" avec comme unique clef le chiffre 20
présent
dans
chaque fichier et en début de fichier, pour finalement le
renommer
en
"résultat.xls".
Pouvez vous m'aider ?
Merci d'avance.