Sub genial() ' ' gen Macro ' Macro recorded 21/03/00 by flavigny ' Dim v, nf, ligne As String v = "," Dim dx, dy, hgx, hgy, bdx, bdy As Integer nf = InputBox("nom du fichier dir (a lire)") Open nf For Input As 1 nf = InputBox("nom du fichier image index (a afficher en fond)") bx = 5 by = 5 Dim xetoiley As String xetoiley = InputBox _ ("Donnez le nombre d'images sous la forme nb_de_colonnes*nb_de_lignes") p1 = InStr(xetoiley, "*") If p1 = 0 Then End If nc = Val(Mid$(xetoiley, 1, p1 - 1)) nl = Val(Mid$(xetoiley, p1 + 1)) xetoiley = InputBox _ ("Donnez la taille de l'index sous la forme colonnes*lignes") p1 = InStr(xetoiley, "*") If p1 = 0 Then End If dx = Val(Mid$(xetoiley, 1, p1 - 1)) / nc dy = Val(Mid$(xetoiley, p1 + 1)) / nl d = 0 u = 0 ' ecrire prologue Selection.TypeText Text:="" Selection.TypeParagraph Selection.TypeText Text:= _ "" Selection.TypeText Text:= _ "" Selection.TypeParagraph Selection.TypeText Text:="" Selection.TypeParagraph Selection.TypeText Text:= _ "" & InputBox("Titre de la page") & "" Selection.TypeParagraph Selection.TypeText Text:="" Selection.TypeParagraph Selection.TypeText Text:="" Selection.TypeParagraph Selection.TypeText Text:="

" Selection.TypeParagraph ' ecrire cases For il = 0 To nl - 1 hgy = Int(by + il * dy) bdy = Int(by + il * dy + dy - 1) For ic = 0 To nc - 1 u = u + 1 If u = 10 Then d = d + 1 u = 1 End If hgx = Int(bx + ic * dx) bdx = Int(bx + ic * dx + dx - 1) If EOF(1) Then GoTo fini Line Input #1, ligne Selection.TypeText Text:= _ "" Selection.TypeParagraph Next ic Next il fini: ' fermer area Selection.TypeText Text:= _ "

" Selection.TypeParagraph Selection.TypeText Text:="" Selection.TypeParagraph Selection.TypeText Text:="" Selection.TypeParagraph ' fermer fichier Close #1 End Sub