Exporter vers un nouveau classeur

bonjour

SVP comment faire exporter contenu de listbox vers un nouveau classeur

merci

Bonjour,

Tu récupères le contenu de ta ListBox par :

    Dim Tbl
    Tbl = FormuleTableau.List

Tu affectes par (par exemple) :

    Workbooks("NomClasseur").Worksheets("NomFeuille").Range("A2") _
     .Resize(UBound(Tbl, 1) + 1, UBound(Tbl, 2) + 1).Value = Tbl

NB- En passant par le contenu de la ListBox, tu n'as évidemment pas la ligne d'en-tête de ta plage source. Si tu tiens à l'avoir, tu ne récupères pas à partir de la ListBox mais tu remontes à la plage source !

J'ai fait l'impasse sur la désignation du classeur : tu utiliseras soit une InputBox pour indiquer son nom s'il est ouvert, soit une des méthodes pour aller le chercher et l'ouvrir s'il ne l'est pas...

Cordialement.

Merci bcp MFerrand