XL 2019 Comment attendre la fin d'exécution de la macro pour passer à la ligne de VBA suivante ?

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mars 2024

• #2

Bonjour LeForain,
Tentez de mettre :

VB:

DoEvents

avant la ligne Wordapp.Application.Quit
"DoEvents" suspend l’exécution pour que le système d’exploitation puisse traiter d’autres événements.

Fonction DoEvents (Visual Basic pour Applications)

Rubrique de référence sur Office VBA

learn.microsoft.com

 

Vote positif 0 Vote négatif

J

JacquesO

XLDnaute Junior

• 28 Mars 2024

• #3

Bonjour @sylvanu

Merci pour votre retour.
J'avais d'ailleurs vu ce DoEvent sur un autre sujet et je l'ai testé mais cela ne fonctionne toujours pas.
(En tout cas depuis Excel).
En la lançant depuis Word, cela fonctionne.

Par ailleurs en la lençant depuis Word, elle fonctionne mais j'ai l'impression que le publipostage a lieu en prenant des lignes de la feuille "Source" un peu aléatoirement.
Or j'aimerais que ce soir uniquement la dernière ligne du tableau qui soit prise à chaque fois.
Le but étant de générer à chaque validation une seule fiche, qui correspond à chaque fois aux infos du formulaire qui vient d'être complété. Soit la dernière ligne du tableau Source.

 

Pièces jointes

• SAISIE AUTOMATIQUE NC.xlsm

  41 KB · Affichages: 3
• M01-FOR-003_FICHE_NON_CONFORMITE.docx

  33.6 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mars 2024

• #4

Re,
Je ne peux pas faire grand chose car évidemment la requête SQL sur votre fichier Word échoue sur mon PC.

 

Vote positif 0 Vote négatif

J

JacquesO

XLDnaute Junior

• 28 Mars 2024

• #5

Re @sylvanu Comment se fait-il qu'elle échoue ?

 

Vote positif 0 Vote négatif

J

JacquesO

XLDnaute Junior

• 28 Mars 2024

• #6

Le problème dans la macro Word est-ce qu'elle traite plusieurs lignes d'un coup. Je n'ai pas réussi à lui faire traiter uniquement la dernière ligne du tableau.

Dans le code Excel, tout tourne sauf que même avec le rajout de DoEvents, je vois Word s'ouvrir et se refermer aussitôt sans avoir l'impression que ExporterPDF s'exécute

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 28 Mars 2024

• #7

Bonjour LeForain, sylvanu, le forum,

@LeForain :
Si le but du modèle Word est de générer un document pour une seule ligne de ton fichier source, une solution serait de ne pas utiliser le publipostage, mais de créer un modèle Word avec des contrôles de contenu.

Ainsi, tu peux facilement en VBA créer un nouveau document basé sur ce modèle et remplir ses contrôles de contenu.

Tu trouveras dans l'archive ci-jointe :

• un exemple de modèle Word (Modèle.docx) avec quelques contrôles de contenu ;
• ton fichier Excel avec deux macros
  • la fonction Mod_Word.BuildDocFromListrow qui est dédiée à créer un nouveau document basé sur un template et à partir des données d'une ligne d'un tableau (ListRow) ;
  • la procédure Mod_Test.TestWord qui crée un document à partir de la dernière ligne du tableau TSource, enregistre le document en pdf et le ferme.

La correspondance entre les colonnes du tableau et les contrôles de contenu se fait avec le titre du contrôle de contenu.

A+

 

Pièces jointes

• Exemple.zip

  38.6 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mars 2024

• #8

Bonjour LeForain, sylvanu, mromain,

Au lieu de contrôles de contenu on peut utiliser des signets (Bookmarks).

Bien sûr ils se suppriment quand on les utilise mais il est facile de les recréer.

Tout se fera à partir d'une seule macro Excel.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mars 2024

• #9

Voici le code (Excel) pour utiliser un signet nommé "Signet1" et le recréer :

VB:

texte = "Bonjour"
With Wdoc.Bookmarks("Signet1").Range
    .Text = texte
    Wdoc.Bookmarks.Add "Signet1", Wdoc.Range(.Start, .Start + Len(texte))
End With

 

Vote positif 0 Vote négatif