MACRO
Résolu
Icemansuperced
Messages postés
87
Date d'inscription
Statut
Membre
Dernière intervention
-
Icemansuperced Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
Icemansuperced Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
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
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:
- MACRO
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
5 réponses
bonjour
Merci d"envoyer le fichier .
Cordialement
Merci d"envoyer le fichier .
Cordialement
Icemansuperced
Messages postés
87
Date d'inscription
Statut
Membre
Dernière intervention
https://cjoint.com/c/HCotpMFSKmy
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
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
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..
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..
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
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
Bonjour
est ce que ça correspond?
https://www.cjoint.com/c/HCvv36v6yfs
Cordialement
est ce que ça correspond?
https://www.cjoint.com/c/HCvv36v6yfs
Cordialement
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question