RENOMMER ET REMPLACER

FxM

06/07/2004 à 20:27

Patrick JACQUART wrote:

Chers tous,

Comment renommer un fichier automatiquement, en prenant le nom actuel (ex
AZERTYU12345.xls) et en ajoutant le contenu de la cellule I2 (555555)

Cela devrait donner AZERTYU12345555555.xls

Je n'arrive pas, car en déclarant la variable, il garde l'extension et/ou
n'ajoute pas le contenu de I2 etc etc.....

Bien merci d'avance à vous tous,

Patrick

Bonjour,

Tu prends le nom du fichier, lui coupes la queue, y insères ce que tu
veux et recolles les bouts :

=gauche(nom;nbcar(nom)-4) & I2 & droite(nom;4)
fil = left(nom,len(nom)-4) & range("I2") & right(nom,4)

@+
FxM

LeSteph

06/07/2004 à 20:36

Bonsoir,
essaie la fonction Mid

Sub renommplus()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
newchain = Mid(machaine, 1, Len(machaine) - 4) & [i2] & ".xls"
ActiveWorkbook.SaveAs (newchain)
End Sub

LeSteph

"Patrick JACQUART" a écrit dans le message de
news:

Chers tous,

Comment renommer un fichier automatiquement, en prenant le nom actuel (ex
AZERTYU12345.xls) et en ajoutant le contenu de la cellule I2 (555555)

Cela devrait donner AZERTYU12345555555.xls

Je n'arrive pas, car en déclarant la variable, il garde l'extension et/ou
n'ajoute pas le contenu de I2 etc etc.....

Bien merci d'avance à vous tous,

Patrick

FxM

06/07/2004 à 20:39

Non testé :

Sub test()
awb = activeworkbook.name
fil = left(awb,len(awb)-4) & range("I2") & right(awb,4)
activeworkbook.saveas fil
end sub

@+
FxM

Patrick JACQUART wrote:

Bonsoir et merci FxM,

Je colle cela entre Sub .....() et end sub ?? ou est la fonction
ActiveWorkbook.SaveAs et comment la formuler ??

Que veut dire len (le -4 je pense que c'est pour couper l'extension ??)
et enfin le fichier est il renommer ET remplacer ou l'ancien est il encore
sur le DD avec ta formule ??

Merci pour ton éclairage très apprécié !!

Patrick

"FxM" a écrit dans le message de
news:

Patrick JACQUART wrote:

Chers tous,

Comment renommer un fichier automatiquement, en prenant le nom actuel

(ex

AZERTYU12345.xls) et en ajoutant le contenu de la cellule I2 (555555)

Cela devrait donner AZERTYU12345555555.xls

Je n'arrive pas, car en déclarant la variable, il garde l'extension

et/ou

n'ajoute pas le contenu de I2 etc etc.....

Bien merci d'avance à vous tous,

Patrick

Bonjour,

Tu prends le nom du fichier, lui coupes la queue, y insères ce que tu
veux et recolles les bouts :

=gauche(nom;nbcar(nom)-4) & I2 & droite(nom;4)
fil = left(nom,len(nom)-4) & range("I2") & right(nom,4)

@+
FxM

Patrick JACQUART

06/07/2004 à 20:40

Bonsoir et merci FxM,

Je colle cela entre Sub .....() et end sub ?? ou est la fonction
ActiveWorkbook.SaveAs et comment la formuler ??

Que veut dire len (le -4 je pense que c'est pour couper l'extension ??)
et enfin le fichier est il renommer ET remplacer ou l'ancien est il encore
sur le DD avec ta formule ??

Merci pour ton éclairage très apprécié !!

Patrick

"FxM" a écrit dans le message de
news:

Patrick JACQUART wrote:
Chers tous,

Comment renommer un fichier automatiquement, en prenant le nom actuel
(ex

AZERTYU12345.xls) et en ajoutant le contenu de la cellule I2 (555555)

Cela devrait donner AZERTYU12345555555.xls

Je n'arrive pas, car en déclarant la variable, il garde l'extension
et/ou

