transformation formule en variable

[dionys0s]

Bonsoir le forum.

J'ai la formule suivante

ActiveCell.FormulaR1C1 = "=LEFT(CELL(""filename"",R1C1),SEARCH(""Bar\["",CELL(""filename"",R1C1))-1)"

qui me renvoie la partie du chemin du classeur qui m'interesse, mais je voudrais me passer de l'incrémentation du résultat dans une cellule et juste définir le résultat comme chemin.

J'ai essayé ceci :

Chemin = LEFT(CELL(""filename"",R1C1),SEARCH(""Bar\["",CELL(""filename"",R1C1))-1).Value

mais ça ne marche pas.

Quelqu'un aurait-il une solution ?
D'avance merci ^^

 

[dionys0s]

Re : transformation formule en variable

Bonsoir
Ce devrait pouvoir te répondre

Sub Tutu()
    MsgBox ActiveWorkbook.Name
    MsgBox ActiveWorkbook.Path
    MsgBox ActiveWorkbook.FullName
End Sub

c'est gentil mais je connaissais ces codes. En fait ma formule me sert à identifier le chemin du dossier parent à celui dans lequel est enregistré le fichier qui contient la macro.

Fais le test avec ma formule dans un classeur tu verras.

Si le chemin de mon fichier est C:\dossier1\dossier2\dossier3\fichier.xls, le résultat de ma formule est C:\dossier1\dossier2

Mais plutot que d'utiliser une cellule dans laquelle je rentre la formule, je voudrais directement définir une variable qui me donnera C:\dossier1\dossier2