Discussion :

[seb92]

Bonjour,

Je m'excuse par avance si ma question montre bien ma nullité en VB mais c'est la 1ere fois que je fais du VB !
En fait j'ai un script en PHP qui lance une macro.
J'ai donc du bidouiller une macro pour l'adapter.
Mais je reste bloquée pour des conneries :

j'essaye de parcourir un tableau (T) (Nb étant le nb d'éléments dans mon tableau) :

Code :

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

1
2
3
4
5
6
7
8
9
    Dim i As Integer
    i = 0
    Do While (i <= Nb)
      Selection.MoveDown Unit:=wdScreen, Count:=10
      Selection.InsertBreak Type:=wdSectionBreakNextPage
      Selection.InsertFile FileName:=T(1), Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    i = i + 1
    Loop

en fait ca fonctionne si je mets le numéro de la rangée en dur : T(1)
(c'était juste pour voir si ca fonctionne)
mais bien sur je voudrais que ce soit dynamique : T(i)
mais à priori T(i) plante

Quelqu'un peut-il me dire comment s'écrit en VB la sélection d'un élément d'un tableau ?

merci bcp pour votre aide


et aussi : quelle est la fonction pour connaitre le nb d'éléments d'un tabeau, parce que là je passe ce Nb en arguments à partir du script PHP.

[SfJ5Rpw8]

ou déclare tu ton tableau ... T ?

pour la taille d'un tableau c'est Ubound

Code :

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

1
2
3
Dim T(2) As Integer ' declare 
Debug.Print UBound(T) ' renvoi le numéro du dernier élément d'un tableau//
T(2) = 4

par défaut le premier élèment est 0 ... et

et Dim T(2) equivaud à : Dim T(0 to 2) donc 3 éléments..

Ubound(t) , renvoi l'indice du dernier élément
LBound(T) , renvoi l'indice du 1° élément , par défaut 0 ..

mais à priori T(i) plante

T(i) est correct du moment que Lbound(T) <= i <= Ubound(T)

[seb92]

je l'avais déclaré audessus le T

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim T() As String
T = FctSplit(Fichs, "|")
 
 
    ChangeFileOpenDirectory "C:\repertoireA\"
    Documents.Open FileName:=T(0), ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
 
 
    Dim i As Integer
    i = 1
    Do While (i <= Nb)
 
      Selection.MoveDown Unit:=wdScreen, Count:=10
      Selection.InsertBreak Type:=wdSectionBreakNextPage
      Selection.InsertFile FileName:=T(i), Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    i = i + 1
    Loop
 
End Sub

je pense pas avoir de souci avec le T
puisque T(0) et T(1) fonctionne (qd je mets l'indice en dur)
ca me fait penser... c'est peut etre le Nb le souci
je le récupère en paramètre
mais faut peut etre que je dise ce qu'est : integer ??
ah oui, je vais essayer ca !!!

merci bbil

[seb92]

ah ok, pigé

en fait fallait que je boucle jusqu'à Nb-1
et pas Nb

suis bête

[zazaraignée]

Salut

Tout juste, Auguste! Mais je ne vois toujours pas où tu as initialisé NB, donc quelle valeur cette variable est sensée avoir. Si NB = 0, les instruction dans ta boucle ne s'exécutent jamais.