n'ajoute pas le contenu de I2 etc etc.....

Bien merci d'avance à vous tous,

Patrick

Bonjour,

Tu prends le nom du fichier, lui coupes la queue, y insères ce que tu
veux et recolles les bouts :

=gauche(nom;nbcar(nom)-4) & I2 & droite(nom;4)
fil = left(nom,len(nom)-4) & range("I2") & right(nom,4)

@+
FxM

Patrick JACQUART

06/07/2004 à 20:49

Cher LeSteph,

Merci beaucoup pour la pertinence de ton code: ça marche parfait !!

Un grand merci à toi,

Bonne soirée et à bientôt !!

Patrick

"LeSteph" a écrit dans le message de
news:40eaf149$0$26348$

Bonsoir,
essaie la fonction Mid

Sub renommplus()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
newchain = Mid(machaine, 1, Len(machaine) - 4) & [i2] & ".xls"
ActiveWorkbook.SaveAs (newchain)
End Sub

LeSteph

"Patrick JACQUART" a écrit dans le message
de

news:
Chers tous,

Comment renommer un fichier automatiquement, en prenant le nom actuel
(ex

AZERTYU12345.xls) et en ajoutant le contenu de la cellule I2 (555555)

Cela devrait donner AZERTYU12345555555.xls

Je n'arrive pas, car en déclarant la variable, il garde l'extension
et/ou

n'ajoute pas le contenu de I2 etc etc.....

Bien merci d'avance à vous tous,

Patrick

LeSteph

06/07/2004 à 20:56

Ce fut un plaisir

:-)

"Patrick JACQUART" a écrit dans le message de
news:O$

Cher LeSteph,

Merci beaucoup pour la pertinence de ton code: ça marche parfait !!

Un grand merci à toi,

Bonne soirée et à bientôt !!

Patrick

"LeSteph" a écrit dans le message de
news:40eaf149$0$26348$
Bonsoir,
essaie la fonction Mid

Sub renommplus()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
newchain = Mid(machaine, 1, Len(machaine) - 4) & [i2] & ".xls"
ActiveWorkbook.SaveAs (newchain)
End Sub

LeSteph

"Patrick JACQUART" a écrit dans le message
de

news:
Chers tous,

Comment renommer un fichier automatiquement, en prenant le nom actuel
(ex

AZERTYU12345.xls) et en ajoutant le contenu de la cellule I2 (555555)

Cela devrait donner AZERTYU12345555555.xls

Je n'arrive pas, car en déclarant la variable, il garde l'extension
et/ou

n'ajoute pas le contenu de I2 etc etc.....

Bien merci d'avance à vous tous,

Patrick

Patrick JACQUART

06/07/2004 à 22:11

Cher Le Steph,

Ouille §§ le fichier d'origine est resté sur le DD, ta macro renomme
parfaitement le fichier comme souhaité MAIS ne remplace pas l'ancien,
comment faire ?????

Merci et bonne réflexion !!

Patrick

"LeSteph" a écrit dans le message de
news:40eaf5fc$0$26339$

Ce fut un plaisir

:-)

"Patrick JACQUART" a écrit dans le message
de

news:O$
Cher LeSteph,

Merci beaucoup pour la pertinence de ton code: ça marche parfait !!

Un grand merci à toi,

Bonne soirée et à bientôt !!

Patrick

"LeSteph" a écrit dans le message de
news:40eaf149$0$26348$
Bonsoir,
essaie la fonction Mid

Sub renommplus()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
newchain = Mid(machaine, 1, Len(machaine) - 4) & [i2] & ".xls"
ActiveWorkbook.SaveAs (newchain)
End Sub

LeSteph

"Patrick JACQUART" a écrit dans le
message

de
news:
Chers tous,

Comment renommer un fichier automatiquement, en prenant le nom
actuel

(ex
AZERTYU12345.xls) et en ajoutant le contenu de la cellule I2
(555555)

Cela devrait donner AZERTYU12345555555.xls

