MACRO

Résolu/Fermé
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024 - 14 mars 2018 à 19:39
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024 - 19 avril 2018 à 21:06
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
A voir également:

5 réponses

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
14 mars 2018 à 19:44
bonjour
Merci d"envoyer le fichier .
Cordialement
1
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
14 mars 2018 à 20:16
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
14 mars 2018 à 20:59
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
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
15 mars 2018 à 15:27
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
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
15 mars 2018 à 15:28
j'avoue que ce n'était pas précis désoler
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
15 mars 2018 à 21:49
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
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
19 mars 2018 à 14:16
comment est-ce que je is censé ouvrir ton fichier?
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
19 mars 2018 à 20:03
bonjour
avec winrar
cordialement
0
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
20 mars 2018 à 14:17
parfait un gros merci !!!!
0
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
20 mars 2018 à 16:44
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
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
20 mars 2018 à 20:12
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
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
21 mars 2018 à 22:57
Bonjour
est ce que ça correspond?
https://www.cjoint.com/c/HCvv36v6yfs
Cordialement
1
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
23 mars 2018 à 16:43
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
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
23 mars 2018 à 21:03
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
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
26 mars 2018 à 16:23
Bonjour Julia,
merci beaucoup :)
Cordialement
CSC
0
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
26 mars 2018 à 17:18
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
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
26 mars 2018 à 19:05
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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
27 mars 2018 à 14:08
Bonjour
je vais tenter de voir ça .
Je n'ai jamais conçu de vba d'envoie de mails
Cdlt
1
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
27 mars 2018 à 16:35
Bonjour,
parfait merci beaucoup,
Cordialement
0
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
19 avril 2018 à 19:41
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
Icemansuperced Messages postés 87 Date d'inscription mardi 21 novembre 2017 Statut Membre Dernière intervention 27 juin 2024
19 avril 2018 à 21:06
Bonjour,
c'est beau j'ai trouver ... cordialement
0