Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Gestion Locataires 31 Oct 2005

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bonjour Laurent1050
tu peux m'envoyer ton fichier pour que je regarde dedans...?
tu utilises quelle version? celle que j'ai arrangé ou la version initiale...?
 
Bonjour,
Attention au format numerique ne pas ecrire 320.50 mais 320,50... la virgule numerique prise en compte est la virgule et non le point...
Je ne sais pas si cela apportera une solution a ton probleme...

 
Bonjour à toi Grols,

Merci à toi et à l'auteur pour le travail effectué !

Je me demandais si c'était normal que les baux et autres documents ne se pré remplissent pas ?

Je me suis dit que vu la qualité du document il devait être possible de générer les baux et autres documents automatiquement (comme les quitances).
S'agit d'un bug ou n'est-ce tout simplement pas encore prévu par le fichier ?

Merci 🙂
 
Merci pour l'auteur, je vais l'utiliser.
cela répond a ma demande pour générer les quittances de loyer.

J'ai modifié le code de mise en page pour un meilleur affichage sous excel 2016:

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
 
Bonjour
Non pas encore... peut etre dans une des prochaines versions...
Merci
 
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...
 

Pièces jointes


Bonjour
Merci pour votre programme que j'utilise avec plaisir,
je voulais passer à la version 2, je suis en 64 bites et même avec le fichier revisité que vous avez envoyé j'ai toujours l'erreur 😀eclare PtrSafe...
Etant pas douée en programmation je ne sais pas où se trouve l'endroit ou la manipe pour rajouter: "JUSTE APRES DECLARE DANS MACRO RAJOUT de PTRSAFE
En vous remerciant de toute façon pour le programme que vous avez mis à notre disposition
Cordialement
 
PS: Je viens de voir que la modif etait pour windos 7 et je suis en 10 avec exel 2003
Merci
 
Bonjour
ci dessous une capture avec le rajout de PrtSafe entre Declare et Function dans le module sinon vous avez la version 4 avec quelques ameliorations + corrections....
 
Désolée,
Même avec la version 4 voici la capture d'erreur dés l'ouverture du programme
Merci pur votre patience
Cordialement
 

Pièces jointes

  • Erreur.png
    72.3 KB · Affichages: 38
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…