130 résultats trouvés

par Sequoyah
Hier, 17:37
Forum : Excel - VBA
Sujet : Consolidation muti feuille Excel 2010
Réponses : 5
Vues : 63

Re: Consolidation muti feuille Excel 2010

Bonjour simonastefan, :) une proprosition à tester, je n'ai pas écrit ce code mais j'ai adapté un exemple trouvé sur internet (ici la source https://stackoverflow.com/questions/36444383/how-to-consolidate-data-of-specific-columns-from-multiple-sheet-to-one-sheet-usi ). Deux opérations préliminaires ...
par Sequoyah
21 février 2020, 18:52
Forum : Excel - VBA
Sujet : Envoi email outlook
Réponses : 6
Vues : 165

Re: Envoi email outlook

Bonjour val59552, voici le code adapté: Sub test2() 'https://forum.excel-pratique.com/viewtopic.php?f=2&t=136653 Dim OutApp As Object, OutMail As Object Dim WsTdB As Worksheet, WsMail As Worksheet, WsTest As Worksheet Dim Sujet As String, MyDate As String, Destinataire As String, DestCopie As String...
par Sequoyah
20 février 2020, 19:22
Forum : Excel - VBA
Sujet : Envoi email outlook
Réponses : 6
Vues : 165

Re: Envoi email outlook

Bonjour val59552 et le Forum :) , une proposition à tester: Sub test() 'https://forum.excel-pratique.com/viewtopic.php?f=2&t=136653 Dim OutApp As Object, OutMail As Object Dim WsTdB As Worksheet, WsMail As Worksheet, WsTest As Worksheet Dim Sujet As String, MyDate As String Dim Chemin As String, Fic...
par Sequoyah
14 février 2020, 11:05
Forum : Excel - VBA
Sujet : Outlook multiples pieces jointes?
Réponses : 4
Vues : 66

Re: Outlook multiples pieces jointes?

Bonjour pierro44, :) merci pour ton retour, voici le code adapté pour le cas où il n'y a pas de pièces jointes dans une ou plusieurs colonnes, s'il en faut plus de quatre ajoute les colonnes et les variables nécessaires. Sub test2() 'https://forum.excel-pratique.com/viewtopic.php?f=2&t=136438 Dim my...
par Sequoyah
13 février 2020, 21:33
Forum : Excel - VBA
Sujet : Outlook multiples pieces jointes?
Réponses : 4
Vues : 66

Re: Outlook multiples pieces jointes?

Bonjour pierro44, :) voici une proposition à tester: Sub test() Dim myTable As ListObject Dim i As Integer Dim Destinataire As String, Comment As String Dim sFichier1 As String, sFichier2 As String, sFichier3 As String, sFichier4 As String Dim oMsgApp As Object, oMsg As Object Set myTable = ActiveSh...
par Sequoyah
24 janvier 2020, 14:13
Forum : Excel - VBA
Sujet : Sauvegarde fichier en excel et non plus en pdf
Réponses : 4
Vues : 55

Re: Sauvegarde fichier en excel et non plus en pdf

Bonjour Cédric: voici le nouveau code: Sub SauvegardeXL2() Dim MyName As String, LName As String, MySociete As String, MonFichier As String Dim wb As Workbook MyName = Range("C3") MySociete = Range("J2") LName = Left(MyName, 1) If MySociete = "RENAULT TRUCKS SAS" Then Application.DisplayAlerts = Fal...
par Sequoyah
23 janvier 2020, 21:38
Forum : Excel - VBA
Sujet : Envoi onglet spécifique au format .pdf
Réponses : 2
Vues : 41

Re: Envoi onglet spécifique au format .pdf

Bonjour pitochico; :) vois si ça te convient: Sub emailPDF() Dim Chemin As String, MonFichier As String Chemin = "C:\Temp\" 'A' ADAPTER SI NECESSAIRE MonFichier = Chemin & "Organisation du temps de travail TP thérapeutique.PDF" ActiveWorkbook.Sheets("Avenant TP thérapeut").ExportAsFixedFormat _ Type...
par Sequoyah
23 janvier 2020, 21:03
Forum : Excel - VBA
Sujet : Sauvegarde fichier en excel et non plus en pdf
Réponses : 4
Vues : 55

Re: Sauvegarde fichier en excel et non plus en pdf

Bonjour pitochico, :) voici le code adapté: Sub SauvegardeXL() Dim MyName As String, LName As String, MySociete As String, MonFichier As String Dim wb As Workbook MyName = Range("C3") MySociete = Range("J2") LName = Left(MyName, 1) If MySociete = "RENAULT TRUCKS SAS" Then Application.DisplayAlerts =...
par Sequoyah
17 janvier 2020, 22:21
Forum : Excel - VBA
Sujet : Envoi par mail une feuille excel 2010 sans macro
Réponses : 2
Vues : 52

Re: Envoi par mail une feuille excel 2010 sans macro

Bonjour jym22 et le forum, il faut d'abord personnaliser le ruban pour ajouter le bouton Courrier électronique. Vois ces deux liens pour plus de détails: https://trumpexcel.com/send-single-excel-worksheet-email-attachment/ https://tssperformance.com/envoyer-par-email-votre-classeur-en-piece-jointe-a...
par Sequoyah
15 janvier 2020, 20:26
Forum : Excel - VBA
Sujet : Macro envoi email en pdf
Réponses : 4
Vues : 85

Re: Macro envoi email en pdf

Bonjour abdernino,
as-tu testé le fichier joint ? Le problème que tu rencontres est presque certainement causé par la présence de doublons dans la liste des agences. Il n’y a pas de barre de progression dans le code d'envoi du mail, c'est dans la macro Dispatcher.