Macro pour renommer un fichier excel
Résolu/Fermé
kojko
Messages postés
29
Date d'inscription
lundi 25 mai 2015
Statut
Membre
Dernière intervention
29 mars 2023
-
28 nov. 2018 à 08:31
kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 29 mars 2023 - 3 déc. 2018 à 15:10
kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 29 mars 2023 - 3 déc. 2018 à 15:10
A voir également:
- Macro pour renommer un fichier excel
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Renommer plusieurs fichiers - Guide
- Fichier iso - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié le 28 nov. 2018 à 12:02
Modifié le 28 nov. 2018 à 12:02
Bonjour
essaies
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
3 déc. 2018 à 10:57
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
3 déc. 2018 à 11:56
Peu-être que la cellule A1 contient autre chose que du texte...
comme il m'est impossible de le savoir... précise
3 déc. 2018 à 15:10
sa marche, je t'en remercie beaucoup :)
passe une bonne journée