[VB-E] Comment renommer mes fichiers ?

**teaRz** · 24/05/2006, 14h04

Bonjour à tous,

J'ai 1 répertoire avec différentes .xls dedans. Il me faut renommer tous ces fichiers (il me faut respecter 1 certain format) pour que je puisse les utilisés plus tard.

Afin de le renommer je dois aller chercher des infos dans le .xls. Une fois ces infos récupérées (j'en ai la preuve), je voudrais renommer mon .xls.

J'ai testé différentes manières mais sans succès.

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
Private Sub cmd_rename_Click()
    Application.ScreenUpdating = False      ' hide action on .xls
    Workbooks.Open "C:\Documents and Settings\train3_hanms\Desktop\code\tmlp.xls"     ' open the .xls
    ActiveSheet.UsedRange.Select    ' active the .xls
    
    Dim fic_name As String
    Dim msg As String
    fic_name = Application.Cells(1, 1) & "_" & Application.Cells(1, 2) & "_" & Application.Cells(1, 3) & "_" & Application.Cells(1, 4)
    
    fic_name = fic_name & ".xls"
    msg = MsgBox(fic_name)
    Name "C:\Documents and Settings\train3_hanms\Desktop\code\tmlp.xls" As "C:\Documents and Settings\train3_hanms\Desktop\code\ & fic_name"

End Sub

Comment renommer mon .xls avec mon "fic_name" ?

**Asdorve** · 24/05/2006, 14h18

salut

Code :

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

1
2
3
 
Name "C:\Documents and Settings\train3_hanms\Desktop\code\tmlp.xls" As "C:\Documents and Settings\train3_hanms\Desktop\code\" & fic_name

change les guillemets de la fin de place.

**teaRz** · 24/05/2006, 14h22

"run-time error '75' : Path/file access error"

voila l'erreur qu'il me met quand j'essaie ce que tu m'as dit :]

**Asdorve** · 24/05/2006, 14h26

c'est bizarre

t'es sûr que le chemin d'accès est correct?

**teaRz** · 24/05/2006, 14h29

Oui. Etant donné que si tu regardes bien mon code, quand j'ouvres le .xls pour prendre les infos dedans, je n'ai aucun problème, donc c'est forcément le bon chemin d'accès.

EDIT: je peux renommer mon fichier s'il est ouvert ? ou il faut que je le ferme avant ??

**Asdorve** · 24/05/2006, 14h30

et msg t'affiche quoi?

**teaRz** · 24/05/2006, 14h31

msg m'affiche le nom de mon fichier. c'est juste une vérification pour m'assurer que toutes les infos sont bien prises en compte.

**teaRz** · 24/05/2006, 14h34

Il me suffisait de close mon .xls

Merci quand même :p

**Asdorve** · 24/05/2006, 14h35

évidemment, si ton xls est ouvert tu peux pas le renommer... lol

content que tu ais trouvé. @+

**jmfmarques** · 24/05/2006, 14h37

j'attendais ce moment.... et suis diablement content que le demandeur ait enfin vu tout seul ...!

**Asdorve** · 24/05/2006, 14h39

salut jmf, comment va?
concernant le pb ci-dessus j'ai fait un test chez moi avec un fichier txt ouvert et j'ai pas eu d'erreur.

**Catbull** · 24/05/2006, 14h52

Envoyé par Asdorve

salut jmf, comment va?
concernant le pb ci-dessus j'ai fait un test chez moi avec un fichier txt ouvert et j'ai pas eu d'erreur.

Cela ne dépend pas directement de la nature du fichier. Cela dépend de la stratégie d'ouverture de l'éditeur utilisé. Excel verrouille les fichiers lors de l'ouverture et lève le verrou lors de la fermeture. Cela permet un accès exclusif en écriture sur le fichier.

**Asdorve** · 24/05/2006, 14h53

ok, merci pour ta réponse

**teaRz** · 24/05/2006, 14h54

Je découvre la programmation avec VBA, j'en suis désolé...
Le peu de cours que j'ai eu sur VB concerné juste les interfaces graphiques et la création de ptite appli, telle qu'une calculette. Mais rien dans le genre de ce que je fais. En ce moment c'est la grande découverte pour moi :p
Ce qui explique le fait que je patauge un peu.
De plus, personne ne peut m'aider ici,travaillant pour les responsables des ressources humaines d'Airbus :]
Mais bon, je crois que finalement c'est peut etre mieux ainsi, au moins le résultat sera le fruit de mon 'brainstorm' et le votre biensur

Encore merci de votre indulgence !

**Asdorve** · 24/05/2006, 14h56

certains sont passés par là, d'autres passent par là et enfin il y en a qui passeront par là.
bon courage pour la suite.

**jmfmarques** · 24/05/2006, 14h56

Sois le bienvenu, teaRZ

**teaRz** · 24/05/2006, 15h00

Merci !!

Mon appli est prévu pour 2000 personnes :]
Si ça marche bien, c'est tout Airbus qui va fonctionner avec. Alors je suis bien décidé à faire 1 soft tip top

et avec votre aide, elle n'en sera que mieux