renommer un fichier

[al1000]

bonjour,

tous les jours je dois renommer 2 fichiers

le 1 er : matrice raf en 18 8 raf

et le 2em: rec ruf en 18 8 rec ruf


il a t il une possibilité avec une macro?


a+

 

[BERRACHED said]

Re : renommer un fichier

Salut
si c'est un Fichier Excel je crois que c'est ça :

Sub Rename()
        ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\*****\Mes documents\18 8 raf.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
End Sub

Cordialement

 

[Pierrot93]

Re : renommer un fichier

Bonjour al1000, Said

si j'ai bien compris :

ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\*****\Mes documents\" _
    & Format(Date, "d m") & " raf.xls"

enregistre un nouveau classeur, il existe également l'instruction "Name", pour renommer un fichier, ce dernier doit être fermé.

Reviens si nécessaire.

bonne journée
@+

 

[tototiti2008]

Re : renommer un fichier

Bonjour à tous,

si les fichiers ne sont pas ouverts :

Sub Renomme()
    Name "C:\matrice raf.xls" As "C:\" & Format(Date, "dd") & " " & Format(Date, "m") & " raf.xls"
    Name "C:\rec ruf.xls" As "C:\" & Format(Date, "dd") & " " & Format(Date, "m") & " rec ruf.xls"
End Sub

 

[al1000]

Re : renommer un fichier

bonjour,


quand j'ecris ceci:


ActiveWorkbook.SaveAs Filename:="F:\matrice raf.xls" As "F:\" & Format(Date, "dd") & " " & Format(Date, "m") & " raf.xls"

il m'indique erreur de compilation: erreur syntaxe

pourquoi?


1)je voudrai conserver le fichier matrice raf

2) et je souhaiterai qui me demande la date a inscrire

a+

 

[al1000]

Re : renommer un fichier

bonjour,


je voudrai ecrire la macro qui me renomme le fichier


1) garder le fichier matrice en modèle

2) ouvrir une input box pour inscrire la date

3) et enregistrer le fichier


a+

2) garder le fichier matrice en modèle

 

[al1000]

Re : renommer un fichier

bonjour,


je voudrai ecrire la macro qui me renomme le fichier


1) garder le fichier matrice en modèle

2) ouvrir une input box pour inscrire la date


comment ecrire input box?

a+

merci

 

[kjin]

Re : renommer un fichier

Bonsoir,
Peut-être comme ceci

Sub RecFichier()
Fich = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
Datfich = InputBox("Entre la date", "Enregistrement fichier")
If Datfich = "" Then Exit Sub
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\" & Fich & " " & Datfich & ".xls"
End Sub

A+
kjin

 

[al1000]

Re : renommer un fichier

Bonjour,

Cette macro marche bien

Sub RecFichier()
Fich = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
Datfich = InputBox("Entre la date", "Enregistrement fichier")
If Datfich = "" Then Exit Sub
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\" & Fich & " " & Datfich & ".xls"
End Sub

mais je voudrai renommer un ficher qui est fermé mais la macro sera dans un autre classeur ( ce dernier classeur reste ouvert)


a+

 

[tototiti2008]

Re : renommer un fichier

Bonjour al100,

mais je voudrai renommer un ficher qui est fermé mais la macro sera dans un autre classeur ( ce dernier classeur reste ouvert)

voilà qui est clair (j'ai po compris)

ceci dit, un peu plus haut, on t'a proposé des solutions pour renommer un fichier fermé...

 

[kjin]

Re : renommer un fichier

Bonjour,

....mais je voudrai renommer un ficher qui est fermé mais la macro sera dans un autre classeur ( ce dernier classeur reste ouvert)

Le "mais" laisse supposer que la macro ne te satisfait pas alors que, comme tototiti, que je salut, je ne vois pas le rapport 😕
A+
kjin

 

[al1000]

Re : renommer un fichier

Bonjour,


quel support je peux fournir??


a+

 

[tototiti2008]

Re : renommer un fichier

Bonjour al1000,

une explication détaillée, et claire, si possible, avec précisions de quels classeurs doivent être renommés, quels classeurs restent ouverts, quels classeurs lancent la macro... logique, puisqu'on ne comprend pas ton problème, non ?

 

[al1000]

Re : renommer un fichier

Bonjour,


1 er classeur qui reste ouvert : il se nomme "ouverture fichier" c'est dans ce classeur que j'ai mis la macro.

Mais cette macro ( qui est dans le classeur "ouverture fichier") doit renommer un autre fichier par exemple ce fichier qui se nomme "matrice reseau" et il se trouve sur le bureau.

Je voudrai que l'on renomme:"matrice reseau" comme reseau 18 9 ou reseau 19 9 etc
la date je l'incorpore dans une input box


a+

 

[tototiti2008]

Re : renommer un fichier

et l'instruction Name que je t'ai proposé dans le post n°4 ne fonctionne pas ?