Bonjour,
Je souhaite faire des étiquettes basées sur un tableau créé dans Word.
J'ai créé un document pour construire ces étiquettes. Chaque étiquette (14
dans la page) est composée de deux colonnes ayant chacune deux lignes :
Produit et Composition comme en-tête à modifier. Les autres cases contiennent
des valeurs fixes. Principe :
Je me positionne dans mon tableau liste et exécute la macro "Imprimer"
J'ai écrit le code :
Documents("ListeProduits.dot").Activate
Selection.cells(1).Select
Mess1=Left(Selection.Text, Len(Selection.Text) -2)
Selection.MoveRight Unit:=wdCell ' pour récupérer le contenu de la case à
droite
Selection.cells(1).Select
Mess2=Left(Selection.Text, Len(Selection.Text) -2)
Document("Etiquette.doc").Activate
Selection.Find.Execute FindText:="Produit", ReplaceWith:=Mess1,
Replace:=wdReplaceAll
Selection.Find.Execute FindText:="Composition", ReplaceWith:=Mess2,
Replace:=wdReplaceAll
Deux résultats sont obtenus :
En pas à pas, je remplace bien les en-tête des colonnes des étiquettes par
les textes présents dans la liste Mess1 et Mess2.
En automatique, les en-tête sont effacés mas pas remplacés...
Qu'ai-je oublié de préciser?
Document("Etiquette.doc").Activate ne fait pas basculer la sélection :
Selection.Find.Execute FindText:="Produit", ReplaceWith:=Mess1, qui n'est alors pas celle que vous croyez.
J'essaierais avec Document("Etiquette.doc").select
-- A+
Ptit Louis
Bonjour, Merci de la remarque. La commande proposée fait bien basculer la sélection des fichiers... Je renouvelle ma remarque cette macro ne fonctionne qu'en mode pas à pas !
Une hypothèse :
Document("Etiquette.doc").Activate ne fait pas basculer la sélection :
Selection.Find.Execute FindText:="Produit", ReplaceWith:=Mess1, qui n'est alors pas celle que vous croyez.
J'essaierais avec Document("Etiquette.doc").select
-- A+
Bonjour,
Merci de la remarque.
La commande proposée fait bien basculer la sélection des fichiers...
Je renouvelle ma remarque cette macro ne fonctionne qu'en mode pas à pas !
Une hypothèse :
Document("Etiquette.doc").Activate
ne fait pas basculer la sélection :
Selection.Find.Execute FindText:="Produit", ReplaceWith:=Mess1,
qui n'est alors pas celle que vous croyez.
J'essaierais avec Document("Etiquette.doc").select
Bonjour, Merci de la remarque. La commande proposée fait bien basculer la sélection des fichiers... Je renouvelle ma remarque cette macro ne fonctionne qu'en mode pas à pas !
Une hypothèse :
Document("Etiquette.doc").Activate ne fait pas basculer la sélection :
Selection.Find.Execute FindText:="Produit", ReplaceWith:=Mess1, qui n'est alors pas celle que vous croyez.
J'essaierais avec Document("Etiquette.doc").select
-- A+
Geo
Bonjour, Merci de la remarque. La commande proposée fait bien basculer la sélection des fichiers... Je renouvelle ma remarque cette macro ne fonctionne qu'en mode pas à pas !
C'est ce qui m'a fait penser à ce détail. Donc ça ne marche toujours pas ?
-- A+
Bonjour,
Merci de la remarque.
La commande proposée fait bien basculer la sélection des fichiers...
Je renouvelle ma remarque cette macro ne fonctionne qu'en mode pas à pas !
C'est ce qui m'a fait penser à ce détail.
Donc ça ne marche toujours pas ?
Bonjour, Merci de la remarque. La commande proposée fait bien basculer la sélection des fichiers... Je renouvelle ma remarque cette macro ne fonctionne qu'en mode pas à pas !
C'est ce qui m'a fait penser à ce détail. Donc ça ne marche toujours pas ?
-- A+
Geo
Re
désolé, je n'avais pas bien lu votre premier message. Il y a bien une anomalie entre le fait que le résultat soit différent en pas à pas et en automatique. Là-dessus on est d'accord, mais ce n'est pas la première fois que ça arrive. Pour le reste, ce ne sont que des pistes de recherche. D'après votre résultat, il semble que vous ne récupériez pas les données du premier document. Un petit debug.print permettrait de s'en assurer.
Ce document est un modèle. Avez-vous essayé avec un document Word ?
La sélection de la cellule ne me parait pas très orthodoxe, ce qui ne veut pas dire qu'elle ne marche pas, mais j'aurais plutôt mis : activedocument.tables(1).cell(1,1).select
-- A+
Re
désolé, je n'avais pas bien lu votre premier message.
Il y a bien une anomalie entre le fait que le résultat soit différent
en pas à pas et en automatique.
Là-dessus on est d'accord, mais ce n'est pas la première fois que ça
arrive.
Pour le reste, ce ne sont que des pistes de recherche.
D'après votre résultat, il semble que vous ne récupériez pas les
données du premier document.
Un petit debug.print permettrait de s'en assurer.
Ce document est un modèle. Avez-vous essayé avec un document Word ?
La sélection de la cellule ne me parait pas très orthodoxe, ce qui ne
veut pas dire qu'elle ne marche pas, mais j'aurais plutôt mis :
activedocument.tables(1).cell(1,1).select
désolé, je n'avais pas bien lu votre premier message. Il y a bien une anomalie entre le fait que le résultat soit différent en pas à pas et en automatique. Là-dessus on est d'accord, mais ce n'est pas la première fois que ça arrive. Pour le reste, ce ne sont que des pistes de recherche. D'après votre résultat, il semble que vous ne récupériez pas les données du premier document. Un petit debug.print permettrait de s'en assurer.
Ce document est un modèle. Avez-vous essayé avec un document Word ?
La sélection de la cellule ne me parait pas très orthodoxe, ce qui ne veut pas dire qu'elle ne marche pas, mais j'aurais plutôt mis : activedocument.tables(1).cell(1,1).select
-- A+
Ptit Louis
Bonsoir !
1 million d'excuses à offrir!
Le problème vient du fait que en manuel je lance la macro depuis VBE, et que en automatique depuis le bouton qui est sur fe fichier... ce qui fait que je perds la sélection et me retrouve avec des variables non affectées.
Je mets donc un menu personnalisé !
Merci des remarques bonne nuit, ou bonne journée !
Re
désolé, je n'avais pas bien lu votre premier message. Il y a bien une anomalie entre le fait que le résultat soit différent en pas à pas et en automatique. Là-dessus on est d'accord, mais ce n'est pas la première fois que ça arrive. Pour le reste, ce ne sont que des pistes de recherche. D'après votre résultat, il semble que vous ne récupériez pas les données du premier document. Un petit debug.print permettrait de s'en assurer.
Ce document est un modèle. Avez-vous essayé avec un document Word ?
La sélection de la cellule ne me parait pas très orthodoxe, ce qui ne veut pas dire qu'elle ne marche pas, mais j'aurais plutôt mis : activedocument.tables(1).cell(1,1).select
-- A+
Bonsoir !
1 million d'excuses à offrir!
Le problème vient du fait que en manuel je lance la macro depuis VBE, et que
en automatique depuis le bouton qui est sur fe fichier... ce qui fait que je
perds la sélection et me retrouve avec des variables non affectées.
Je mets donc un menu personnalisé !
Merci des remarques bonne nuit, ou bonne journée !
Re
désolé, je n'avais pas bien lu votre premier message.
Il y a bien une anomalie entre le fait que le résultat soit différent
en pas à pas et en automatique.
Là-dessus on est d'accord, mais ce n'est pas la première fois que ça
arrive.
Pour le reste, ce ne sont que des pistes de recherche.
D'après votre résultat, il semble que vous ne récupériez pas les
données du premier document.
Un petit debug.print permettrait de s'en assurer.
Ce document est un modèle. Avez-vous essayé avec un document Word ?
La sélection de la cellule ne me parait pas très orthodoxe, ce qui ne
veut pas dire qu'elle ne marche pas, mais j'aurais plutôt mis :
activedocument.tables(1).cell(1,1).select
Le problème vient du fait que en manuel je lance la macro depuis VBE, et que en automatique depuis le bouton qui est sur fe fichier... ce qui fait que je perds la sélection et me retrouve avec des variables non affectées.
Je mets donc un menu personnalisé !
Merci des remarques bonne nuit, ou bonne journée !
Re
désolé, je n'avais pas bien lu votre premier message. Il y a bien une anomalie entre le fait que le résultat soit différent en pas à pas et en automatique. Là-dessus on est d'accord, mais ce n'est pas la première fois que ça arrive. Pour le reste, ce ne sont que des pistes de recherche. D'après votre résultat, il semble que vous ne récupériez pas les données du premier document. Un petit debug.print permettrait de s'en assurer.
Ce document est un modèle. Avez-vous essayé avec un document Word ?
La sélection de la cellule ne me parait pas très orthodoxe, ce qui ne veut pas dire qu'elle ne marche pas, mais j'aurais plutôt mis : activedocument.tables(1).cell(1,1).select
-- A+
Geo
Bonsoir !
1 million d'excuses à offrir!
Pas du tout, les forums sont faits pour réfléchir ensemble.
merci pour le retour.
-- A+
Bonsoir !
1 million d'excuses à offrir!
Pas du tout,
les forums sont faits pour réfléchir ensemble.
Pas du tout, les forums sont faits pour réfléchir ensemble.
merci pour le retour.
-- A+
FxM
Bonsoir,
Sous Excel, le botuon a une propriété 'takefocusonclick' qu'il suffit de mettre à false. Peut-être que sous word ...
@+ FxM
Bonsoir !
1 million d'excuses à offrir!
Le problème vient du fait que en manuel je lance la macro depuis VBE, et que en automatique depuis le bouton qui est sur fe fichier... ce qui fait que je perds la sélection et me retrouve avec des variables non affectées.
Je mets donc un menu personnalisé !
Merci des remarques bonne nuit, ou bonne journée !
Re
désolé, je n'avais pas bien lu votre premier message. Il y a bien une anomalie entre le fait que le résultat soit différent en pas à pas et en automatique. Là-dessus on est d'accord, mais ce n'est pas la première fois que ça arrive. Pour le reste, ce ne sont que des pistes de recherche. D'après votre résultat, il semble que vous ne récupériez pas les données du premier document. Un petit debug.print permettrait de s'en assurer.
Ce document est un modèle. Avez-vous essayé avec un document Word ?
La sélection de la cellule ne me parait pas très orthodoxe, ce qui ne veut pas dire qu'elle ne marche pas, mais j'aurais plutôt mis : activedocument.tables(1).cell(1,1).select
-- A+
Bonsoir,
Sous Excel, le botuon a une propriété 'takefocusonclick' qu'il suffit de
mettre à false. Peut-être que sous word ...
@+
FxM
Bonsoir !
1 million d'excuses à offrir!
Le problème vient du fait que en manuel je lance la macro depuis VBE, et que
en automatique depuis le bouton qui est sur fe fichier... ce qui fait que je
perds la sélection et me retrouve avec des variables non affectées.
Je mets donc un menu personnalisé !
Merci des remarques bonne nuit, ou bonne journée !
Re
désolé, je n'avais pas bien lu votre premier message.
Il y a bien une anomalie entre le fait que le résultat soit différent
en pas à pas et en automatique.
Là-dessus on est d'accord, mais ce n'est pas la première fois que ça
arrive.
Pour le reste, ce ne sont que des pistes de recherche.
D'après votre résultat, il semble que vous ne récupériez pas les
données du premier document.
Un petit debug.print permettrait de s'en assurer.
Ce document est un modèle. Avez-vous essayé avec un document Word ?
La sélection de la cellule ne me parait pas très orthodoxe, ce qui ne
veut pas dire qu'elle ne marche pas, mais j'aurais plutôt mis :
activedocument.tables(1).cell(1,1).select
Sous Excel, le botuon a une propriété 'takefocusonclick' qu'il suffit de mettre à false. Peut-être que sous word ...
@+ FxM
Bonsoir !
1 million d'excuses à offrir!
Le problème vient du fait que en manuel je lance la macro depuis VBE, et que en automatique depuis le bouton qui est sur fe fichier... ce qui fait que je perds la sélection et me retrouve avec des variables non affectées.
Je mets donc un menu personnalisé !
Merci des remarques bonne nuit, ou bonne journée !
Re
désolé, je n'avais pas bien lu votre premier message. Il y a bien une anomalie entre le fait que le résultat soit différent en pas à pas et en automatique. Là-dessus on est d'accord, mais ce n'est pas la première fois que ça arrive. Pour le reste, ce ne sont que des pistes de recherche. D'après votre résultat, il semble que vous ne récupériez pas les données du premier document. Un petit debug.print permettrait de s'en assurer.
Ce document est un modèle. Avez-vous essayé avec un document Word ?
La sélection de la cellule ne me parait pas très orthodoxe, ce qui ne veut pas dire qu'elle ne marche pas, mais j'aurais plutôt mis : activedocument.tables(1).cell(1,1).select
