DominoArea.org [Archive]

Bonjour à tous

J'ai une variable qui contient plusieurs valeurs et je voudrais savoir comment faire pour placer dans une variable le nombre de valeurs.
Je code en lotus script.


Voici mon code :

Code : Tout sélectionner

Dim FichierAEnvoyerTemp As Variant
   FichierAEnvoyerTemp = ws1.OpenFileDialog(True, "Choisissez le fichier à envoyer",, "c:\work")

   
   Dim NbFichiersJoints As String
   NbFichiersJoints = "nombre de valeurs dans la variable FichierAEnvoyerTemp "

Merci de votre aide

désolé mais je comprend rien !

Désolé j'ai peut être été un peu trop succinct.

Alors je m'explique j'ai fait un agent qui fait un E-Mailling.

A l'intérieur de cet agent, j'ai un bout de code qui me permet d'afficher une fenêtre de selection pour choisir 1 ou plusieurs documents qui seront en pièce jointe dans mon mail.

Le problème c'est que quand je selectionne plusieurs fichiers, je voudrais qu'ils soient tous joints au mail.

Pour cela je place dans la variable FichierAEnvoyerTemp la liste de tous les documents, et après je les insère un par un dans le corps du mail.
Le problème est que je mets comme code :

Code : Tout sélectionner

Dim FichierAEnvoyerTemp As Variant
   FichierAEnvoyerTemp = ws1.OpenFileDialog(True, "Choisissez le fichier à envoyer",, "c:\work")
   
   Dim FichierAEnvoyer As String
   FichierAEnvoyer = Trim(FichierAEnvoyerTemp(0))
   Dim FichierAEnvoyer2 As String
   FichierAEnvoyer2 = Trim(FichierAEnvoyerTemp(1))
   Dim FichierAEnvoyer3 As String
   FichierAEnvoyer3 = Trim(FichierAEnvoyerTemp(2))
   Dim FichierAEnvoyer4 As String
   FichierAEnvoyer4 = Trim(FichierAEnvoyerTemp(3))
   Dim FichierAEnvoyer5 As String
   FichierAEnvoyer5 = Trim(FichierAEnvoyerTemp(4))

Et quand par exemple je selectionne que 2 fichiers, j'ai une erreure à la ligne "FichierAEnvoyer3 = Trim(FichierAEnvoyerTemp(2)) " ce qui est normal car il y a pas de valeur en 3 dans ma variable FichierAEnvoyerTemp .


Donc pour pallier à cela je voudrais définir dans une variable le nombre de valeurs que j'ai dans FichierAEnvoyerTemp

J'espère avoir été suffisament clair, mais pas sûre.

Merci

Bonsoir,
Et si tu concatènais la sélection des noms de fichiers avec un séparateur (delim) dans une seule chaine "Fichieraenvoyer" et que tu faisait une boucle ensuite genre:
'Pour toutes les valeurs trouvées dans Fichieraenvoyer

ret1 = Split(Fichieraenvoyer, delim)
Forall v In ret1
'création du mémo ajout de la pièce jointe (v)

end forall

salut

une petite boucle sur ton array devrais résoucre le problème

forall v in fichierAEnvoyerTemp

end forall