ouvrire un fichier image sur le disque dur

[creolia]

bonjour je souhaiterais creer un boutont pour ouvrir simplement un fichier images sur mon disque dur est ce que quelqu'un saurais comment faire merci part avance

 

[Guest]

Re : ouvrire un fichier image sur le disque dur

Bonsoir Creolia,

Vas jeter un oeil dans la faq

Ou recherche sur 'Images' sur le forum

Essaie d'adapter quelque chose et reviens si problème.

A+

 

[creolia]

Re : ouvrire un fichier image sur le disque dur

j'ai fais une recherche dans image mais je n'ai rien trouver c'est pour sa que j'ai poster sinon je l'aurais pas fais

mais merci quand meme

 

[Guest]

Re : ouvrire un fichier image sur le disque dur

Re,

Et pourtant j'ai trouvé Ceci d'un de tes propres post, et dans lequel tu as un début de réponse. Au moins pour chercher un fichier image.

Essaie de partir de là et on verra après.


A+

 

[job75]

Re : ouvrire un fichier image sur le disque dur

Bonsoir creolia, salut Hasco, tous mes voeux pour 2010 🙂

Il me semble qu'on peut ouvrir n'importe quel fichier par cette méthode :

Sub OuvreFichier()
SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
ThisWorkbook.FollowHyperlink "[COLOR="Red"]C:\Documents and Settings\Mes documents\Mes images\Fichier1.jpg[/COLOR]"
End Sub

En rouge le chemin d'accès du fichier, à adapter bien sûr.

A+

 

[creolia]

Re : ouvrire un fichier image sur le disque dur

Merci job75 pour ta reponse et meilleur voeux 2010 a toi

le code que tu ma donner permet d'ouvrir un fichier specifiique mais je recherche quelque chose qui me permet de choisir dans un dossier un fichier image different selon les besoins mais merci pour la piste je buche dessus si quelqu'un autre a une idée je suis preneur

 

[creolia]

Re : ouvrire un fichier image sur le disque dur

merci job75 ton code ma bien aider sa a resolu mon probleme que j'ai adapter merci a toi aussi hasco mais sur mon poste il etait pas adapter pour mon probleme actuel



ton code que j'ai juste adapter:

Sub OuvreFichier()
SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
ThisWorkbook.FollowHyperlink "C:\Documents and Settings\Mes documents\Mes images\"
End Sub

pour avoir le choix entre different fichier d'un repertoire il suffisais enlever le fichier.jpeg et cela permet d'avoir le choix entre plusieur image different


merci à vous deux et bon dimanche

 

[job75]

Re : ouvrire un fichier image sur le disque dur

Re creolia,

Perso creolia je n'utiliserais pas votre "adaptation" car elle ne permet pas de savoir quel est le fichier choisi, et donc éventuellement d'en choisir un autre.

Voici par exemple :

Sub OuvreFichier()
Dim fichier
ChDir "[COLOR="Red"]C:\Documents and Settings\Mes documents\Mes images[/COLOR]"
1 fichier = Application.GetOpenFilename
If fichier = False Then Exit Sub
If Right(fichier, 3) <> "jpg" Then GoTo 1 'ou autre extension
SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
ThisWorkbook.FollowHyperlink fichier
End Sub

Toujours en rouge, le chemin d'accès à adapter.

A+