Changer répertoire

[Cougar]

Bonjour le forum,

J'ai trouvé ce code pour insérer une image dans un commentaire :

Sub InsèreImageCommentaireCelluleActive()
'ChDir "S:\Superviseur\Photos_Risques_Machines" Ici on peut changer le répertoire et ne fonctionne pas
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If nf = False Then Exit Sub
With ActiveCell
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture nf
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
End With
End Sub

J'ai insérer la ligne ChDir "S:\Superviseur\ mais cela ne fonctionne pas ?

Comment écrire le code pour forcer un changement de répertore ?

Merci

 

[DoubleZero]

Re : Changer répertoire

Bonjour, Cougar, le Forum,

Remplacer, peut-être, cette ligne :

ChDir "S:\Superviseur\Photos_Risques_Machines"

par celle-ci :

ChDir "S:\Superviseur\"

A bientôt

 

[Cougar]

Re : Changer répertoire

Bonjour à tous,

Après avoir testé, cela ne fonctionne pas.

Merci

 

[DoubleZero]

Re : Changer répertoire

Re-bonjour,

...Après avoir testé, cela ne fonctionne pas...

La réponse de 19h37 a été modifiée à 19h40.

Le test a-t-il tenu compte du changement ?

Sur mon poste, le résultat est correct .

A bientôt

P. S. : Bises, JCGL

 

[JCGL]

Re : Changer répertoire

Bonjour à tous,
Salut 00,

Il est nécessaire de mettre un slash à la fin du chemin comme précisé par Double Zéro.
Il est aussi nécessaire d'avoir des fichiers *.jpg dans le répertoire...

Si cela est, le code fonctionne...

Bises ++ à 00
A+ à tous

 

[Cougar]

Re : Changer répertoire

Bonjour à vous deux,

J'ai bien suivi vos consignes et malgré cela, rien ne fonctionne. Est-ce que cela pourrait être dû au fait que je suis en réseau au bureau ?

Voici le code modifier :
Sub InsèreImageCommentaireCelluleActive()
ChDir "S:\Superviseur\Photos_Risques_Machines\"
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If nf = False Then Exit Sub
With ActiveCell
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture nf
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
End With
End Sub

 

[JCGL]

Re : Changer répertoire

Bonjour à tous,

Mets toi sur le répertoire qui contient les images.
Clique droit sur 'Propriétés'
Onglet 'Sécurité'
Copie le chemin tout en haut
Colle dans le code et ajoute un \

Si c'est un alias le chemin sera converti.

A+ à tous

 

[DoubleZero]

Re : Changer répertoire

Re-bonjour, bonjour, JCGL ,

... rien ne fonctionne...

Je donne ma langue au chat .

Bon courage et à bientôt

 

[Cougar]

Re : Changer répertoire

Bonjour à tous,

Merci pour votre aide mais malheureusement rien ne fonctionne de mon côté.

Merci encore.

 

[JCGL]

Re : Changer répertoire

Bonjour à tous,

Dommage car cela fonctionne chez moi et je ne comprends pas donc je donne, itou, ma langue au chat.



A+ à tous