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 :
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
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+
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 :
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
Code:
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 SubJe 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+