bonjour,
je voudrais cr=E9er une macro qui me permette d'ins=E9rer directement
des images dans un fichier word sans avoir =E0 faire ins=E9rer\image\=E0
partir du fichier etc...
je voudrais avoir la syntaxe en vb de tout cela s'il vous pla=EEt ?
merci et bonne journ=E9e.
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
damian
en fait je voudrai arriver à avoir la boîte de dialogue qui invite l'utilisateur à choisir la ou les images qu'il souhaite insérer dans le fichier pour être plus précis
en fait je voudrai arriver à avoir la boîte de dialogue qui invite
l'utilisateur à choisir la ou les images qu'il souhaite insérer dans
le fichier pour être plus précis
en fait je voudrai arriver à avoir la boîte de dialogue qui invite l'utilisateur à choisir la ou les images qu'il souhaite insérer dans le fichier pour être plus précis
Jean-Pierre FORESTIER
Cela existe déjà : Affichage / Barres d'outils / Dessin. Cette barre d'outils Dessin en bas de la page comporte une icône insérer une image.
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "damian" a écrit dans le message news:
bonjour, je voudrais créer une macro qui me permette d'insérer directement des images dans un fichier word sans avoir à faire insérerimageà partir du fichier etc... je voudrais avoir la syntaxe en vb de tout cela s'il vous plaît ? merci et bonne journée.
Cela existe déjà : Affichage / Barres d'outils / Dessin.
Cette barre d'outils Dessin en bas de la page comporte une icône insérer une
image.
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"damian" <gayeveroc@hotmail.fr> a écrit dans le message news:
1148043436.742696.278260@38g2000cwa.googlegroups.com...
bonjour,
je voudrais créer une macro qui me permette d'insérer directement
des images dans un fichier word sans avoir à faire insérerimageà
partir du fichier etc...
je voudrais avoir la syntaxe en vb de tout cela s'il vous plaît ?
merci et bonne journée.
Cela existe déjà : Affichage / Barres d'outils / Dessin. Cette barre d'outils Dessin en bas de la page comporte une icône insérer une image.
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "damian" a écrit dans le message news:
bonjour, je voudrais créer une macro qui me permette d'insérer directement des images dans un fichier word sans avoir à faire insérerimageà partir du fichier etc... je voudrais avoir la syntaxe en vb de tout cela s'il vous plaît ? merci et bonne journée.
damian
oui mais je voudrais le faire au moyen d'une macro ...et n'avoir à toucher ma souris que pour sélectionner le chemin à emprunter.
oui mais je voudrais le faire au moyen d'une macro ...et n'avoir à
toucher ma souris que pour sélectionner le chemin à emprunter.
oui mais je voudrais le faire au moyen d'une macro ...et n'avoir à toucher ma souris que pour sélectionner le chemin à emprunter.
Clément Marcotte
Essaie avec cela:
Sub BoiteDialogueImage() Application.Dialogs(wdDialogInsertPicture).Show End Sub
P.S. Tu peux retrouver la plupart de ces constantes en cherchant dialogs dans l'Explorateur d'objets.
P.P.S. Si tu coches la référence à "Microsoft Excel XX Object Library", dans Word (ou l'inverse dans Excel) tu vas aussi avoir celles d'Excel (ou de Word) par la même occasion.
"damian" a écrit dans le message de news:
en fait je voudrai arriver à avoir la boîte de dialogue qui invite l'utilisateur à choisir la ou les images qu'il souhaite insérer dans le fichier pour être plus précis
Essaie avec cela:
Sub BoiteDialogueImage()
Application.Dialogs(wdDialogInsertPicture).Show
End Sub
P.S. Tu peux retrouver la plupart de ces constantes en cherchant dialogs
dans l'Explorateur d'objets.
P.P.S. Si tu coches la référence à "Microsoft Excel XX Object Library", dans
Word (ou l'inverse dans Excel) tu vas aussi avoir celles d'Excel (ou de
Word) par la même occasion.
"damian" <gayeveroc@hotmail.fr> a écrit dans le message de news:
1148043720.153898.150950@j55g2000cwa.googlegroups.com...
en fait je voudrai arriver à avoir la boîte de dialogue qui invite
l'utilisateur à choisir la ou les images qu'il souhaite insérer dans
le fichier pour être plus précis
Sub BoiteDialogueImage() Application.Dialogs(wdDialogInsertPicture).Show End Sub
P.S. Tu peux retrouver la plupart de ces constantes en cherchant dialogs dans l'Explorateur d'objets.
P.P.S. Si tu coches la référence à "Microsoft Excel XX Object Library", dans Word (ou l'inverse dans Excel) tu vas aussi avoir celles d'Excel (ou de Word) par la même occasion.
"damian" a écrit dans le message de news:
en fait je voudrai arriver à avoir la boîte de dialogue qui invite l'utilisateur à choisir la ou les images qu'il souhaite insérer dans le fichier pour être plus précis
damian
mais clément tu es un dieu du vba !!! en fait mon objectif créer une macro sous word qui insère directement en spécifiant le dossier conteneur toutes les images qu'il contient séparées par un espace...
mais clément tu es un dieu du vba !!!
en fait mon objectif créer une macro sous word qui insère directement
en spécifiant le dossier conteneur toutes les images qu'il contient
séparées par un espace...
mais clément tu es un dieu du vba !!! en fait mon objectif créer une macro sous word qui insère directement en spécifiant le dossier conteneur toutes les images qu'il contient séparées par un espace...
Clément Marcotte
Je ne promets, rien, mais peut-être en fin de semaine...
(Bien des choses en chantier et à terminer).
"damian" a écrit dans le message de news:
mais clément tu es un dieu du vba !!! en fait mon objectif créer une macro sous word qui insère directement en spécifiant le dossier conteneur toutes les images qu'il contient séparées par un espace...
Je ne promets, rien, mais peut-être en fin de semaine...
(Bien des choses en chantier et à terminer).
"damian" <gayeveroc@hotmail.fr> a écrit dans le message de news:
1148046988.742868.123310@j55g2000cwa.googlegroups.com...
mais clément tu es un dieu du vba !!!
en fait mon objectif créer une macro sous word qui insère directement
en spécifiant le dossier conteneur toutes les images qu'il contient
séparées par un espace...
Je ne promets, rien, mais peut-être en fin de semaine...
(Bien des choses en chantier et à terminer).
"damian" a écrit dans le message de news:
mais clément tu es un dieu du vba !!! en fait mon objectif créer une macro sous word qui insère directement en spécifiant le dossier conteneur toutes les images qu'il contient séparées par un espace...
Clément Marcotte
Parce que là, ce qui m'obsède c'est de prendre VBExpress 2005 pour convertir une base ACCESS au format SQL Server.
ON dirait que tant que je n'aurai pas réussi cela, je n'aurai pas les idées assez claires.
"damian" a écrit dans le message de news:
mais clément tu es un dieu du vba !!! en fait mon objectif créer une macro sous word qui insère directement en spécifiant le dossier conteneur toutes les images qu'il contient séparées par un espace...
Parce que là, ce qui m'obsède c'est de prendre VBExpress 2005 pour convertir
une base ACCESS au format SQL Server.
ON dirait que tant que je n'aurai pas réussi cela, je n'aurai pas les idées
assez claires.
"damian" <gayeveroc@hotmail.fr> a écrit dans le message de news:
1148046988.742868.123310@j55g2000cwa.googlegroups.com...
mais clément tu es un dieu du vba !!!
en fait mon objectif créer une macro sous word qui insère directement
en spécifiant le dossier conteneur toutes les images qu'il contient
séparées par un espace...
Parce que là, ce qui m'obsède c'est de prendre VBExpress 2005 pour convertir une base ACCESS au format SQL Server.
ON dirait que tant que je n'aurai pas réussi cela, je n'aurai pas les idées assez claires.
"damian" a écrit dans le message de news:
mais clément tu es un dieu du vba !!! en fait mon objectif créer une macro sous word qui insère directement en spécifiant le dossier conteneur toutes les images qu'il contient séparées par un espace...
JièL Goubert
Bonjoir(c) damian
Le 19/05/2006 15:38 vous avez écrit ceci :
oui mais je voudrais le faire au moyen d'une macro ...et n'avoir à toucher ma souris que pour sélectionner le chemin à emprunter.
ben oui, mais sur ce coup vous cherchez qqchose qui existe déjà... Si vous ne voulez pas afficher la barre d'outils Dessin, personnaliser une barre d'outils en y ajoutant cet outils "Insérer une image", car il fait EXACTEMENT la même chose que la macro superfétatoire de Clément ;-)
Bravo à JPF, cette fois c'était bien vu !
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Bonjoir(c) damian
Le 19/05/2006 15:38 vous avez écrit ceci :
oui mais je voudrais le faire au moyen d'une macro ...et n'avoir à
toucher ma souris que pour sélectionner le chemin à emprunter.
ben oui, mais sur ce coup vous cherchez qqchose qui existe déjà... Si vous
ne voulez pas afficher la barre d'outils Dessin, personnaliser une barre
d'outils en y ajoutant cet outils "Insérer une image", car il fait
EXACTEMENT la même chose que la macro superfétatoire de Clément ;-)
Bravo à JPF, cette fois c'était bien vu !
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
oui mais je voudrais le faire au moyen d'une macro ...et n'avoir à toucher ma souris que pour sélectionner le chemin à emprunter.
ben oui, mais sur ce coup vous cherchez qqchose qui existe déjà... Si vous ne voulez pas afficher la barre d'outils Dessin, personnaliser une barre d'outils en y ajoutant cet outils "Insérer une image", car il fait EXACTEMENT la même chose que la macro superfétatoire de Clément ;-)
Bravo à JPF, cette fois c'était bien vu !
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
damian
il y a cette possibilité que j'arrive à mettre en oeuvre très facilement à partir du Application.Dialogs(wdDialogInsertPicture).Show de clément sauf que je voudrais avoir la possibilité de le modifier pour y mettre le chemin qui serait un dossier et pas une image et donc la boîte insérerait toutes les images du dossier séparées par un espace.
il y a cette possibilité que j'arrive à mettre en oeuvre très
facilement à partir du Application.Dialogs(wdDialogInsertPicture).Show
de clément sauf que je voudrais avoir la possibilité de le modifier
pour y mettre le chemin qui serait un dossier et pas une image et donc
la boîte insérerait toutes les images du dossier séparées par un
espace.
il y a cette possibilité que j'arrive à mettre en oeuvre très facilement à partir du Application.Dialogs(wdDialogInsertPicture).Show de clément sauf que je voudrais avoir la possibilité de le modifier pour y mettre le chemin qui serait un dossier et pas une image et donc la boîte insérerait toutes les images du dossier séparées par un espace.
Corona
Bonjour Damian, Il y a 3 ans, j'avais répondu sur ce forum à une question presque similaire. Tu trouveras sur ce lien un document word contenant le code que j'ai réadapté http://cjoint.com/data/fwkwAtCWoi.htm La macro de démarrage se nomme "Main" Il y a un module qui contient une API qui permet de sélectionner un répertoire, et une macro qui recherche ensuite toutes les images qui sont dans le répertoire sélectionné et tout les sous-répertoires. S'il y a une ou plusieurs images la macro ouvre un nouveau document et ensuite insère toutes les images les unes à la suite des autres.
J'ai mis 3 remarques (voir code ci-dessous). Dans la macro 'Main', la variable 'Repertoire' indique à l'API le répertoire par défaut ici c: Dans la macro 'Recherche' .FileName = "*.emf;*.wmf;*.jpg;*.jpeg;*.bmp" ' <<<< Ajouter les suffixes manquants .SearchSubFolders = True ' Placer false s'il ne faut prendre en compte les sous-répertoires
A adapter à tes besoins. J'espère que cela répondra à ta demande. Philippe
*********** partie de code ********** Sub main() Dim dir As Variant Dim Titre As String, Repertoire As String Titre = "Recherche image" Repertoire = "C:" ' <<<<< - Ici répertoire par défaut recherche BrowseForFolder(Title:=Titre, StartDir:=Repertoire) End Sub
Sub recherche(repIn As String) Dim Rep As String, Dossier As String, Doc As String Dim Pos As Integer, PosR As Integer Dim fs As Variant Dim i As Integer Set fs = Application.FileSearch With fs .LookIn = repIn .FileName = "*.emf;*.wmf;*.jpg;*.jpeg;*.bmp" ' <<<< Ajouter les suffixes qui manquant .SearchSubFolders = True ' Placer false si .Execute
.......etc ...
"damian" a écrit dans le message de news:
il y a cette possibilité que j'arrive à mettre en oeuvre très facilement à partir du Application.Dialogs(wdDialogInsertPicture).Show de clément sauf que je voudrais avoir la possibilité de le modifier pour y mettre le chemin qui serait un dossier et pas une image et donc la boîte insérerait toutes les images du dossier séparées par un espace.
Bonjour Damian,
Il y a 3 ans, j'avais répondu sur ce forum à une question presque
similaire.
Tu trouveras sur ce lien un document word contenant le code que j'ai
réadapté http://cjoint.com/data/fwkwAtCWoi.htm
La macro de démarrage se nomme "Main"
Il y a un module qui contient une API qui permet de sélectionner un
répertoire, et une macro qui recherche
ensuite toutes les images qui sont dans le répertoire sélectionné et tout
les sous-répertoires.
S'il y a une ou plusieurs images la macro ouvre un nouveau document et
ensuite insère toutes les images les unes à la suite des autres.
J'ai mis 3 remarques (voir code ci-dessous).
Dans la macro 'Main', la variable 'Repertoire' indique à l'API le
répertoire par défaut ici c:
Dans la macro 'Recherche'
.FileName = "*.emf;*.wmf;*.jpg;*.jpeg;*.bmp" ' <<<< Ajouter les
suffixes manquants
.SearchSubFolders = True ' Placer false s'il ne faut prendre en
compte les sous-répertoires
A adapter à tes besoins.
J'espère que cela répondra à ta demande.
Philippe
*********** partie de code **********
Sub main()
Dim dir As Variant
Dim Titre As String, Repertoire As String
Titre = "Recherche image"
Repertoire = "C:" ' <<<<< - Ici répertoire par défaut
recherche BrowseForFolder(Title:=Titre, StartDir:=Repertoire)
End Sub
Sub recherche(repIn As String)
Dim Rep As String, Dossier As String, Doc As String
Dim Pos As Integer, PosR As Integer
Dim fs As Variant
Dim i As Integer
Set fs = Application.FileSearch
With fs
.LookIn = repIn
.FileName = "*.emf;*.wmf;*.jpg;*.jpeg;*.bmp" ' <<<< Ajouter les suffixes
qui manquant
.SearchSubFolders = True ' Placer false si
.Execute
.......etc ...
"damian" <gayeveroc@hotmail.fr> a écrit dans le message de news:
1148280627.891254.312590@j33g2000cwa.googlegroups.com...
il y a cette possibilité que j'arrive à mettre en oeuvre très
facilement à partir du Application.Dialogs(wdDialogInsertPicture).Show
de clément sauf que je voudrais avoir la possibilité de le modifier
pour y mettre le chemin qui serait un dossier et pas une image et donc
la boîte insérerait toutes les images du dossier séparées par un
espace.
Bonjour Damian, Il y a 3 ans, j'avais répondu sur ce forum à une question presque similaire. Tu trouveras sur ce lien un document word contenant le code que j'ai réadapté http://cjoint.com/data/fwkwAtCWoi.htm La macro de démarrage se nomme "Main" Il y a un module qui contient une API qui permet de sélectionner un répertoire, et une macro qui recherche ensuite toutes les images qui sont dans le répertoire sélectionné et tout les sous-répertoires. S'il y a une ou plusieurs images la macro ouvre un nouveau document et ensuite insère toutes les images les unes à la suite des autres.
J'ai mis 3 remarques (voir code ci-dessous). Dans la macro 'Main', la variable 'Repertoire' indique à l'API le répertoire par défaut ici c: Dans la macro 'Recherche' .FileName = "*.emf;*.wmf;*.jpg;*.jpeg;*.bmp" ' <<<< Ajouter les suffixes manquants .SearchSubFolders = True ' Placer false s'il ne faut prendre en compte les sous-répertoires
A adapter à tes besoins. J'espère que cela répondra à ta demande. Philippe
*********** partie de code ********** Sub main() Dim dir As Variant Dim Titre As String, Repertoire As String Titre = "Recherche image" Repertoire = "C:" ' <<<<< - Ici répertoire par défaut recherche BrowseForFolder(Title:=Titre, StartDir:=Repertoire) End Sub
Sub recherche(repIn As String) Dim Rep As String, Dossier As String, Doc As String Dim Pos As Integer, PosR As Integer Dim fs As Variant Dim i As Integer Set fs = Application.FileSearch With fs .LookIn = repIn .FileName = "*.emf;*.wmf;*.jpg;*.jpeg;*.bmp" ' <<<< Ajouter les suffixes qui manquant .SearchSubFolders = True ' Placer false si .Execute
.......etc ...
"damian" a écrit dans le message de news:
il y a cette possibilité que j'arrive à mettre en oeuvre très facilement à partir du Application.Dialogs(wdDialogInsertPicture).Show de clément sauf que je voudrais avoir la possibilité de le modifier pour y mettre le chemin qui serait un dossier et pas une image et donc la boîte insérerait toutes les images du dossier séparées par un espace.
