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

1 réponse

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. 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
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      bonjour

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

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

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

Discussions similaires

question pix mot caché
aorum10 -
pixlagalere -

7 réponses