Récupérer le chemin d'un fichier

Bonjour,

J'ai un fichier A.xlsm dans lequel j'ai la macro.

Je souhaite dans cette macro créer un fichier B.xlsx dans le même répertoire que le fichier A.

Pouvez-vous m'indiquer comment récupérer le chemin du fichier A.

Merci d'avance pour votre réponse.

Bonne journée

Bonjour

Macro a tester

Sub CreerFichierB()
    Dim chemin As String
    Dim nomFichierB As String
    Dim nouveauClasseur As Workbook

    ' Récupérer le chemin du fichier A.xlsm
    chemin = ThisWorkbook.Path

    ' Définir le nom du nouveau fichier
    nomFichierB = chemin & "\B.xlsx"

    ' Créer un nouveau classeur
    Set nouveauClasseur = Workbooks.Add

    ' Enregistrer le nouveau classeur sous le nom B.xlsx
    nouveauClasseur.SaveAs Filename:=nomFichierB, FileFormat:=xlOpenXMLWorkbook

    ' Fermer le nouveau classeur
    nouveauClasseur.Close

    MsgBox "Le fichier B.xlsx a été créé dans " & chemin
End Sub

Bonjour,

Merci pour votre aide.

Bonne journée.