Changer répertoire

DoubleZero

XLDnaute Barbatruc

• 3 Décembre 2013

• #2

Re : Changer répertoire

Bonjour, Cougar, le Forum,

Remplacer, peut-être, cette ligne :

Code:

ChDir "S:\Superviseur\Photos_Risques_Machines"

par celle-ci :

Code:

ChDir "S:\Superviseur\"

A bientôt

 

Dernière édition: 3 Décembre 2013

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 3 Décembre 2013

• #3

Re : Changer répertoire

Bonjour à tous,

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

Merci

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 3 Décembre 2013

• #4

Re : Changer répertoire

Re-bonjour,

Cougar à dit:

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

Cliquez pour agrandir...

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

 

Dernière édition: 3 Décembre 2013

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Décembre 2013

• #5

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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 3 Décembre 2013

• #6

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Décembre 2013

• #7

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 3 Décembre 2013

• #8

Re : Changer répertoire

Re-bonjour, bonjour, JCGL ,

Cougar à dit:

... rien ne fonctionne...

Cliquez pour agrandir...

Je donne ma langue au chat .

Bon courage et à bientôt

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 4 Décembre 2013

• #9

Re : Changer répertoire

Bonjour à tous,

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

Merci encore.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Décembre 2013

• #10

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

 

Pièces jointes

• Capture 2.png

  27.2 KB · Affichages: 50
• Capture 2.png

  27.2 KB · Affichages: 51

Vote positif 0 Vote négatif