bonsoir,

J'aurais besoin d'un explication sur la "notion" d'une fonction.
Dans l'exmple qui suit, j'utilise une fonction qui me permet de sauver un rapport dans le répertoire de mon choix et dont le fichier reste ouvert (mais sauvé)
Ce qui m'intéresserait, ca serait de conserver le nom du fichier de sauvegarde dans un variable que je pourrais appeler quand je veux (donc activer le fichier et une feuille de ce fichier). Hors je n'y parviens pas.
Aussi pourriez vous m'expliquer comment y parvenir ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Function EmplacementFichierExport() As String
Dim xlw As Workbook
    Set Newbook = Workbooks.Add
    Do
        fname = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
    Loop Until fname <> False
    Newbook.SaveAs filename:=fname
    If fname = False Then Exit Function
        'Affiche le chemin et le nom du fichier sélectionné.
 
    EmplacementFichierExport = fname
    Set xlw = Workbooks(Mid$(EmplacementFichierExport, InStrRev(EmplacementFichierExport, "\") + 1))
    MsgBox xlw.Name    ' => récupère le nom du fichier en registré
 
    n = xlw.Worksheets.Count
End Function
MErci d'avance,

Chrysto