Contenu récent par Sequoyah

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