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 ?
MErci d'avance,
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
Chrysto
Partager