Variable pour le nombre de fichiers choisi

Bonjour,

Le code suivant me permet de choisir des documents soit un par un soit plusieurs d'affilé si je ne souhaite pas relancer le programme plusieurs fois.

'boite de dialogue qui permet d'ouvrir des documents en xlsY (Y = n'importe quoi), par exemple xls et xlsx
Dim filetoopen()
filetoopen = Application.GetOpenFilename("Excel Files(*.xls*), (*.xls*)", , , , True)

J'aimerais avoir une variable qui soit égale au nombre de document que je choisis mais je ne sais pas comment faire donc je fais appel à vous.

Re,

Tu peux faire cela :

Dim filetoopen
nbFile as Integer
filetoopen = Application.GetOpenFilename("Excel Files(*.xls*), (*.xls*)", , , , True)
if IsArray (filetoopen) then
  nbFile = UBound(filetoopen)
end if

Merci beaucoup. Je vais essayer ça et je reviens et dire si c'est bon pour moi.

Cela fonctionne très bien. Merci beaucoup et bonne journée.