OVH Cloud OVH Cloud

Insérer Image

4 réponses
Avatar
KIKSAN
Bonjour =E0 tous

J'esaie de cr=E9er une proc=E9dure VBA pour ouvrir=20
automatiquement la boite de dialogue standard "Ins=E9rer une=20
image" avec comme choix de dossier par=20
d=E9faut : "C:\Images\"

On m'a propos=E9 hier l'instruction simple suivante mais il=20
n'est pas possible de d=E9finir le chemin par d=E9faut :

Application.Dialogs(xlDialogInsertPicture).Show (Excel)
ou
Application.Dialogs(wdDialogInsertPicture).Show (Word)

Quelqu'un a-t-il une id=E9e ?

Merci =E0 tous.

KIKSAN

4 réponses

Avatar
Michel Gaboly
Bonjour,

Mais si c'est possible ;-))

Il suffit d'utiliser juste avant

ChDir "C:Images"

pour changer le répertoire courant.

Si C n'est pas nécessairement le lecteur courant, lecture de fichiers
sur le réseau ou un autre disque, il faut utiliser :

ChDrive "C"
ChDir "C:Images"



Bonjour à tous

J'esaie de créer une procédure VBA pour ouvrir
automatiquement la boite de dialogue standard "Insérer une
image" avec comme choix de dossier par
défaut : "C:Images"

On m'a proposé hier l'instruction simple suivante mais il
n'est pas possible de définir le chemin par défaut :

Application.Dialogs(xlDialogInsertPicture).Show (Excel)
ou
Application.Dialogs(wdDialogInsertPicture).Show (Word)

Quelqu'un a-t-il une idée ?

Merci à tous.

KIKSAN




--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
KIKSAN
Merci pour ta réponse

Je pense avoir trouvé la solution : il faut changer en
fait le répertoire Fichier d'Images dans Outils + Options
+ Dossiers par défaut

exemple :
Options.DefaultFilePath(Path:=wdPicturesPath)= "C:Images"

Cordialement.

KIKSAN

-----Message d'origine-----
Bonjour,

Mais si c'est possible ;-))

Il suffit d'utiliser juste avant

ChDir "C:Images"

pour changer le répertoire courant.

Si C n'est pas nécessairement le lecteur courant, lecture
de fichiers

sur le réseau ou un autre disque, il faut utiliser :

ChDrive "C"
ChDir "C:Images"



Bonjour à tous

J'esaie de créer une procédure VBA pour ouvrir
automatiquement la boite de dialogue standard "Insérer
une


image" avec comme choix de dossier par
défaut : "C:Images"

On m'a proposé hier l'instruction simple suivante mais
il


n'est pas possible de définir le chemin par défaut :

Application.Dialogs(xlDialogInsertPicture).Show (Excel)
ou
Application.Dialogs(wdDialogInsertPicture).Show (Word)

Quelqu'un a-t-il une idée ?

Merci à tous.

KIKSAN




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




Avatar
Michel Gaboly
Re,

Pourquoi, le ChDir ne te convient pas ?


Merci pour ta réponse

Je pense avoir trouvé la solution : il faut changer en
fait le répertoire Fichier d'Images dans Outils + Options
+ Dossiers par défaut

exemple :
Options.DefaultFilePath(Path:=wdPicturesPath)= "C:Images"

Cordialement.

KIKSAN

-----Message d'origine-----
Bonjour,

Mais si c'est possible ;-))

Il suffit d'utiliser juste avant

ChDir "C:Images"

pour changer le répertoire courant.

Si C n'est pas nécessairement le lecteur courant, lecture
de fichiers

sur le réseau ou un autre disque, il faut utiliser :

ChDrive "C"
ChDir "C:Images"



Bonjour à tous

J'esaie de créer une procédure VBA pour ouvrir
automatiquement la boite de dialogue standard "Insérer
une


image" avec comme choix de dossier par
défaut : "C:Images"

On m'a proposé hier l'instruction simple suivante mais
il


n'est pas possible de définir le chemin par défaut :

Application.Dialogs(xlDialogInsertPicture).Show (Excel)
ou
Application.Dialogs(wdDialogInsertPicture).Show (Word)

Quelqu'un a-t-il une idée ?

Merci à tous.

KIKSAN




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com



Avatar
KIKSAN
J'ai fait un test ChDir dans Word et Excel -> la boîte de
dialogue qui s'ouvre a toujours le même dossier par défaut
(celui qui est inscrit dans Outils + Options + Dossiers
par défaut + Fichiers d'images. C'est comme ça que j'ai
pensé a écrire du code pour changer ce dossier ...

Cordialement.

KIKSAN
-----Message d'origine-----
Re,

Pourquoi, le ChDir ne te convient pas ?


Merci pour ta réponse

Je pense avoir trouvé la solution : il faut changer en
fait le répertoire Fichier d'Images dans Outils +
Options


+ Dossiers par défaut

exemple :
Options.DefaultFilePath(Path:=wdPicturesPath)
= "C:Images"



Cordialement.

KIKSAN

-----Message d'origine-----
Bonjour,

Mais si c'est possible ;-))

Il suffit d'utiliser juste avant

ChDir "C:Images"

pour changer le répertoire courant.

Si C n'est pas nécessairement le lecteur courant,
lecture



de fichiers
sur le réseau ou un autre disque, il faut utiliser :

ChDrive "C"
ChDir "C:Images"



Bonjour à tous

J'esaie de créer une procédure VBA pour ouvrir
automatiquement la boite de dialogue
standard "Insérer




une
image" avec comme choix de dossier par
défaut : "C:Images"

On m'a proposé hier l'instruction simple suivante
mais




il
n'est pas possible de définir le chemin par défaut :

Application.Dialogs(xlDialogInsertPicture).Show
(Excel)




ou
Application.Dialogs(wdDialogInsertPicture).Show
(Word)





Quelqu'un a-t-il une idée ?

Merci à tous.

KIKSAN




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.