Discussion :

[julietindiamike]

Bonjour les développeurs,

Toujours dans mes débuts, je bloque encore...
J'ai différents UserForms, dans chacun je déclarais une fonction_ouvre() dans laquelle j'ouvre un tableur (Workbooks.Open Filename:= _"source") et j'utilise ensuite Call fonction_ouvre

Jusque la ca fonctionnait, mais j'ai voulu faire plus "propre" et ne créer qu'une seule fois la fonction_ouvre() dans Module1
Et comme j'ouvre parfois d'autres tableurs, j'ai voulu passer le workbook voulu en tant que paramètre...

Dans Module1 j'ai ce code:

Code :

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

1
2
3
4
5
6
7
8
9
Sub fonction_ouvre(WorkbookVoulu)
If WorkbookVoulu="Recherches" Then
Workbooks.Open Filename:= _
"source" 'Identique à avant
End If
If WorkbookVoulu="LogBook" Then
Workbooks.Open Filename:= _
"source" 'Identique à avant
End If

Et dans mes UserForms je fais comme ca:

Code :

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

Call fonction_ouvre(Recherches)

Je n'ai pas l'habitude de passer ni variable ni fonction d'un module à userform, je m'y prends sans doute mal, quelqu'un sait il m'aider à comprendre comment faudrait il s'y prendre?

[julietindiamike]

Après quelques tests, ça a l'air de fonctionner à présent

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub fonction_ouvre(WorkbookVoulu As String)
If WorkbookVoulu="Recherches" Then
Workbooks.Open Filename:= _
"source" 'Identique à avant
End If
If WorkbookVoulu="LogBook" Then
Workbooks.Open Filename:= _
"source" 'Identique à avant
End If

et en l'utilsant

Code :

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

Call fonction_ouvre("Recherches")

Pouvez-vous me confirmer que c'est propre ainsi?