Macro pour renommer un fichier excel [Résolu/Fermé]

Signaler
Messages postés
29
Date d'inscription
lundi 25 mai 2015
Statut
Membre
Dernière intervention
22 novembre 2020
-
Messages postés
29
Date d'inscription
lundi 25 mai 2015
Statut
Membre
Dernière intervention
22 novembre 2020
-
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

1 réponse

Messages postés
16444
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
4 mai 2021
3 169
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


Messages postés
29
Date d'inscription
lundi 25 mai 2015
Statut
Membre
Dernière intervention
22 novembre 2020

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
Messages postés
16444
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
4 mai 2021
3 169
bonjour

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

comme il m'est impossible de le savoir... précise
Messages postés
29
Date d'inscription
lundi 25 mai 2015
Statut
Membre
Dernière intervention
22 novembre 2020

Bonjour,

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