Microsoft 365 Renommer un fichier excel par une case

Drim4-cus · 17 Novembre 2021

Bonjour à tous,

Je fais appel à votre expertise VBA afin de m'aider dans l'élaboration d'une macro, je souhaiterai pouvoir renommer un fichier Excel à l'aide d'une case spécifique exemple: A1.

Merci par avance,

Bien cordialement,

dodineau · 26 Novembre 2021

Bonjour,
A tester

VB:

Sub Renomme()
    fichier_renom = ThisWorkbook.Path & "\" & Range("A1") & ".xlsm"
    Fichier_actu = ActiveWorkbook.FullName
    If Fichier_actu <> fichier_renom Then
        ActiveWorkbook.SaveAs Filename:=fichier_renom
        Kill Fichier_actu
    End If
End Sub

A+

Microsoft 365 Renommer un fichier excel par une case

Drim4-cus

XLDnaute Nouveau

dodineau

XLDnaute Occasionnel

Discussions similaires

Microsoft 365 Renommer un fichier excel par une case

Drim4-cus

XLDnaute Nouveau

dodineau

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency