Menu

Macro pour renommer un fichier excel [Résolu]

Messages postés
26
Date d'inscription
lundi 25 mai 2015
Dernière intervention
10 décembre 2018
- - Dernière réponse : kojko
Messages postés
26
Date d'inscription
lundi 25 mai 2015
Dernière intervention
10 décembre 2018
- 3 déc. 2018 à 15:10
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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
15582
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
9 décembre 2018
0
Merci
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


kojko
Messages postés
26
Date d'inscription
lundi 25 mai 2015
Dernière intervention
10 décembre 2018
-
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
michel_m
Messages postés
15582
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
9 décembre 2018
-
bonjour

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

comme il m'est impossible de le savoir... précise
kojko
Messages postés
26
Date d'inscription
lundi 25 mai 2015
Dernière intervention
10 décembre 2018
-
Bonjour,

sa marche, je t'en remercie beaucoup :)
passe une bonne journée
Commenter la réponse de michel_m