XL 2016 MACRO SAUVEGARDE QUITTANCES LOYER EN PDF OU EXCEL SUR DOSSIERS

DARRIEUX

XLDnaute Nouveau
Bonsoir,

Encore MERCI pour votre dernier développement : macro pour création quittance en PDF.

Ma collègue bénévole me demande s’il est possible de sauvegarder la feuille de quittancement comme suit :

Chemin

C:\ Envoi quittances loyer H.H. P.A
Sous dossier ==è Nom Antenne --à Cellule B5
Créer 2 sous dossiers : Envoi par mail et Envoi papier
Créer un sous dossier du nom de l’onglet : format année mois (exemple 2020 10)
Sauvegarde feuille active :


---------à Si cellule E18 remplie par mail du locataire ---à sauvegarder dans c:\Envoi quittances loyer H.H. P.A. / Nom Antenne / Envoi par mail / année mois / puis libellé de sauvegarde « Nom locataire en F7 suivi de « Échéance du mois de " & [d23]. EN PDF pour envoi par mail

---------à Si cellule E18 vide ---à sauvegarder dans c:\Envoi quittances loyer H.H. P.A. / Nom Antenne / Envoi par mail / année mois / puis libellé de sauvegarde « Nom locataire en F7 suivi de « Échéance du mois de " & [d23]. XLS pour édition papier

Je ne sais comment, une fois encore, VOUS DIRE QUE VOUS ETES TRES FORT ET SI DISPONIBLES

MERCI de la part de’ bénévoles d’une Association Humanitaire qui loge des personnes démunies, meurtries


Cordialement

Jacques DARRIEUX 06 41 98 69 48
 

Pièces jointes

  • Modèle Quittancement TESTS JACQUES DARRIEUX.xlsm
    108.4 KB · Affichages: 52

Jacky67

XLDnaute Barbatruc
Bonsoir,

Encore MERCI pour votre dernier développement : macro pour création quittance en PDF.

Ma collègue bénévole me demande s’il est possible de sauvegarder la feuille de quittancement comme suit :

Chemin

C:\ Envoi quittances loyer H.H. P.A
Sous dossier ==è Nom Antenne --à Cellule B5
Créer 2 sous dossiers : Envoi par mail et Envoi papier
Créer un sous dossier du nom de l’onglet : format année mois (exemple 2020 10)
Sauvegarde feuille active :


---------à Si cellule E18 remplie par mail du locataire ---à sauvegarder dans c:\Envoi quittances loyer H.H. P.A. / Nom Antenne / Envoi par mail / année mois / puis libellé de sauvegarde « Nom locataire en F7 suivi de « Échéance du mois de " & [d23]. EN PDF pour envoi par mail

---------à Si cellule E18 vide ---à sauvegarder dans c:\Envoi quittances loyer H.H. P.A. / Nom Antenne / Envoi par mail / année mois / puis libellé de sauvegarde « Nom locataire en F7 suivi de « Échéance du mois de " & [d23]. XLS pour édition papier

Je ne sais comment, une fois encore, VOUS DIRE QUE VOUS ETES TRES FORT ET SI DISPONIBLES

MERCI de la part de’ bénévoles d’une Association Humanitaire qui loge des personnes démunies, meurtries


Cordialement

Jacques DARRIEUX
RE........
Pas certain d'avoir compris le chemin
Essaye avec ce code en remplacement du précédent
VB:
Sub CreationEchéancePDF()    'écrite par JJ il y a quelques jours
    Dim CheminEtNom$
    Application.ScreenUpdating = False
    ActiveWorkbook.Save
    ' Créationdossierssurordinateurs()
    On Error Resume Next
    MkDir "C:\Envoi quittances loyer par mail H.H. P.A.\"
    MkDir "C:\Envoi quittances loyer par mail H.H. P.A.\" & Replace([b5], ":", "") & "\"
    CheminEtNom = "C:\Envoi quittances loyer par mail H.H. P.A.\" & Replace([b5], ":", "")
    If [e18] <> "" Then
        MkDir CheminEtNom & "\Envoi par mail\"
        MkDir CheminEtNom & "\Envoi par mail\" & [d23].Text
        CheminEtNom = CheminEtNom & "\Envoi par mail\" & [d23].Text & "\" & [f7] & " Echéance du mois de " & [d23].Text
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminEtNom
    Else
        With ActiveSheet
            .Shapes("Image 14").Visible = False: .Shapes("Groupe 6").Visible = False: .Shapes("Groupe 9").Visible = False
            MkDir CheminEtNom & "\Envoi papier\"
            MkDir CheminEtNom & "\Envoi papier\" & [d23].Text
            CheminEtNom = CheminEtNom & "\Envoi papier\" & [d23].Text & "\" & [f7] & " Echéance du mois de " & [d23].Text
            .Copy
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs CheminEtNom, FileFormat:=xlExcel8
            ActiveWorkbook.Close False
            Application.DisplayAlerts = True
            .Shapes("Image 14").Visible = True: .Shapes("Groupe 6").Visible = True: .Shapes("Groupe 9").Visible = True
        End With
    End If
    MsgBox "Création de la quittance du mois effectuée.", , "Information"
End Sub

PS: Mettre ton n° de téléphone sur un forum public, n'est pas une bonne idée.
 

Pièces jointes

  • Modèle Quittancement TESTS JACQUES DARRIEUX V3.xlsm
    112.3 KB · Affichages: 37
Dernière édition:

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou