renommer un fichier par vba

[Sébastien]

Bonjour

Mon objectif est de renommer un fichier excel à l'aide d'un autre(par VBA)

je souhaite donc par VBa , ouvrir une boite dialogue qui permette à l utilisateur de naviguer et de choisir son fichier, puis vérifier que ce fichier est bien nommé toto, et enfin le renommer toto2.

Voilà

Merci d avance pour votre aide

Sébastien

 

[MichelXld]

bonsoir Sebastien

j'espere que cet exemple poura t'aider
la macro change le nom du classeur selectionné dans la boite de dialogue


Sub renommerClasseur()
Dim Classeur As String, Chemin As String
Dim Fso As Object

Classeur = Application.GetOpenFilename('Fichiers Excel (*.xls), *.xls')
If Classeur = 'Faux' Then Exit Sub

Set Fso = CreateObject('Scripting.FileSystemObject')
Chemin = Fso.GetFile(Classeur).ParentFolder

Name Classeur As Chemin & '\\\\\\\\nouveauNom.xls'
End Sub


bonne soirée
MichelXld

 

[Sébastien]

Merci

Ca marche impeccable.
J abuse encore un peu, je souhaite verifier que le fichier choisit pas l utilisateur s appelle bien 'toto'.
Y a t il un moyen de recuperer uniquement le nom du fichier sans la totalité du chemin??

Merci

Sébastien

 

[MichelXld]

bonjour Sebastien

pour extraire le nom du classeur tu peux utiliser

Fso.GetFile(Classeur).Name



ce qui donne pour ton projet

Option Explicit
Option Compare Text

Sub renommerClasseur_V02()
Dim Classeur As String, Chemin As String
Dim Fso As Object

Classeur = Application.GetOpenFilename('Fichiers Excel (*.xls), *.xls')
If Classeur = 'Faux' Then Exit Sub

Set Fso = CreateObject('Scripting.FileSystemObject')
'MsgBox Fso.GetFile(Classeur).Name

If Fso.GetFile(Classeur).Name = 'toto.xls' Then
Chemin = Fso.GetFile(Classeur).ParentFolder
Name Classeur As Chemin & '\\\\\\\\nouveauNom.xls'
End If
End Sub



bonne journée
MichelXld

 

[Sébastien]

Parfait,parfait!!!!!!!


Merci beaucoup pour ton aide!

Sébastien