Macro pour renommer un fichier excel

Résolu
kojko Messages postés 33 Statut Membre -  
kojko Messages postés 33 Statut Membre -
Bonjour,

J'ai dans mon fichier excel, je voudrai utiliser les données de la colonne A et la ligne 1 afin de renommer directement mon fichier excel.

Cordialement.

Configuration: Windows / Chrome 70.0.3538.102
A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour

essaies 
Sub renommer()
Dim Chemin As String, Actuel As String, Nouveau As String
With ThisWorkbook
Chemin = .Path
Actuel = .Name
Nouveau = .ActiveSheet.Range("A1").Value
ChDir Chemin
ActiveWorkbook.SaveAs Filename:=(Nouveau)
End With
Kill Actuel
End Sub


0
kojko Messages postés 33 Statut Membre
 
Bonjour Michel,

je te remercie pour votre réponse mais j'obtiens la "fameuse" erreur d’exécution 91
Voici le code surligné qui proviendrait de l'erreur :

Nouveau = .ActiveSheet.Range("A1").Value

cordialement
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
bonjour

Peu-être que la cellule A1 contient autre chose que du texte...

comme il m'est impossible de le savoir... précise
0
kojko Messages postés 33 Statut Membre
 
Bonjour,

sa marche, je t'en remercie beaucoup :)
passe une bonne journée
0