Gestion Locataires

Gestion Locataires 31 Oct 2005

soan

XLDnaute Barbatruc
Inactif
À 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
 

fpointeau

XLDnaute Nouveau
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

XLDnaute Nouveau
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

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

fpointeau

XLDnaute Nouveau
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
 

Pièces jointes

  • Capture d’écran 2021-12-09 223502.png
    Capture d’écran 2021-12-09 223502.png
    7.2 KB · Affichages: 35
C

Compte Supprimé 979

Guest
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+
 
Dernière modification par un modérateur:

fpointeau

XLDnaute Nouveau
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.
 
Dernière édition:

manie17

XLDnaute Nouveau
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

 
C

Compte Supprimé 979

Guest
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
VB:
Fichier = "C:\GestionLocataires\Courriers\FichierTampon.doc"

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

A+
 

manie17

XLDnaute Nouveau
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

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 
C

Compte Supprimé 979

Guest
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+
 

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16