VBA - Récupérer le nom d'un workbook et d'une feuille

Question

Bonjour, 
La question est assez simple, j'ai deux variable dans lesquelles je voudrais récupérer le nom du workbook actif ainsi que de la feuille active.

A_wBook = InputBox("Please enter the name of the data converted from SAP : ", "Information")
A_Sheet = InputBox("Please enter the name of the Excel Sheet containing the informations you want to export : ", "Information")

Avant je posais la question à l'utilisateur, mais c'est une phase inutile que je voudrais remplacer par un automatisme.

Il doit exister une solution comme :
A_wBook = Template.ActiveWorkbooks.Name (Evidament cela ne marche pas), mais je ne trouve pas la bonne syntaxe.

Merci de m'éclairer,
Cordialement

Vaarek

HFanny · Accepted Answer

Bonjour,

Ceci pourra t'aider je pense :



'nom du classeur actif :
Set A_wbook = ActiveWorkbook.Name
'nom de la feuille active
Set A_Sheet = ActiveSheet.Name



Tiens juste pour te mettre autre chose qui pourrait peut être te servir :


MsgBox "Nombre de classeur ouvert : " & Workbooks.Count

For Each wb In Workbooks
    MsgBox "Le classeur " & wb.Name & " est ouvert."
    For Each ws In wb.Worksheets
        MsgBox ws.Name
    Next ws
Next wb


Fanny

Vaarek · Answer

Autre question, y a-t-il une fonction edit sur le forum?
J'ai oublier de préciser (même si ca paraît évident) Que tout cela je le fais sous VBA - Excel.

Encore merci d'avance

Vaarek · Answer

Bonjour a toi,
Ca marche impécable, et c'était tout bête.
Merci beaucoup

VBA - Récupérer le nom d'un workbook et d'une feuille

3 réponses

Discussions similaires