Voilà une question qui je l'espere va etre simple pour nombre d'entre vous :
 
comment passer en parametre le nom d'une procédure ?
Je cherche mais je ne trouve pas...
 
Voilà ce que je veux faire :
 
dans la feuille MDI
 
'personnalisation de la boite de dialogue ouvrir
cdl_ouvrir.DialogTitle = "Choisissez un fichier"
cdl_ouvrir.InitDir = "c:\"
cdl_ouvrir.CancelError = False
cdl_ouvrir.Filter = "fichier notes(*.notes)|*.notes"
cdl_ouvrir.ShowOpen
 
Open cdl_ouvrir.FileName For Input As #3
If MDIForm1.cdl_ouvrir.FileName = "C:\C.notes" Then
fonction_ouvrir (affichage_fm)
End If
 
Je veux donc passer le nom de la feuille, ici affichage_fm en parametre.
 
Dans un module, le code de la procedure
 
Public Sub fonction_ouvrir(feuille As String)
 
While Not EOF(3)
Input #3, element
feuille.txt_affnom(i) = element
Input #3, element
feuille.txt_affnote(i) = element
result = result + element
i = i + 1
Wend
Close #3
 
feuille.txt_result = result / 10
feuille.Show
 
Exit Sub
 
End Sub
 
voilà ca marche pas ca doit pas etre string ou ce ne doit pas être comme ca du tout mais j'aimerai bien avoir un peu d'aide.
 
Merci d'avance

Tu passes ta form sous forme de chaine, pas étonnant que ça marche pas ! C'est pas le nom qu'il faut passer en paramètre, mais la Form elle même

De plus, ceci  

est redondant et inutile. Tu peux virer le Exit Sub

J'avais déjà essayé avec form mais ca ne fonctionne pas, il ne rentre meme pas dans la procedure.
 
Je l'ai appelé comme ceci :
fonction_ouvrir (C_fm)
 
pour le exit sub, c vrai que j'ai oublié de le virer, c'était pour un controle d'erreur.
 

t'utilises quelle version de VB ?

VB 6
 
C'est le dernier hic que je rencontre,j'aimerai bien finir ce programme au plus vite.
 
Merci en tt cas pour ton aide

ca ne doit pas être si dure tout de meme. Il suffit juste de remplacer mon : feuille.txt_affnom(i)  par le vrai nom de ma feuille (affichage_fm ou affichage_fm2 ou affichage_fm3). Le seul probème est de savoir comment passer en paramêtre le nom de ma feuille.
 
Mon programme marche sans utiliser de procédure mais j'aimerai mieux en créer pour avoir une meilleur visibilité.
 
Y'a plus d'idées ?
 

C'est à dire ? il te lance une erreur ?

tu te complique bien la vie , a mon avis il suffirait de definir la form dans une variable Feuille ( as Form ) avant de faire appel a ta procédure Fonction_Ouvrir :
 

merci beaucoup ca marche impec avec la dernière soluce
 
@ bientot