Contenu récent par Sequoyah

Bonjour Ralph et le Forum, voici un exemple de code, à adapter éventuellement le chemin et le nom de la feuille Sub PhotosRalph() 'https://excel-downloads.com/threads/vba-gestion-en-masse-de-fichiers-jpg-selon-selection-sur-un-tableur.20085349/ Dim ws As Worksheet Dim i As Long Dim...

Bonjour à tous, merci à Paul pour ton retour. Ci-dessous le code mis à jour pour pouvoir choisir la ligne initiale et finale à imprimer. Une petite explication la macro permet d'imprimer une feuille de calcul pour une sélection de valeurs dans une liste déroulante (validation de données -...

Bonjour le fil et le forum, voici un fichier exemple, j'ai inséré uniquement les colonnes faisant référence au nom et prénom et au grade, pour les autres colonnes il suffit d'adapter la formule avec la colonne source =RECHERCHEV(J5;Table1;4;FAUX) Ci-dessous le code Sub PrintOrdreM()...

Bonjour le fil et le forum, il faut utiliser les balises html, voici un exemple où l'on peut changer le type de police, la couleur et la taille. Sub Envoi_mails2() 'https://excel-downloads.com/threads/publipostage-mise-en-forme-du-corps-de-message-issu-dune-cellule-excel-vba.20084607/...

Ça ne m'étonne pas, puisque ta question concerne l'intelligence artifielle

Bonjour le fil et le Forum, voici ma proposition (à vérifier les noms du chemin, du fichier, de la feuille et de la cellule dans le code): Sub test2() 'https://excel-downloads.com/threads/executer-une-macro-en-fonction-de-la-valeur-dune-cellule.20084489/ Dim p As String, f As String, s As...

Bonjour le fil et le Forum, une petite correction au code proposée par @Phébus Sub Generer_Code_Barre2() 'https://excel-downloads.com/threads/generation-automatique-code-barre-ean13.20084276/post-20657419 Dim DerLig As Long Dim CodBar As String DerLig = Sheets("Feuil1").Range("A" &...

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...