Bonjour,
J'essaie de me faire une petite macro pour insérer des images lier dans un
tableau Word.
Rien de trés sorcier en fait
La mise en page (première page est faite)
En-tête et Pieds de page
Dans le reste c'est un tableau qui ira sur XXX pages
2 colonnes
Je me place à la main dans la première colone j'insére une image lier et
clique sur la touche TAB. Je me retrouve dans la 2ème colonne et j'insère
une nouvelle image liée... Puis TAB ce qui me construit automatiquement la
suite du tableau sur la page 2.
J'espère que je suis clair
Voilà le problème ai-je loupé un truc ? J'aimerais bien que cela fonctionnme
car j'ai plus de 400 pages à faire
Dim nf As Integer
Dim nft As String
For nf = 21 To 30
If nf < 10 Then nft = "00" & nf
If nf > 9 And nf < 100 Then nft = "0" & nf
If nf >= 100 Then nft = nf
Selection.InlineShapes.AddPicture FileName:= _
"E:\Fonds\Inventaire obligations 1820 - 1900\page_" & nft & ".jpg",
LinkToFile:=True, _
SaveWithDocument:=False
SendKeys "{tab}" <------------------- il passe pas d'une colone à
l'autre comme en cliquant sur la touche TAB ???????
Next nf
--
Merci et bonnes salutations
Pour m'écrire enlever le x xrmvuille@freesurf.ch
www.rmvuille.ch généalogie et site personnel.
Visitez www.saphirw.ch une idée cadeau ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AB
Bonjour, Je ne suis pas un expert, mais peut-être en remplaçant ton instruction SendKeys "{tab}" par celle-ci : Selection.MoveRight Unit:=wdCell AB
"R Vuille" a écrit dans le message de news: %
Bonjour, J'essaie de me faire une petite macro pour insérer des images lier dans un tableau Word. Rien de trés sorcier en fait La mise en page (première page est faite) En-tête et Pieds de page Dans le reste c'est un tableau qui ira sur XXX pages
2 colonnes
Je me place à la main dans la première colone j'insére une image lier et clique sur la touche TAB. Je me retrouve dans la 2ème colonne et j'insère une nouvelle image liée... Puis TAB ce qui me construit automatiquement la suite du tableau sur la page 2.
J'espère que je suis clair
Voilà le problème ai-je loupé un truc ? J'aimerais bien que cela fonctionnme car j'ai plus de 400 pages à faire
Dim nf As Integer Dim nft As String
For nf = 21 To 30
If nf < 10 Then nft = "00" & nf If nf > 9 And nf < 100 Then nft = "0" & nf If nf >= 100 Then nft = nf Selection.InlineShapes.AddPicture FileName:= _ "E:FondsInventaire obligations 1820 - 1900page_" & nft & ".jpg", LinkToFile:=True, _ SaveWithDocument:úlse SendKeys "{tab}" <------------------- il passe pas d'une colone à l'autre comme en cliquant sur la touche TAB ??????? Next nf
-- Merci et bonnes salutations Pour m'écrire enlever le x www.rmvuille.ch généalogie et site personnel. Visitez www.saphirw.ch une idée cadeau ?
Bonjour,
Je ne suis pas un expert, mais peut-être en remplaçant ton instruction
SendKeys "{tab}"
par celle-ci :
Selection.MoveRight Unit:=wdCell
AB
"R Vuille" <xrmvuille@freesurf.ch> a écrit dans le message de news:
%23TwYyFeaFHA.3384@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'essaie de me faire une petite macro pour insérer des images lier dans un
tableau Word.
Rien de trés sorcier en fait
La mise en page (première page est faite)
En-tête et Pieds de page
Dans le reste c'est un tableau qui ira sur XXX pages
2 colonnes
Je me place à la main dans la première colone j'insére une image lier et
clique sur la touche TAB. Je me retrouve dans la 2ème colonne et j'insère
une nouvelle image liée... Puis TAB ce qui me construit automatiquement la
suite du tableau sur la page 2.
J'espère que je suis clair
Voilà le problème ai-je loupé un truc ? J'aimerais bien que cela
fonctionnme car j'ai plus de 400 pages à faire
Dim nf As Integer
Dim nft As String
For nf = 21 To 30
If nf < 10 Then nft = "00" & nf
If nf > 9 And nf < 100 Then nft = "0" & nf
If nf >= 100 Then nft = nf
Selection.InlineShapes.AddPicture FileName:= _
"E:FondsInventaire obligations 1820 - 1900page_" & nft & ".jpg",
LinkToFile:=True, _
SaveWithDocument:úlse
SendKeys "{tab}" <------------------- il passe pas d'une colone à
l'autre comme en cliquant sur la touche TAB ???????
Next nf
--
Merci et bonnes salutations
Pour m'écrire enlever le x xrmvuille@freesurf.ch
www.rmvuille.ch généalogie et site personnel.
Visitez www.saphirw.ch une idée cadeau ?
Bonjour, Je ne suis pas un expert, mais peut-être en remplaçant ton instruction SendKeys "{tab}" par celle-ci : Selection.MoveRight Unit:=wdCell AB
"R Vuille" a écrit dans le message de news: %
Bonjour, J'essaie de me faire une petite macro pour insérer des images lier dans un tableau Word. Rien de trés sorcier en fait La mise en page (première page est faite) En-tête et Pieds de page Dans le reste c'est un tableau qui ira sur XXX pages
2 colonnes
Je me place à la main dans la première colone j'insére une image lier et clique sur la touche TAB. Je me retrouve dans la 2ème colonne et j'insère une nouvelle image liée... Puis TAB ce qui me construit automatiquement la suite du tableau sur la page 2.
J'espère que je suis clair
Voilà le problème ai-je loupé un truc ? J'aimerais bien que cela fonctionnme car j'ai plus de 400 pages à faire
Dim nf As Integer Dim nft As String
For nf = 21 To 30
If nf < 10 Then nft = "00" & nf If nf > 9 And nf < 100 Then nft = "0" & nf If nf >= 100 Then nft = nf Selection.InlineShapes.AddPicture FileName:= _ "E:FondsInventaire obligations 1820 - 1900page_" & nft & ".jpg", LinkToFile:=True, _ SaveWithDocument:úlse SendKeys "{tab}" <------------------- il passe pas d'une colone à l'autre comme en cliquant sur la touche TAB ??????? Next nf
-- Merci et bonnes salutations Pour m'écrire enlever le x www.rmvuille.ch généalogie et site personnel. Visitez www.saphirw.ch une idée cadeau ?
Anacoluthe
Bonjour !
'R Vuille' nous a écrit ...
SendKeys "{tab}" <------------------- il passe pas d'une colone à
Ouh ! Évitez au maximum dutiliser Sendkeys ! Cest de la très mauvaise programmation (encore pire que dutiliser Selection). Votre Tab se perd dans une fenêtre quelconque, c'est très fréquent. N'utilisez cette technique que pour des fenêtres externes inaccessibles à vba et encore avec précaution en vérifiant dans quelle fenêtre windows vous envoyez des séquences de touches du clavier. Ici suivez le très judicieux conseil dAndré !
Anacoluthe « Avant de se foutre par la fenêtre, faut penser à l'ouvrir. » - SIM
Bonjour !
'R Vuille' nous a écrit ...
SendKeys "{tab}" <------------------- il passe pas d'une colone à
Ouh ! Évitez au maximum dutiliser Sendkeys ! Cest de la très
mauvaise programmation (encore pire que dutiliser Selection).
Votre Tab se perd dans une fenêtre quelconque, c'est très fréquent.
N'utilisez cette technique que pour des fenêtres externes inaccessibles
à vba et encore avec précaution en vérifiant dans quelle fenêtre
windows vous envoyez des séquences de touches du clavier.
Ici suivez le très judicieux conseil dAndré !
Anacoluthe
« Avant de se foutre par la fenêtre, faut penser à l'ouvrir. »
- SIM
SendKeys "{tab}" <------------------- il passe pas d'une colone à
Ouh ! Évitez au maximum dutiliser Sendkeys ! Cest de la très mauvaise programmation (encore pire que dutiliser Selection). Votre Tab se perd dans une fenêtre quelconque, c'est très fréquent. N'utilisez cette technique que pour des fenêtres externes inaccessibles à vba et encore avec précaution en vérifiant dans quelle fenêtre windows vous envoyez des séquences de touches du clavier. Ici suivez le très judicieux conseil dAndré !
Anacoluthe « Avant de se foutre par la fenêtre, faut penser à l'ouvrir. » - SIM
R Vuille
Bonjour, Oui merci c'est ce que j'ai fait et cela fonctionne....
En passant est-il possible de retrouver une image inséré au lieu de lier sur un document Word ? Je dois avoir 1 seul image qui est inséré au lieu de liée sur les 380 images... du document et cela m'embête !
-- Merci et bonnes salutations Pour m'écrire enlever le x www.rmvuille.ch généalogie et site personnel. Visitez www.saphirw.ch une idée cadeau ?
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'R Vuille' nous a écrit ...
SendKeys "{tab}" <------------------- il passe pas d'une colone à
Ouh ! Évitez au maximum d'utiliser Sendkeys ! C'est de la très mauvaise programmation (encore pire que d'utiliser Selection). Votre Tab se perd dans une fenêtre quelconque, c'est très fréquent. N'utilisez cette technique que pour des fenêtres externes inaccessibles à vba et encore avec précaution en vérifiant dans quelle fenêtre windows vous envoyez des séquences de touches du clavier. Ici suivez le très judicieux conseil d'André !
Anacoluthe « Avant de se foutre par la fenêtre, faut penser à l'ouvrir. » - SIM
Bonjour,
Oui merci c'est ce que j'ai fait et cela fonctionne....
En passant est-il possible de retrouver une image inséré au lieu de lier sur
un document Word ?
Je dois avoir 1 seul image qui est inséré au lieu de liée sur les 380
images... du document et cela m'embête !
--
Merci et bonnes salutations
Pour m'écrire enlever le x xrmvuille@freesurf.ch
www.rmvuille.ch généalogie et site personnel.
Visitez www.saphirw.ch une idée cadeau ?
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
e0XwkOgaFHA.464@TK2MSFTNGP15.phx.gbl...
Bonjour !
'R Vuille' nous a écrit ...
SendKeys "{tab}" <------------------- il passe pas d'une colone à
Ouh ! Évitez au maximum d'utiliser Sendkeys ! C'est de la très
mauvaise programmation (encore pire que d'utiliser Selection).
Votre Tab se perd dans une fenêtre quelconque, c'est très fréquent.
N'utilisez cette technique que pour des fenêtres externes inaccessibles
à vba et encore avec précaution en vérifiant dans quelle fenêtre
windows vous envoyez des séquences de touches du clavier.
Ici suivez le très judicieux conseil d'André !
Anacoluthe
« Avant de se foutre par la fenêtre, faut penser à l'ouvrir. »
- SIM
Bonjour, Oui merci c'est ce que j'ai fait et cela fonctionne....
En passant est-il possible de retrouver une image inséré au lieu de lier sur un document Word ? Je dois avoir 1 seul image qui est inséré au lieu de liée sur les 380 images... du document et cela m'embête !
-- Merci et bonnes salutations Pour m'écrire enlever le x www.rmvuille.ch généalogie et site personnel. Visitez www.saphirw.ch une idée cadeau ?
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'R Vuille' nous a écrit ...
SendKeys "{tab}" <------------------- il passe pas d'une colone à
Ouh ! Évitez au maximum d'utiliser Sendkeys ! C'est de la très mauvaise programmation (encore pire que d'utiliser Selection). Votre Tab se perd dans une fenêtre quelconque, c'est très fréquent. N'utilisez cette technique que pour des fenêtres externes inaccessibles à vba et encore avec précaution en vérifiant dans quelle fenêtre windows vous envoyez des séquences de touches du clavier. Ici suivez le très judicieux conseil d'André !
Anacoluthe « Avant de se foutre par la fenêtre, faut penser à l'ouvrir. » - SIM
AB
Bonjour, Par programmation, c'est sûrement possible, mais je ne sais pas faire. Une idée, peut-être : tu peux éventuellement couper temporairement les liaisons. Par exemple, si toutes les images sont dans un répertoire, si tu déplaces le répertoire, seules les images insérées apparaîtront. Mais prudence !!! Faudrait pas tout détruire bêtement... AB
"R Vuille" a écrit dans le message de news:
Bonjour, Oui merci c'est ce que j'ai fait et cela fonctionne....
En passant est-il possible de retrouver une image inséré au lieu de lier sur un document Word ? Je dois avoir 1 seul image qui est inséré au lieu de liée sur les 380 images... du document et cela m'embête !
-- Merci et bonnes salutations Pour m'écrire enlever le x www.rmvuille.ch généalogie et site personnel. Visitez www.saphirw.ch une idée cadeau ?
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'R Vuille' nous a écrit ...
SendKeys "{tab}" <------------------- il passe pas d'une colone à
Ouh ! Évitez au maximum d'utiliser Sendkeys ! C'est de la très mauvaise programmation (encore pire que d'utiliser Selection). Votre Tab se perd dans une fenêtre quelconque, c'est très fréquent. N'utilisez cette technique que pour des fenêtres externes inaccessibles à vba et encore avec précaution en vérifiant dans quelle fenêtre windows vous envoyez des séquences de touches du clavier. Ici suivez le très judicieux conseil d'André !
Anacoluthe « Avant de se foutre par la fenêtre, faut penser à l'ouvrir. » - SIM
Bonjour,
Par programmation, c'est sûrement possible, mais je ne sais pas faire.
Une idée, peut-être : tu peux éventuellement couper temporairement les
liaisons. Par exemple, si toutes les images sont dans un répertoire, si tu
déplaces le répertoire, seules les images insérées apparaîtront.
Mais prudence !!! Faudrait pas tout détruire bêtement...
AB
"R Vuille" <xrmvuille@freesurf.ch> a écrit dans le message de news:
uvERf6maFHA.3132@TK2MSFTNGP09.phx.gbl...
Bonjour,
Oui merci c'est ce que j'ai fait et cela fonctionne....
En passant est-il possible de retrouver une image inséré au lieu de lier
sur
un document Word ?
Je dois avoir 1 seul image qui est inséré au lieu de liée sur les 380
images... du document et cela m'embête !
--
Merci et bonnes salutations
Pour m'écrire enlever le x xrmvuille@freesurf.ch
www.rmvuille.ch généalogie et site personnel.
Visitez www.saphirw.ch une idée cadeau ?
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news:
e0XwkOgaFHA.464@TK2MSFTNGP15.phx.gbl...
Bonjour !
'R Vuille' nous a écrit ...
SendKeys "{tab}" <------------------- il passe pas d'une colone
à
Ouh ! Évitez au maximum d'utiliser Sendkeys ! C'est de la très
mauvaise programmation (encore pire que d'utiliser Selection).
Votre Tab se perd dans une fenêtre quelconque, c'est très fréquent.
N'utilisez cette technique que pour des fenêtres externes inaccessibles
à vba et encore avec précaution en vérifiant dans quelle fenêtre
windows vous envoyez des séquences de touches du clavier.
Ici suivez le très judicieux conseil d'André !
Anacoluthe
« Avant de se foutre par la fenêtre, faut penser à l'ouvrir. »
- SIM
Bonjour, Par programmation, c'est sûrement possible, mais je ne sais pas faire. Une idée, peut-être : tu peux éventuellement couper temporairement les liaisons. Par exemple, si toutes les images sont dans un répertoire, si tu déplaces le répertoire, seules les images insérées apparaîtront. Mais prudence !!! Faudrait pas tout détruire bêtement... AB
"R Vuille" a écrit dans le message de news:
Bonjour, Oui merci c'est ce que j'ai fait et cela fonctionne....
En passant est-il possible de retrouver une image inséré au lieu de lier sur un document Word ? Je dois avoir 1 seul image qui est inséré au lieu de liée sur les 380 images... du document et cela m'embête !
-- Merci et bonnes salutations Pour m'écrire enlever le x www.rmvuille.ch généalogie et site personnel. Visitez www.saphirw.ch une idée cadeau ?
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'R Vuille' nous a écrit ...
SendKeys "{tab}" <------------------- il passe pas d'une colone à
Ouh ! Évitez au maximum d'utiliser Sendkeys ! C'est de la très mauvaise programmation (encore pire que d'utiliser Selection). Votre Tab se perd dans une fenêtre quelconque, c'est très fréquent. N'utilisez cette technique que pour des fenêtres externes inaccessibles à vba et encore avec précaution en vérifiant dans quelle fenêtre windows vous envoyez des séquences de touches du clavier. Ici suivez le très judicieux conseil d'André !
Anacoluthe « Avant de se foutre par la fenêtre, faut penser à l'ouvrir. » - SIM
