Discussion :

[chrystobale]

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

[ucfoutu]

Bonjour,
je n'ai pas regardé le code de ta fonction (peu importe)...
Ta réponse est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mavariable = EmplacementFichierExport()

Dans la partie générale ou en Public dans un module (selon la portée que tu veux lui donner) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim mavariable as string

[chrystobale]

hello ucFoutu,
Je comprends mieux dans mon code j'indique
Textbox1 = EmplacementFichierExport() ce qui revient à mavariable = EmplacementFichierExport().
J'imiginais que j'étais obligé de stocker le résultat dans une autre variable mais par défaut l'info est déjà dans le Textbox1 ... donc je tournais à priori en rond alors que la solution était là.
Je réalise maintenant ...

Merci,

Chrysto