Gestion Locataires 31 Oct 2005

[grols]

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...?

 

[grols]

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,

Je souhaite utiliser ce programme xls qui a l'air tout à fait adapté... Mais il bug chez moi !

Après avoir enregistré les appartements, le propriétaire puis les locataires, il bug quand j'appuie sur paiement "ajouter" :
erreur d'execution '13' - incompatibilité de type

Quelqu'un a-t-il une solution pour déboquer ?

Merci d'avance,
Laurent

 

[Anthonymctm]

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

 

[fpointeau]

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

 

[fpointeau]

Je souhaite ajouter une image dans le fichier word, savez-vous comment faire?

 

[grols]

BONJOUR
VOICI UNE VERSION 4 QUI CORRIGE UNE ERREUR SUR LES INDEX DE REVISION LORS DE LA CREATION DE LOCATAIRE

 

[grols]

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

Bonjour
Non pas encore... peut etre dans une des prochaines versions...
Merci

 

[fpointeau]

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...

 

[manie17]

Bonjour
Tout d'abord un grand merci a Karl pour son travail de base

ci-joint le fichier revisité corrigé et amelioré (fonctionne maintenant sous windows 7 64bits)
J'ai complété aussi dans les choix type de bien...

CORRECTIFS :

-WINDOWS 64bits : JUSTE APRES DECLARE DANS MACRO RAJOUT de PTRSAFE

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

-appels des fichiers dans dossier courrier (quittance, revision, bail, ...), le dossier ou se trouve le fichier excel gestiondeslocataires.xls peut s'appeler autrement et etre situé
n'importe ou : sur cle usb ou dans dossier MesDocuments par exemple, et son dossier courrier associes doit se trouver au meme emplacement ou se trouve le fichier excel...


QUELQUES AMELIORATIONS :
-ergonomies, fenetres de saisie revisitées
-gestions des indices de revision + calculs + affichage page INSEE des indices actualises
-gestions des alarmes echeances, ajout echeances AMH et PNO (Assurance Proprietaire Non Occupant)
-gestions des index compteurs entree/sortie
-gestions des courriers revisités - revisions - quittances - relances ... (quittances avec montants en chiffres/lettres)

esperant que celles-ci vous conviennent...
Merci pour vos eventuels retours si PB
Bien cordialement

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

 

[manie17]

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

 

[grols]

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....

 

[grols]

PS: Je viens de voir que la modif etait pour windos 7 et je suis en 10 avec exel 2003
Merci

je ne l'ai pas testé encore sous windows 10....

 

[grols]

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....Regarde la pièce jointe 1071215

oups desolé c'est PtrSafe

 

[manie17]

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

 

[manie17]

oups desolé c'est PtrSafe

Re bonjour, J'ai trouvé !!!

En fait chez moi il faut supprimer PtrSafe !!!
Le programme a l'air de fonctionner correctement
Voilà si cela peut servir a quelqu'un...
Merci
Cordialement