1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

luno123

Discussion dans 'Forum Excel' démarrée par Abd, 6 Décembre 2018.

  1. Abd

    Abd XLDnaute Nouveau

    Inscrit depuis le :
    6 Décembre 2018
    Messages :
    6
    "J'aime" reçus :
    1
    Bonjour ,
    En faisant des recherches je suis tombé sur un xls suivi des impayés de 2003.Ils se trouvent que les macro soont directement liés à un serveur, comment le lié un fichier excel et faire une extraction à partir d'un fichier.Je suis novice aider moi
     

    Pièces jointes:

  2. vmax01

    vmax01 XLDnaute Occasionnel

    Inscrit depuis le :
    17 Février 2008
    Messages :
    182
    "J'aime" reçus :
    7
    bonjour add il n'y a pas de macro sur ce classeur tu peux rompre la liaison tout simplement.

    bonne journée
     
  3. Abd

    Abd XLDnaute Nouveau

    Inscrit depuis le :
    6 Décembre 2018
    Messages :
    6
    "J'aime" reçus :
    1
    Bonjour Vmax , comment rompre la liaison PS?
     
  4. vmax01

    vmax01 XLDnaute Occasionnel

    Inscrit depuis le :
    17 Février 2008
    Messages :
    182
    "J'aime" reçus :
    7
    a l'ouverture du classeur tu dois avoir un message soit d'errreur soit que le classeur est lié, tu vas sur l'invite et tu cliques sur rompre les liaisons.
     
  5. Abd

    Abd XLDnaute Nouveau

    Inscrit depuis le :
    6 Décembre 2018
    Messages :
    6
    "J'aime" reçus :
    1
    A l'ouverture il ya aucune erreur , en revanche ce que je voudrais pouvoir modifier se trouve, sans l'onglet suivie impayé
    1- mettre à jour 2-envoyer email aux chargés.. 3 envoyer email à la direction

    Je voudrais pouvoir reconfigurer cela Vmax.
    upload_2018-12-6_11-27-29.png
     
  6. vmax01

    vmax01 XLDnaute Occasionnel

    Inscrit depuis le :
    17 Février 2008
    Messages :
    182
    "J'aime" reçus :
    7
    sans dossier c'est impossible car tout est lié entre tes feuilles et BD il y a beaucoup de travail, présentes nous une ébauche pour au moins reproduire des codes qui serait compatibles avec ton projet.
     
  7. Abd

    Abd XLDnaute Nouveau

    Inscrit depuis le :
    6 Décembre 2018
    Messages :
    6
    "J'aime" reçus :
    1
    Vmax une ébauche comme demandé.
    Je veux pouvoir envoyer des mails d'alertes quand le délai arrive via outlook.
    Les
     

    Pièces jointes:

  8. vmax01

    vmax01 XLDnaute Occasionnel

    Inscrit depuis le :
    17 Février 2008
    Messages :
    182
    "J'aime" reçus :
    7
    c'est toi qui as écrit ces codes ? énormément d'erreur et d’incohérence de date dans ton exemple.... facture après date d'echeance et le 30/02/2018 n'existe pas .... codes qui font référence a des feuilles qui n'existent pas...
     
    Dernière édition: 6 Décembre 2018
  9. Abd

    Abd XLDnaute Nouveau

    Inscrit depuis le :
    6 Décembre 2018
    Messages :
    6
    "J'aime" reçus :
    1
    Justement non je le l'ai pas fait.J'ai téléchargé le modèle pour le réadapter malheureusement il ya des VBA , je veux l'adapter à mon cadre mais je ne sais pas comment m'y prendre alors j'ai besoin d'aide.
     
  10. vmax01

    vmax01 XLDnaute Occasionnel

    Inscrit depuis le :
    17 Février 2008
    Messages :
    182
    "J'aime" reçus :
    7
    bonjour, voila ton code terminé, tu met ça dans un module et tu n'auras plus qu' changer l'adresse de destination pour l'enregistrement des classeurs
    Code (Text):
    Sub Envoi_Mail()
    Dim OutApp As Object, OutMail As Object
    Dim c, d, t, rng As Range, Debut$, Fin$
    Dim R As String
    Application.ScreenUpdating = False 'fige l'ecran
    ActiveSheet.Shapes("Rectangle à coins arrondis 1").Visible = True 'retire le bouton commande
    With Feuil7: Set d = .Range(.[D4], .[D65536].End(xlUp)) 'repere la matrice colonne D
    ActiveSheet.Copy 'copie la feuille active
    ActiveSheet.SaveAs ("C:\ ton chemin dossier impayés" & Format(Date, "dd-mm-yyyy") & ".xlsx") 'enregistre le nouveau classeur
    R = "C:\ton chemin dossier impayés" & Format(Date, "dd-mm-yyyy") & ".xlsx" 'chemin du nouveau classeur pour lien par mail
    For Each c In d 'boucle sur les adresse mail concernées
        Set OutApp = CreateObject("Outlook.Application") 'connexion outlook
        OutApp.Session.Logon 'ouvre la session mail
        Set OutMail = OutApp.CreateItem(0) 'creation du mail vide
        Debut = "Bonjour ," & Chr(13) & Chr(13) & "Ci-jointe la liste des impayés de la semaine avec les différentes actions à effectuer." & Chr(13) & Chr(13) & ""
        Fin = "Bonne réception" & Chr(13) & Chr(13) & "Cordialement" & Chr(13) & Chr(13) & "ADB" 'phrase du corps du mail
        On Error Resume Next
        With OutMail 'propriete du mail
          .To = c.Value 'adresse mail
          .Subject = "Relance du " & Format(Date, "dd-mm-yyyy") 'sujet
          .Body = Debut & Fin 'RangetoHTML'corps du mail
          '.Display  'Pour voir à l'écran
          .Attachments.Add R 'piece jointe
          .Send  'Pour envoyer directement
        End With
        On Error GoTo 0
        Set OutMail = Nothing 'vidage memoire du mail
        Set OutApp = Nothing 'vidage memoire du mail
    Suite:
    Next
    End With
    Application.ScreenUpdating = True 'reactivation de l'ecran
    MsgBox ("envoie de mail avec succes")
    End Sub
     
    bonne continuation.
     
  11. Abd

    Abd XLDnaute Nouveau

    Inscrit depuis le :
    6 Décembre 2018
    Messages :
    6
    "J'aime" reçus :
    1
    Vmax merci les notions de VBA et surtout pour le temps et la disponibilité.
    Le petit cours m'a vraiment permis de comprendre le language de la programmation.
    Cheers,
     
    vmax01 aime votre message.

Partager cette page