comment utiliser un parametre d'une function n'importe quand et n'importe ou pendant le déroulement de macros
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:
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
