Contenu récent par yannlion

Bonjour le forum, Je tente depuis plusieurs jours de rédiger une macro pour créer plus de 300 fichiers pdf ... Pour le moment j'ai juste réussi à sauvegarder les pages 1 à 1 ... :) Je vous joins un extrait du fichier avec les données. L'objectif : - enregistrer un pdf nommé SYNTHESE_DPT_XXXXX...

Bonjour le forum, J'essaie d'insérer un saut de page puis 4 lignes (de la ligne 1 à 4) sur une ligne à chaque fois qu'une valeur change en colonne A : For i = .Range("A65000").End(xlUp).Row - 1 To 6 Step -1 If .Cells(i, 1) <> .Cells(i - 1, 1) Then .HPageBreaks.Add Before:=Rows(i)...

Hello, Je n'ai toujours pas de solution .... Merci Yann

Merci Laurent lol !

Un début de batch mais qui ne fonctionne pas :) Option Explicit On Error Resume Next MacroWord Sub MacroWord() Dim ApplicationWord Dim ClasseurWord Set ApplicationWord = CreateObject("Word.Application") 'ouverture du premier classeur + lancement d'une macro Set ClasseurWord =...

Bonsoir Laurent, Merci pour ta réponse. Je ne connais pas les fichiers batch mais je vais essayer de trouver des infos dessus. Yannick

Bonsoir à tous, Non expert en VBA et grâce en lisant les posts du forum, j'ai réussi seul à automatiser l'enregistrement automatique d'un publipostage dans un dossier variable à l'aide de cette macro dans word : Function Exist_Rep(Rep As String) As Boolean On Error Resume Next...

Je crois que j'ai solutionné avec cette macro : For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row If Range("C" & i).Value = "Duo" Then If Range("G" & i).Value = Range("G" & i + 1).Value Then Range("G" & i).Value = Replace(Range("G" & i).Value, Range("J" & i).Value...

En fait les duos apparaissent sur deux lignes identiques en colonne C et les prénoms sont ceux en colonne F sur ces deux lignes. L'idée est juste de remplacer les prénoms que l'on retrouve en colonne C par les noms en colonne E quand il y a écrit Duo en colonne A

Ils sont ensemble donc DUPONT / DURANT ou DURANT / DUPONT après le nom du club :)

Bonjour le forum ! J'ai un double soucis sur une macro. J'aimerais remplacer les 2 prénoms des duos par les deux noms en ordre alphabétique séparés par " / " (voir le fichier exemple). Autant j'arriverais à me dépatouiller sur une ligne autant sur deux, cela dépasse mes compétences ... Merci...

Super Merci ! Cela fonctionne ^^

Bonjour tatiak, Je pense ne pas être loin mais j'ai un message d'erreur ... Option Explicit ' *********************************************************************** ' ***** ***** ' ***** CODE PierreP56 ...

Merci tatiak je regarde ça ce soir et reviens vers toi.

Bonjour zebanx, bonjour le forum, Tout d'abord un grand merci à toi zebanx car effectivement le forum m'a permis d'écrire cette macro : Sub Macro1() Dim ch As String 'déclare la variable ch (CHemin d'accès) Dim cc As Workbook 'déclare la variable cc (Classeur Cible) Dim fs As Variant 'déclare...