Macro pour renommer un fichier excel

Résolu
kojko Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -  
kojko Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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 29 Date d'inscription   Statut Membre Dernière intervention  
 
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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 29 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

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