Discussion :

[Bidule99]

Bonjour,


Existe t'il un équivalent VBA à CELL("filename",A1)?

Je n'ai pas réussi à trouver de réponse dans le forum.

Merci

[unparia]

Bonjour

VBA ne saurait comprendre une telle "syntaxe".
Qu'est CELL ? Où et comment l'as-tu déclarée et initialisée ?

Que faut-il écrire ? -->> je n'en sais rien puisque tu ne dis rien des tenants et des aboutissants

[anasecu]

Bonjour,

Tu devrais trouver ici : http://="https://docs.microsoft.com/...ook.fullname?"
ou ici : http://="https://docs.microsoft.com/...orkbook.name?"
selon ce que tu veux.

[Philippe Tulliez]

Bonjour,
Pour renvoyer

• l'adresse complète d'une cellule (parentalité complète), il faut utiliser la propriété Address de l'objet Range avec l'argument nommé External à True (Ex : ThisWorkbook.Worksheets("Accueil").Range("A1").Address(external:=True)
• le chemin complet du répertoire où se trouve un classeur il faut utiliser la propriété Path de l'objet Workbook (Ex : ThisWorkbook.Path)
• le chemin complet + le nom du classeur FullName de l'objet Workbook (Ex : ThisWorkbook.FullName)

donc en écrivant le code ci-dessous,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 With ThisWorkbook
  MsgBox .Path & "\" & .Worksheets("Accueil").Range("A1").Address(external:=True)
 End With

tu auras le même résultat que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CELLULE("nomfichier";Accueil!A1)

avec la référence de la cellule

ou encore sans la référence de la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook
 MsgBox .FullName & "\" & .Worksheets("Accueil").Name
End With

ou en se référant à la feuille active

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveSheet
 MsgBox .Parent.FullName & "\" & .Name
End With

[Bidule99]

Bonjour

VBA ne saurait comprendre une telle "syntaxe".
Qu'est CELL ? Où et comment l'as-tu déclarée et initialisée ?

Que faut-il écrire ? -->> je n'en sais rien puisque tu ne dis rien des tenants et des aboutissants

Merci de cette tentative.
CELL est, comme les autres répondants l'ont identifié sans problème, une fonction d'information Excel.

[Bidule99]

Bonjour,

Tu devrais trouver ici : http://="https://docs.microsoft.com/...ook.fullname?"
ou ici : http://="https://docs.microsoft.com/...orkbook.name?"
selon ce que tu veux.

Merci

[Bidule99]

Bonjour,

Merci beaucoup, parfait.

Je marque "Résolu".