Gestion Locataires 31 Oct 2005

fpointeau à dit:

Un grand merci pour cette nouvelle version.
Facile a prendre en main.
Exactement ce que je cherchais.
La nouvelle version me génère toujours 2 pages par exemple pour les quittances de loyer sous word 2016.
Voici le code si besoin...

Cliquez pour agrandir...

bonjour
a voir supprimer une ou deux lignes FichWord.Selection.TypeParagraph vers la fin...(en gras et rouge ci dessous)


FichWord.Documents.Add
FichWord.Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
FichWord.Selection.ParagraphFormat.SpaceAfter = 6
FichWord.Selection.ParagraphFormat.Alignment = 0
FichWord.Selection.TypeText Text:=NomProprio & " " & PrenomProprio & _
vbTab & vbTab & CmneProprio & ", le "
FichWord.Selection.InsertDateTime DateTimeFormat:="d MMMM yyyy"
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeText Text:=AdresseProprio
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeText Text:=CPProprio & " " & CmneProprio
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & _
vbTab & vbTab & vbTab & RechercheLocataire
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & _
vbTab & vbTab & vbTab & AdresseLoc
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & _
vbTab & vbTab & vbTab & CPLoc & " " & CmneLoc
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.Font.Size = 20
FichWord.Selection.Font.Bold = 1
FichWord.Selection.ParagraphFormat.Alignment = 1
FichWord.Selection.TypeText Text:="Quittance de " & RechercheDate
FichWord.Selection.Font.Size = 12
FichWord.Selection.TypeParagraph
FichWord.Selection.ParagraphFormat.Alignment = 0
FichWord.Selection.Font.Bold = 0
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeText Text:="Je soussigné, " & NomProprio & " " & PrenomProprio & ", propriétaire(s) du logement situé au " & Chr(10) & AdresseLocation & "," & Chr(10) & "déclare avoir reçu de " & RechercheLocataire
FichWord.Selection.TypeText Text:=", la somme de " & TotalDuLocataire & " € (" & TotalDuLocataireTexte & "), au titre du paiement du loyer et des charges pour la période de location du mois de " & RechercheDate
FichWord.Selection.TypeText Text:=" du logement ci-dessus indiqué, et lui en donne quittance sous réserve de tous mes droits."
FichWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.Font.Bold = 1
FichWord.Selection.Font.Underline = 1
FichWord.Selection.TypeText Text:="Détails du règlement" & Chr(10)
FichWord.Selection.Font.Bold = 0
FichWord.Selection.Font.Underline = 0
FichWord.Selection.TypeText Text:="Loyer" & vbTab & vbTab & ":" & Chr(160) & Mid(EspacesTxt, 1, 2 * (Len(TotalLocataire) - Len(LoyerLocataire))) & LoyerLocataire & " €" & Chr(10)
FichWord.Selection.TypeText Text:="Charges" & vbTab & ":" & Chr(160) & Mid(EspacesTxt, 1, 2 * (Len(TotalLocataire) - Len(ChargesLocataire))) & ChargesLocataire & " €" & Chr(10)
FichWord.Selection.TypeText Text:="Total" & vbTab & vbTab & ":" & Chr(160) & TotalLocataire & " €" & Chr(10)
FichWord.Selection.TypeText Text:="Total Réglé" & vbTab & ":" & Chr(160) & TotalDuLocataire & " €"
If CAFLocataire <> 0 Then
FichWord.Selection.TypeText Text:=" (" & CAFLocataire & " € allocation logement déduite )"
End If
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & _
vbTab & NomProprio & " " & PrenomProprio
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.TypeParagraph
FichWord.Selection.Font.Size = 8
FichWord.Selection.TypeText Text:="Cette quittance annule tous les reçus qui auraient pu être établis précédemment en cas de paiement partiel du montant du présent terme. Elle est à conserver pendant trois ans par le locataire (article 7-1 de la loi n° 89-462 du 6 juillet 1989)"

FichWord.ActiveDocument.SaveAs Fichier
FichWord.ActiveDocument.Close