Bonjour à tous,
J'ai regardé sur le forum et je n'ai pas trouvé de réponses à ma question. De plus, je ne suis pas certain de comprendre le fonctionnement d'une barre d'avancement des tâches par userform.
Voilà mon cas : À partir d'Excel, je crée un fichier Word (objet OLE) dans lequel j'inscris toutes mes données provenant de ma feuille Excel. Je voudrais que, pendant ce transfert de données, une barre d'avancement s'affiche et indique à l'utilisateur l'avancement des données transférées. Hors, j'ai 2 problèmes :
1) Je ne comprends pas bien comment créer une barre d'avancement par Userform
2) Si j'affiche un Userform après avoir actionné mon objet OLE, le Userform ne s'affiche pas puisque c'est Word qui est activé plutôt qu'Excel. Si par contre, j'ouvre et je sélectionne Excel, le formulaire s'affiche, mais les données ne se transfèrent plus. Voici un extrait de ma macro pour ce point :
Set Changements = New Collection
' Ouvre le document Word et efface le contenu
wksFeuil1.OLEObjects("Document Word").Verb
' Excel.Application.Visible = True
frmAvancement.Show
Set wdDoc = modExport.OuvrirDocumentWord("Document Word")
' Obtient les informations de la feuille Excel
modInformations.ObtenirInformations
Merci.
J'ai regardé sur le forum et je n'ai pas trouvé de réponses à ma question. De plus, je ne suis pas certain de comprendre le fonctionnement d'une barre d'avancement des tâches par userform.
Voilà mon cas : À partir d'Excel, je crée un fichier Word (objet OLE) dans lequel j'inscris toutes mes données provenant de ma feuille Excel. Je voudrais que, pendant ce transfert de données, une barre d'avancement s'affiche et indique à l'utilisateur l'avancement des données transférées. Hors, j'ai 2 problèmes :
1) Je ne comprends pas bien comment créer une barre d'avancement par Userform
2) Si j'affiche un Userform après avoir actionné mon objet OLE, le Userform ne s'affiche pas puisque c'est Word qui est activé plutôt qu'Excel. Si par contre, j'ouvre et je sélectionne Excel, le formulaire s'affiche, mais les données ne se transfèrent plus. Voici un extrait de ma macro pour ce point :
Set Changements = New Collection
' Ouvre le document Word et efface le contenu
wksFeuil1.OLEObjects("Document Word").Verb
' Excel.Application.Visible = True
frmAvancement.Show
Set wdDoc = modExport.OuvrirDocumentWord("Document Word")
' Obtient les informations de la feuille Excel
modInformations.ObtenirInformations
Merci.