Bonjour,
erreur, excusez moi
:-x

Bonjour,
Et apperemment ca bloque sur le mot Triplet au niveau de la ligne: UserInput2.Add Triplet

je pense que ça bloque avant...

Only public user defined types defined in public object modules can be used as parameters or return types for public procedures of class modules or as fields of public user defined types

Cela veut dire que la variable est définie mais pas initialisée.

Deplus tu ne montre pas comment tu appelles cette fonction
un exemple

sub test()

montruc=mafonction(x,y,z)

end sub

mafonction(x as integer,y as integer, z as integer) as boolean
mafonction=true
end function

cela n'est pas simple ...
mais je remarque ceci

*********************************************
dans la fonction....
Dim Counter As Integer, file_names As Variant, Triplet As SpecificationInformation2
file_names = Application.GetOpenFilename("All Files (*.*),*.*", , "Select Specification Files", , True)

If IsArray(file_names) Then
For Counter = LBound(file_names)</gras> To UBound(file_names)
Triplet.Title = Replace(file_names(Counter), CurDir() & "\", "")
UserInput2.Add Triplet
Next Counter

End If

le problème est que tu utilises une variable de type variant et que tu la passe à un tableau qui porte le même
nom d'ailleurs et excel te dit c'est pas possible....
"Seuls les types définis et qui sont définis dans les modules d'objets public peuvent être convertis depuis ou vers variant
ou passés à des fonctions à liaison tardives."

tu as définis ton variant dans la fonction et tu l'utilise comme tableau dans la fonction.
je te propose de redéfinir tes variables. une par ligne

et puis bon code....
A+

Re huma, bonjour bidouilleu_r

j'avais regardé ce matin mais...

en fait la variable de type "type" est peu compatible avec une variable "collection" car si il ya olusieurs variables dans l'index de la collection, celle ci va réclamer un array d'où le refus actuel dans la fonction de huma

ma proposition est donc de créer un array de 3 lignes (division,specif, titre) et de "n" colonnes remplacant la variable type" type" suivant le nombre de fichier sélectionnés dans file_names

Public Function UserInput()
Dim file_names As Variant, dummy As Variant
file_names = Application.GetOpenFilename("All Files (*.*),*.*", , "Select Specification Files", , True)
ReDim dummy(UBound(file_names) - 1, 2)
For Counter = 0 To UBound(dummy)
    dummy(Counter, 2) = Replace(file_names(Counter + 1), CurDir() & "\", "")
Next
UserInput = dummy
End Function

Sub test()
triplet = UserInput
'sort le titre du 1° fichier sélectionné
Range("B2") = triplet(0, 2)
' rentre la division
triplet(0, 1) = 134
'restitue
Range("B3") = triplet(0, 1)
End Sub

Bonjour huma, michel_m

hier je n'ai pas eu le temps de plus me pencher sur ce code.
Merci michel pour ton code qui marche.

et pourquoi il marche ... parce que dans ton code tu ne fais pas référence à une collection
comme huma

En analysant le code de Huma excel dit :
Vous avez tenté d'utiliser un type public défini par l'utilisateur comme paramètre ou comme type renvoyé pour une procédure publique d'un module de classe, ou comme champ d'un type public défini par l'utilisateur. Seuls les types publics définis par l'utilisateur dans un module d'objet public peuvent être utilisés de cette façon

il y a peut-être un moyen de contourner le probleme.
mais la solution la plus simple c'est celle de michel.
Bon week end