Gestion Locataires 31 Oct 2005

[soan]

À part les tâches ménagères, si tu aimes la belle musique,
je te propose ces 3 liens : MusiK EO ; MusiK YL ; MusiK IK

(il y a d'autres sujets MusiK à côté)

Bon divertissement ! 🙂

soan

 

[manie17]

Je vais jeter un coup d’œil 😉
Merci beaucoup et au plaisir d'échanger
Magali

 

[fpointeau]

Bonjour
j' Apprend beaucoup et cela fait plaisir.
J'ai modifié les courriers pour les personnaliser et j'ai réussi à inclure des photos pour ma signature et logo. Si qq a besoin je vous ferais une capture écran
Je voudrais savoir comment on programme les alertes ou alarmes pour les échéances ?
Merci

je cherche aussi à insérer la signature...

 

[manie17]

je cherche aussi à insérer la signature...

Mon plan B est un peu archaïque mais fonctionne...
J'ai enregistré ma signature en jpg et l'ai mis dans un dossier.
Puis dans basic editor je suis allée dans le courrier où je voulais ajouter en bas de page ma signature j'ai rajouté une ligne ci-dessous :
FichWord.Selection.InlineShapes.AddPicture Filename:= _
"C:\Users\Utilisateur\ ... (et ici l'endroit où se trouve la signature)
Et le tour est joué
Bonne journée et meilleurs vœux a vous tous

 

[fpointeau]

Mon plan B est un peu archaïque mais fonctionne...
J'ai enregistré ma signature en jpg et l'ai mis dans un dossier.
Puis dans basic editor je suis allée dans le courrier où je voulais ajouter en bas de page ma signature j'ai rajouté une ligne ci-dessous :
FichWord.Selection.InlineShapes.AddPicture Filename:= _
"C:\Users\Utilisateur\ ... (et ici l'endroit où se trouve la signature)
Et le tour est joué
Bonne journée et meilleurs vœux a vous tous

Magnifique,

Exactement ce que je cherchais...
Pour aider d'autre personne à trouver ou modifier, dans la basic editor, clic droit sur "EditeurQuittances", Code.

PS: ou pour moi si j’oublie... 😉

FichWord.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab
FichWord.Selection.InlineShapes.AddPicture Filename:="C:\Temp\sgt.jpg"

Avec une petite perso pour positionner la signature à droite.

Merci manie17.

 

[manie17]

Avec plaisir
Meilleurs vœux à tous le monde

 

[fpointeau]

Hello,

Suite à une mise à jour vers Windows 11, j'ai un problème pour générer les quittances avec la commande :
FichWord.ActiveDocument.SaveAs Fichier

Je commence à regarder de mon côté aussi...

Bonne soirée

 

[Compte Supprimé 979]

Hello,

Suite à une mise à jour vers Windows 11, j'ai un problème pour générer les quittances avec la commande :
FichWord.ActiveDocument.SaveAs Fichier

Je commence à regarder de mon côté aussi...

Bonne soirée

Bonjour fpointeau

Il semble y avoir un problème dans cette sub ValiderPaiement_Click : If sans End IF

De plus il n'est définit nulle part le chemin et nom d'enregistrement du fichier de quittance à générer

A+

 

[fpointeau]

Hello,
J'ai fait le test sur un autre poste avec windows 11 et office 365, cela fonctionne. C'est donc mon word 2010 qui n'a pas apprécié la mise à jour du Windows 11.

Sur le code de l'éditeur quittance (clic droit > code) nous avons : "Fichier = Application.ActiveWorkbook.Path + "\Courriers\FichierTampon.doc"

Merci en tout cas pour ta réactivité BrunoM45.

 

[manie17]

Bonjour
mon tableur fonctionne correctement lorsque je l'ouvre depuis l'emplacement où il se trouve actuellement mais depuis aujourd'hui si je fais copier/coller ou enregistrer sous, pour faire une sauvegarde, avec cette dernière j'ai le même problème que Fpointeau impossible d'éditer quittance ou autre !!!

FichWord.ActiveDocument.SaveAs Fichier

Que faire ?
Merci par avance

​

 

[Compte Supprimé 979]

Bonjour
mon tableur fonctionne correctement lorsque je l'ouvre depuis l'emplacement où il se trouve actuellement mais depuis aujourd'hui si je fais copier/coller ou enregistrer sous, pour faire une sauvegarde, avec cette dernière j'ai le même problème que Fpointeau impossible d'éditer quittance ou autre !!!

FichWord.ActiveDocument.SaveAs Fichier

Que faire ?
Merci par avance

​

Bonjour Manie17

L'outil donné tel qu'il est, nécessite d'être mis dans un dossier spécifique

Fichier = "C:\GestionLocataires\Courriers\FichierTampon.doc"

Il faut donc modifier ça, par éventuellement
Fichier = ThisWorkbook.Path & "\NomDuFichierSouhaité.doc"

A+

 

[manie17]

Ce que je ne comprend pas c'est pourquoi cela fonctionne sur le tableur original et non sur le même tableur quand je fait juste copier/coller ou enregistrer sous....

 

[manie17]

Ci-joint sauvegarde qui bug elle est idem à l'original qui fonctionne correctement.
J'avoue ne pas comprendre pourquoi le simple fait d' enregistrer sous, modifie le fonctionnement et fait planter.
Je panique à l'idée de ne plus pouvoir faire de sauvegarde, mais il doit bien avoir une explication et je doute que ce soit dans la formule vu que cela fonctionne sur le tableur de base .....
gl sauvegarde

 

[manie17]

J'avance un peu dans mes recherches....
J'ai deux sauvegardes de mon tableur: une sur un clé usb et l'autre sur un disque dur
en partant du tableur de l'ordi, je fait enregistrer sous/ la clé/je sélectionne mon tableur idem sur la clé et là ça fonctionne
Idem pour le disque externe
Mais si je choisis un nouvel emplacement l'erreur réapparaît !
Bizarre non ?
Merci pour votre aide

 

[Compte Supprimé 979]

Re,

Sans copie d'écran de se que vous faites et de ce que vous avez comme message d'erreur,
cela va être très compliqué de vous aider 🤔

En plus, je ne sais pas si vous avez modifié le code ou non

A+