Résultats de la recherche

Bonjour fjio, on pourrait utiliser la colonne Bon de commande qui contient des valeurs uniques pour les quatre derniers caractères With ActiveWorkbook .SaveAs ThisWorkbook.Path & "\" & Right(v(i, 6), 4) & ".xlsx", FileFormat:=xlWorkbookDefault .Close End With ou bien remplacer...

Bonjour fjio et le Forum, voici ma proposition, je pense que c’est plus facile et plus rapide à partir d’un seul fichier, ci-dessous le code et en annexe un exemple de fichier. Sub test() 'https://excel-downloads.com/threads/publipostage-excel-vers-excel.189427/ Dim v As Variant Dim i...

Bonjour, remplace Call Edition JL par la nouvelle macro Call ExportSheetJL

Bonjour WEIDER et le Forum, dans le module de ta feuille (pas dans un module standard) le code suivant, Private Sub Worksheet_Change(ByVal Target As Range) Dim BarcodeLink As String, BarcodePath As String, saveInFolder As String Application.ScreenUpdating = False If...

Bonjour Quicksland et le Forum, à tester, ça devrait suffire de remplacer la macro EditionJL par la macro suivante (difficile pour moi de faire plus avec des feuilles cachées et protection par mot de passe) Sub ExportSheetJL() Dim Dossier As String, Horodatage As String, NomFichier As String...

Bonjour Maya1966 et le Forum, avec la méthode SendMail on ne peut pas utiliser ni Cc ni Cci.

Merci @Quicksland voici la portion de code à modifier strDate = ThisWorkbook.Sheets("FICHE POT").Range("C2") If strDate <> "" Then For Each wksSheet In ActiveWorkbook.Worksheets If wksSheet.Name <> "FICHE POT" Then '=====>> pour exclure la feuille For Each rngCel In...

Bonjour @Quicksland, merci pour ton retour. Voici mon nouvel essai (la cerise m'a coûté plus d'efforts que le gâteau:p) Sub Mail_FichePot2() 'https://excel-downloads.com/threads/envoyer-mail-et-pj-automatique-via-bouton.20071717/ Dim FileExtStr As String Dim FileFormatNum As Long...

Bonjour Quicksland et le Forum, voici un exemple à tester Sub Mail_FichePot() 'https://excel-downloads.com/threads/envoyer-mail-et-pj-automatique-via-bouton.20071717/ Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook, Destwb As Workbook Dim Dest As...

Bonjour michelw vois si te ça te convient Option Explicit Sub test() Dim Wks As Worksheet Dim MonChemin As String, MonFichier As String MonChemin = ThisWorkbook.Path & "\" With Application .ScreenUpdating = False .DisplayAlerts = False End With...

Bonjour MarieParis, ajoute ces lignes de code avant de créer le PDF With ActiveSheet.PageSetup .LeftFooter = "" .CenterFooter = "" .RightFooter = "" End With Cordialement

Bonjour à tous,:) à tester remplacer la ligne: Olmail.SentOnBehalfOfName = "f.toto@titi.fr" avec le code: Set .SendUsingAccount = oMail.Session.Accounts.Item(3) où le nombre entre parenthèses représente le numéro d’ordre du compte

Bonjour David, c'est ma faute, je n'avais pas réalisé qu'il s'agit d'une plage nommée, je croyais que c'était un tableau. Remplace la ligne qui renvoie l'erreur avec .Range("Tableau1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...

Bonjour David, voici le code. Pour adapter le tableau sur une seule page la meilleure solution est probablement d’ajuster manuellement la taille de la même avant de lancer la macro, voir ici pour plus de détails. Pour l'envoi du mail le mieux c'est peut-être d'ouvrir un nouveau sujet avec toutes...

Bonjour frederio, salut job75, pour la Fête des Mères en G24: =DATE(C2;5;1)+MOD(8-JOURSEM(DATE(C2;5;1));7)+7 pour la Fête des Pères en G25 =DATE(C2;6;1)+MOD(8-JOURSEM(DATE(C2;6;1));7)+7

Bonjour Salah et le forum:), je n’avais pas bien compris ta demande, la solution est encore plus simple, voici le code adapté: Private Sub CommandButton2_Click() Dim NewWbk As Workbook Dim destinataire As String, Sujet As String, Message As String Dim FilePath As String, FileName...

Bonjour Salah, merci pour ton retour. J'espère ne pas avoir mal compris, si le nom de l'onglet est dans la cellule D9, la feuille correspondante est copiée. J'ai aussi ajouté le code pour supprimer les boutons de la copie du fichier. Voici le code corrigé: Private Sub CommandButton2_Click()...

Bonjour Salah et le forum, une solution à tester: Private Sub CommandButton2_Click() Dim NewWbk As Workbook Dim destinataire As String, Sujet As String, Message As String Dim FilePath As String, FileName As String destinataire = "cerise@free.fr" FilePath =...

Bonjour raf26, merci pour ton retour, voici le code corrigé: Sub Test2() Dim WsMail As Worksheet Dim Chemin As String, FichierPDF As String, Destinataire As String, Contenu As String, Signature As String Dim Nom As String, Prenom As String, MaDate As String, MonFichier As...

Bonjour le fil et le forum, code à tester: Sub Test() Dim WsMail As Worksheet Dim Chemin As String, FichierPDF As String, Destinataire As String, Contenu As String Dim Nom As String, Prenom As String, MaDate As String, MonFichier As String Dim MaMessagerie As Object...