Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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)...
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 à 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
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...
Bonjour tatiak,
Je pense ne pas être loin mais j'ai un message d'erreur ...
Option Explicit
' ***********************************************************************
' ***** *****
' ***** CODE PierreP56 ...
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...
Bonjour à tous,
J'ai besoin de copier des données dans un fichier SYNTHESE en provenance de fichier situés dans un même dossier.
J'ai réussi en créant un formule mais il y a la nécessité d'avoir le fichier ouvert (dès qu'il est fermé, j'ai un message d'erreur).
Je souhaiterais créer une macro...
Bonsoir le forum,
Une petite interrogation pour savoir si, selon vous, il est possible dans ce fichier de transformer les formules matricielles situés de la ligne 12 à 91 en vba ? (lancement en modifiant I2).
J'étais bien content d'arriver à adapter les formules mais je fais face à une vrai...
Salut CISCO,
Voici le fichier définitif conçu grâce à ton aide.
Penses-tu qu'il est possible d'alléger les formules matricielles avec du VBA ?
Il faut juste changer la valeur en I2 pour lancer le calcul.
A terme je vais faire une moulinette pour créer les fichiers en pdf pour chaque numéro...
Bonjour Cisco,
Oui tu as raison ma demande manquait complètement de précision.
Ton exemple est parfait, j'ai réussi à le réintégrer avec une BDD de 6000 lignes et tout a l'air de tourner.
Merci
Yannlion
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.