boucle avec EOF [Résolu]

[jmcemoa]

Bonjour,
je voudrais faire une boucle qui se termine à la fin d'un fichier.
Je n'ai pas trouvé de quoi m'aider dans ce que j'ai lu ici (et encore moins dans l'aide de Word).
voici un de mes essais :

Do While Not EOF
.../...
Loop

Merci d'avance de bien vouloir m'aider.
Cordialement,
Jean-Marie

[Heureux-oli]

Une boucle sur quoi ?

Sur les paragraphes, les phrases, les mots, les lettres, .....

En général, en VBA, on boucle sur un objet qui se trouve dans une collection.

Dis nous quel boucle tu veux fair et pour quel résultat.

[jmcemoa]

Bonjour Heureux-oli
et merci de me répondre
Mon but est d'imprimer différents documents dont la liste est contenu dans un tableau (1 seule colonne avec titre) dans le fichier "liste impression.doc".
Je bute sur "Do While Not EOF"
voici le routine que j'essaye :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub impression()
   Dim imprim As String
    Documents.Open FileName:="liste impression.doc"
    Selection.HomeKey Unit:=wdStory
    Do While Not EOF
        Selection.MoveRight Unit:=wdCell
        Selection.Copy
        imprim = Selection
        Documents.Open FileName:=imprim
        Application.PrintOut
        ActiveDocument.Close
    Loop
    ActiveDocument.Close
End Sub

J'espère que mes explications sont assez claires
Cordialement,
Jean-Marie

[Heureux-oli]

Pour une table, il y a une autre méthode plus efficace.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim tbl as table
dim i as integer
dim oDoc as Document
set tbl = activeDocument.rows.count
 
For i = 1 to tbl.Rows.count
    set oDoc =  Document.open FileName:=tbl.cell(i,1)
    oDoc.PrintOut
    oDoc.Close
    set oDoc = Nothing
next i

[jmcemoa]

j'aurais souhaité une réponse pour la boucle mais ...

Comme je ne suis pas trés doué en VBA, j'ai néanmoins essayé la routine afin d'en apprendre un peu plus.
J'ai malheureusement été bloqué sur la ligne
set oDoc = Document.open FileName:=tbl.cell(i,1)
avec le message : erreur de compilation - erreur de syntaxe
et cela dés le début.
J'ai surement du faire une erreur quelque part, mais où ?

Voici le fichier en question pour voir ce que j'ai fait

[Heureux-oli]

Excuse moi, j'ai oublié un morceau.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim oTbl As Table
Dim i As Integer
 
Set oTbl = ActiveDocument.Tables(1)
For i = 2 To oTbl.Rows.Count
    SET oDoc = Documents.Open FileName:=Left(oTbl.Cell(i, 1).Range.Text, Len(oTbl.Cell(i, 1).Range.Text) - 2)
    oDoc.PrintOut
    oDoc.close
    set oDoc = Nothing
Next i
 
End Sub

Mais dans ton tableau, il manque le chemin du fichier en plus du nom.

Le principe de cette boucle :
On compte le nombre de ligne de la table, on adresse chaque cellule Cell(i,1) pour en récupérer le contenu.
Dans le cas d'une table While Not EOF // Wend ne fonctionne pas.

[jmcemoa]

Désolé de t'embêter encore, mais le problème persiste sur la ligne :
"SET oDoc = Documents.Open FileName:=Left(oTbl.Cell(i, 1).Range.Text, Len(oTbl.Cell(i, 1).Range.Text) - 2)"

Le chemin a été mis en tête pour éviter les répititions.

J'avoue mon incompréhension car je ne "vois" pas ce qui cloche.
Jean-Marie

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/01/2008 par jmcemoa  (aidé de "Heureux-oli")
'
    ChangeFileOpenDirectory _
           ActiveDocument.Path & "\"
Dim oTbl As Table
Dim i As Integer
 
Set oTbl = ActiveDocument.Tables(1)
For i = 2 To oTbl.Rows.Count
    SET oDoc = Documents.Open FileName:=Left(oTbl.Cell(i, 1).Range.Text, Len(oTbl.Cell(i, 1).Range.Text) - 2)
    oDoc.PrintOut
    oDoc.Close
    Set oDoc = Nothing
Next i
 
End Sub

[Heureux-oli]

Ne me frappe pas tout de suite !

Quand on met un = il faut des ()

Code :

SET oDoc = Documents.Open (FileName:=Left(oTbl.Cell(i, 1).Range.Text, Len(oTbl.Cell(i, 1).Range.Text) - 2))

[jmcemoa]

Je n'oserais pas te frapper, surtout maintenant que cela fonctionne.
De plus, j'aurais appris de nouvelles choses et ça, c'est un plus.

Encore merci à toi, à ta patience et à ton dévouement.
Jean-Marie


PS : le mois n'étant pas fini, je peux encore te souhaiter mes meilleurs voeux pour 2008
Bonne année et bonne santé

[Heureux-oli]

Merci, mais pour la prochaine question où tu es satisfait de nos service, clique sur .
Je vais le faire, mais en principe, c'est la façon de dire Ok tout baigne.