Lire fichier fermé vba

[RONIBO]

Bonsoir le forum,

Je viens de finir l'usf que je voulais avoir (Merci à Modeste encore pour son aide)

L'usf va me permettre d'établir une attestation de plusieur(s) facture(s) sur une même page.

Exemple :

ATTESTATION

Je soussigné Mr XXXXXXXXXX
Représentant l’entreprise XXXXXXXXXXX
Adresse : XXXXXXXXXXX
95670 XXXXXXXXX

Atteste avoir reçu de la société SOS BAT en règlement de(s) facture(s) n°003, 004, 005.

Le montant de : 1500 €uros (Somme des trois factures)

J’atteste reverser la T.V.A. correspondante à la Direction Générale des impôts.

Fait pour servir et valoir ce que de droit.

À MARLY LA VILLE, le 01/10/2013

Cachet de l’entreprise Signature

Jusqu'à présent j'utilisé ce code qui fonctionne avec des signets à partir de Word.
En établissant une attestation sur le fichier en cours seulement

Option Explicit
Private Sub TSélectionner_Click()
Dim OWord As Object
Dim ODoc As Object
Dim i&
If LClient.ListIndex = -1 Then MsgBox "Sélectionner le client !", vbInformation, "Attention": Exit Sub
Unload Me
Set OWord = CreateObject("Word.Application")
Set ODoc = OWord.Documents.Open(ThisWorkbook.Path & "\Attestation de T.V.A..doc")
With ODoc
For i = 1 To 1
   .Bookmarks("NomClient").Range = Range("NomClient")
   .Bookmarks("NuméroFacture").Range = Range("NuméroDocument")
   .Bookmarks("TotalTTC").Range = Range("TotalTTC")
Next
End With
OWord.Visible = True
End Sub
Private Sub UserForm_Initialize()
Dim c As Range
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim f As Object
Dim DRL As Double
Set f = Sheets("Akisti Bat")
With LClient
   .Clear
   .TextAlign = fmTextAlignCenter
   .ColumnCount = 1
   .ColumnWidths = "100;100;100"
   .AddItem f.Cells(12, 1).Value
   .List(.ListCount - 1, 1) = f.Cells(13, 1).Value
   .List(.ListCount - 1, 2) = f.Cells(14, 1).Value
End With
End Sub

Je souhaite utiliser le même principe mais pour plusieurs factures en même temps (lorsque je sélectionne plusieurs facture depuis le nouveau usf)

Cela va m'éviter d'imprimer une attestation pour chanque facture.


Voici un fichier exemple à extraire dans c:

Merci d'avance à vous

a+

 

[RONIBO]

Re : Lire fichier fermé vba

Bonjour,

Un message pour remonter mon post

a+