MACRO

Résolu
Icemansuperced Messages postés 96 Statut Membre -  
Icemansuperced Messages postés 96 Statut Membre -
Bonjour a tous,
j'aimerais savoir si cela est possible et si quelqu'un est capable de faire une Macro qui permetterai de faire un fichier pour chaque personne que j'ai dans un Dataset et + voici ce que je voudrais faire :
1- J'ai un dossier Excel comportant un DATASET et un DASHBOARD.
2- J'aimerais faire automatiquement un dossier pour chaque personne (A2:A36)
3- Enlever automatiquement toutes les autres personnes
4- Que le fichier aille le nom de la cellule V1 du Dashboard (endroit ou le nom de la personne est).
Si cela ce fait et que quelqu'un est partant je joindrai le fichier

5 réponses

  1. julia Namor Messages postés 532 Statut Membre 33
     
    Quelques précisions complémentaires .....
    2- J'aimerais faire automatiquement un dossier pour chaque personne (A2:A36)
    Ou sont les noms?
    3- Enlever automatiquement toutes les autres personnes
    Je comprends dans ce que tu dis ;;;;; dés que le dossier est crée on supprime le nom correspondant sur la liste.
    Quelle liste?
    4- Que le fichier aille le nom de la cellule V1 du Dashboard (endroit ou le nom de la personne est).
    V1 est vide dans ton ficher...
    merci d'apporter plus d'explications stp
    1
    1. Icemansuperced Messages postés 96 Statut Membre
       
      2- les nom sont dans l'onglet SLP PLS CHAMPLAIN Q1dans la colone E
      3- bien il a un dataset dans PLS SLP CHAMPLAIN_Q1... avec les nom et les autres informations... pour chaque fichier j'aimerais juste garder les informations de la personne et supprimer le reste des personnes
      4- le nom sont dans la cellule E7 de l'onglet SLP PLS Champlain_Q1..
      0
    2. Icemansuperced Messages postés 96 Statut Membre
       
      j'avoue que ce n'était pas précis désoler
      0
  2. julia Namor Messages postés 532 Statut Membre 33
     
    Bonjour
    En fonction de ce que j'ai compris voilà ce que j’ai pu faire
    Les dossiers créés se trouvent dans le même dossier que le fichier source
    https://cjoint.com/c/HCpuT2JqLks
    Bien cordialement
    1
    1. Icemansuperced Messages postés 96 Statut Membre
       
      comment est-ce que je is censé ouvrir ton fichier?
      0
    2. julia Namor Messages postés 532 Statut Membre 33
       
      bonjour
      avec winrar
      cordialement
      0
    3. Icemansuperced Messages postés 96 Statut Membre
       
      parfait un gros merci !!!!
      0
    4. Icemansuperced Messages postés 96 Statut Membre
       
      est-ce que tu sais si dans ta macro il a une facon de garder le dashboard aussi ... que le segment du dashboard prenne l'apprenant en compte aussi ...
      0
    5. julia Namor Messages postés 532 Statut Membre 33
       
      bonjour
      Dites donc , les salamalecs d'usage sont obsolètes pour vous .
      Mais pas pour moi
      De ce fait je vous remercie de reformuler votre question en y rajoutant les termes appropriés
      Cordialement
      0
  3. julia Namor Messages postés 532 Statut Membre 33
     
    Bonjour
    est ce que ça correspond?
    https://www.cjoint.com/c/HCvv36v6yfs
    Cordialement
    1
    1. Icemansuperced Messages postés 96 Statut Membre
       
      Bonjour Julia,
      oui cela est parfait :) merci beaucoup... en dernier, je voulais savoir si j'ai le meme tableau mais avec 10 colones de plus, quell parti de la macro je dois changer ... exemple présentement il a 7 date... j'ai un tableau identiques avec 13 dates ....
      Cordialement
      CSC
      0
    2. julia Namor Messages postés 532 Statut Membre 33
       
      Bonjour
      j'ai modifié le fichier.Vous pourrez augmenter le nombres de colonnes autant de fois que vous souhaitez
      https://www.cjoint.com/c/HCxuaL201M6

      coordialement
      0
    3. Icemansuperced Messages postés 96 Statut Membre
       
      Bonjour Julia,
      merci beaucoup :)
      Cordialement
      CSC
      0
    4. Icemansuperced Messages postés 96 Statut Membre
       
      Bonjour Julia,
      qu'a tu changer exactement afin que cela fonctionne? je te dis cela, car finalement je voudrais utiliser le premier dossier que tu as créer... celui qui ne prennait pas en compte le dashboard ...
      Cordialement
      Cédrik
      0
    5. Icemansuperced Messages postés 96 Statut Membre
       
      Bonjour Julia,

      j'espere que tu va bien :)!!!! un énorme merci pour tout le temps que tu me consacre !!!
      alors voici mon projet au complet, je ne sais pas si cela ce fait... Avec le premier fichier que tu ma 'envoyé, il aurait a la colone T les adresses courriels de chaque personne ...
      L'objectif sera de pouvoir séparé chacun des dossiers automatiquements comme tu as reussi a faire :) et merci encore pour cela... alors, par la suite lorsque je vais dans chaque fichier j'aimerais pouvoir appuyer sur le courriel qui serait dans le cellule T8 et pouvoir envoyer le courriel automatiquement par la suite, grace a une Macro ... voici la Macro que j'ai créer par contre, cela ne fonctionne pas... j'ai tenté de faire une Macro que je pouvais executer a chacun des dossiers ...
      Macro:
      Sub envoiClasseur()
      Dim Fichier As Variant
      'le programme ouvre une fenêtre où l'on sélectionne le fichier'
      Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")

      MsgBox Fichier
      'ici on demande d'utiliser Outlook comme client de messagerie'
      Dim MaMessagerie As Object
      Dim MonMessage As Object
      Set MaMessagerie = CreateObject("Outlook.application")
      Set MonMessage = MaMessagerie.Createitem(0)

      'ici nous définissions les champs du mail'
      'entre guillemet il faut indiquer les adresses mail'
      MonMessage.to = ActiveWorkbook.Sheets(Feuil1).Cells(8, "T")

      'ici nous commençons la rédaction du mail
      MonMessage.attachments.Add Fichier

      'sujet du mail'
      MonMessage = "Situation générale de l'apprenant pour le mois"

      'Corps du mail'
      contenu = "***The English follows the French***"
      contenu = contenu & Chr(10) & Chr(13)
      'les caractères Chr indique un saut de ligne'
      contenu = contenu & "Bonjour" & Chr(10) & Chr(13)
      contenu = contenu & "Voici trois graphiques résumant la situation de votre apprenant pour janvier. Vous trouverez un premier graphique indiquant le nombre absence par jour de votre employé. Un deuxième graphique montrant le nombre de journée de recouvrement. Le troisième graphique démontrant le nombre de total de retard. Si vous n'êtes plus le directeur de l'apprenant, s'il-vous-plait nous avisez ou pour toute autre erreur. Si vous avez des questions veuillez consulter le document des mesures de contrôles " & Chr(10) & Chr(13)
      contenu = contenu & "Hello" & Chr(10) & Chr(13)
      contenu = contenu & "You will find three graphics illustrating the situation of your learner for the month of January. The first graphic indicates the number of absences per days of your employee. The second graphic illustrates the number of day of absence. The third graphic illustrates the total time of delay. If you're no longer the manager of the learner, please notify us. If you've any question please consult the document bellows on control measures" & Chr(10) & Chr(13)
      contenu = contenu & "CSC"
      MonMessage.body = "contenu"

      'ici on provoque l'envoi du mail et de sa pièce jointe'
      MonMessage.Send

      'réinitialisation de la messagerie'
      Set MaMessagerie = Nothing

      'Boite de dialogue qui confirme l'envoi du message et de sa pièce jointe'
      MsgBox "Votre mail a bien été envoyé"

      End Sub
      0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. julia Namor Messages postés 532 Statut Membre 33
     
    Bonjour
    je vais tenter de voir ça .
    Je n'ai jamais conçu de vba d'envoie de mails
    Cdlt
    1
    1. Icemansuperced Messages postés 96 Statut Membre
       
      Bonjour,
      parfait merci beaucoup,
      Cordialement
      0
    2. Icemansuperced Messages postés 96 Statut Membre
       
      Bonjour Julia,
      est-ce que je peux t'envoyer un dossier similaire? en fait j'ai tenté de faire les modifications appropriés, mais sans success ...
      Cordialement
      0
    3. Icemansuperced Messages postés 96 Statut Membre
       
      Bonjour,
      c'est beau j'ai trouver ... cordialement
      0