Je n'arrive pas, car en déclarant la variable, il garde l'extension
et/ou

n'ajoute pas le contenu de I2 etc etc.....

Bien merci d'avance à vous tous,

Patrick

LeSteph

06/07/2004 à 22:29

Parceque j'avais pas compris que tu voulais aussi le détruire
Il faut le supprimer hors macro
dedans je ne sais pas faire et si je savais
j'éviterais...Workbooks("..").delete dans une macro ,
j'aimerais pas trop que ce soit permis.

Désolé
:-)
LeSteph

"Patrick JACQUART" a écrit dans le message de
news:

Cher Le Steph,

Ouille §§ le fichier d'origine est resté sur le DD, ta macro renomme
parfaitement le fichier comme souhaité MAIS ne remplace pas l'ancien,
comment faire ?????

Merci et bonne réflexion !!

Patrick

"LeSteph" a écrit dans le message de
news:40eaf5fc$0$26339$
Ce fut un plaisir

:-)

"Patrick JACQUART" a écrit dans le message
de

news:O$
Cher LeSteph,

Merci beaucoup pour la pertinence de ton code: ça marche parfait !!

Un grand merci à toi,

Bonne soirée et à bientôt !!

Patrick

"LeSteph" a écrit dans le message de
news:40eaf149$0$26348$
Bonsoir,
essaie la fonction Mid

Sub renommplus()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
newchain = Mid(machaine, 1, Len(machaine) - 4) & [i2] & ".xls"
ActiveWorkbook.SaveAs (newchain)
End Sub

LeSteph

"Patrick JACQUART" a écrit dans le
message

de
news:
Chers tous,

Comment renommer un fichier automatiquement, en prenant le nom
actuel

(ex
AZERTYU12345.xls) et en ajoutant le contenu de la cellule I2
(555555)

Cela devrait donner AZERTYU12345555555.xls

Je n'arrive pas, car en déclarant la variable, il garde
l'extension

et/ou
n'ajoute pas le contenu de I2 etc etc.....

Bien merci d'avance à vous tous,

Patrick

LeSteph

06/07/2004 à 23:16

Sinon, avec prudence tu peux utiliser ceci
mais attention c'est détruit pour de bon:

Sub renommplus()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
newchain = Mid(machaine, 1, Len(machaine) - 4) & [i2] & ".xls"
ActiveWorkbook.SaveAs (newchain)
Kill machaine

End Sub

LeSteph

"Patrick JACQUART" a écrit dans le message de
news:

Cher Le Steph,

Ouille §§ le fichier d'origine est resté sur le DD, ta macro renomme
parfaitement le fichier comme souhaité MAIS ne remplace pas l'ancien,
comment faire ?????

Merci et bonne réflexion !!

Patrick

"LeSteph" a écrit dans le message de
news:40eaf5fc$0$26339$
Ce fut un plaisir

:-)

"Patrick JACQUART" a écrit dans le message
de

news:O$
Cher LeSteph,

Merci beaucoup pour la pertinence de ton code: ça marche parfait !!

Un grand merci à toi,

Bonne soirée et à bientôt !!

Patrick

"LeSteph" a écrit dans le message de
news:40eaf149$0$26348$
Bonsoir,
essaie la fonction Mid

Sub renommplus()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
newchain = Mid(machaine, 1, Len(machaine) - 4) & [i2] & ".xls"
ActiveWorkbook.SaveAs (newchain)
End Sub

LeSteph

"Patrick JACQUART" a écrit dans le
message

de
news:
Chers tous,

Comment renommer un fichier automatiquement, en prenant le nom
actuel

(ex
AZERTYU12345.xls) et en ajoutant le contenu de la cellule I2
(555555)

Cela devrait donner AZERTYU12345555555.xls

Je n'arrive pas, car en déclarant la variable, il garde
l'extension

et/ou
n'ajoute pas le contenu de I2 etc etc.....

Bien merci d'avance à vous tous,

Patrick

RENOMMER ET REMPLACER

9 réponses

Veuillez sélectionner un problème