High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Pb avec getOpenFilename vba

Dernière réponse le 10 avr 2008 à 20:46:31 niny@, le 10 avr 2008 à 15:33:38 
 Signaler ce message aux modérateurs

Bonjour,

Sur excel, j'ai une interface qui possède un boutonX. l'action sur ce bouton doit pouvoir lancer la fenêtre de recherche de fichier (windows) pour faire une sélection d'un fichier jpg qui va être ensuite copiée, collée et insérer dans un fichier xls autre que celui sur lequel je travaille.

j'avais pensé utiliser "Application.GetOpenFilename" mais j'arrive pas à ouvrir le fichier une fois que je l'ai trouvé dans le dossier voulu.

pouvez vous m'aider sur ce pb ?

merci d'avance

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « pb avec getOpenFilename vba » dans :
VBA Un timer une seconde tout simple VoirEn VBA, il n'y a pas (du moins à ma connaissance) de composant Timer. On peut en créer un très facilement. Dans un module de feuille Activer/ dés activer le timer : Placer un bouton sur Feuil1 et mettre le code... Private Sub...
VBScript - Les fonctions de date et de temps VoirLes fonctions de date et de temps Fonction Description Date Retourne la date du système DateAdd(interval, number, date) Ajoute un intervalle de temps (interval) à une...
Le codage RGB (RVB) VoirLe codage RGB Le codage RGB (Red, green, blue, pour Rouge Vert Bleu, en français RVB), mis au point en 1931 par la Commission Internationale de l'Eclairage (CIE) consiste à représenter l'espace des couleurs à partir de trois rayonnements...
VBScript - Les boîtes de dialogue VoirQu'est-ce qu'une boîte de dialogue? Une boîte de dialogue est une fenêtre qui s'affiche au premier plan suite à un événement, et qui permet : soit d'avertir l'utilisateur ; soit le confronter à un choix ; soit lui demander de compléter un champ...
Posez votre question Répondre

1

Polux31, le 10 avr 2008 à 16:02:19

Kikou toi :o))

Utilises plutôt un CommonDialog ... tu click droit sur la boîte à outils et tu fais contrôles supplémentaires ...
dans la liste qui s'ouvre, tu coches Microsoft Common Dialog Control, version x.x. puis tu cliques sur appliquer. Tu vas voir un nouveau contrôle dans la boîte à outils. Tu le places dans ta Userform (n'importe où, il n'est pas visible).
L'avantage de ce contrôle, c'est que tu le paramètres comme tu veux et donc tu peux ainsi récupérer plus facilement, le chemin d'un fichier par exemple ou tout autre chose. Tu peux définir le type de fichier (*.jpg) que tu veux voir dans la liste, le répertoire par défaut ... etc ... tu dois avoir des exemples dans l'aide en ligne je pense.

Sinon regardes ici :
http://gilmir.developpez.com/tutoriels-vb6/tutoriel29/
http://www.vbfrance.com/code.aspx?ID=32893

Tu y trouveras des exemple

;o)

polux

   
Répondre à Polux31

2

niny@, le 10 avr 2008 à 16:18:28

Salut,

j'ai essayé de mettre le commondialog dans ma boite à outils mais ici apparemment ils n'ont pas la licence suffisante pour que ca puisse être utilisé.

est ce que l'exemple du euxième lien pourrait fonctionner même si la licence est NOK ?

   
Répondre à niny@

3

Polux31, le 10 avr 2008 à 16:22:07

Dsl, je ne sais pas ... essaies le pour voir ...

;o)

polux

   
Répondre à Polux31

4

niny@, le 10 avr 2008 à 16:52:14

Nan, ca marche pas.

j"essaye de voir comment je pourrais m'y prendre parce qu'avec le : application.GetOpenFilename j'arrive bien à récupérer le chemin de la sélection.

peut etre quand remaniant :

ActiveSheet.Pictures.Insert( "chemin").Select
Selection.Copy
Workbooks("nom_classeur").Activate
Sheets("feuille souahitée").Select
ActiveSheet.Paste

peut etre que ca pourrait fonctionner! qu'en penses tu ?

   
Répondre à niny@

5

niny@, le 10 avr 2008 à 17:06:11

C'est bon je copie bien l'image choisit de n'importe quel dossier dans la feuille du classeur que je veux

le code n'a pas beaucoup changé j'ai juste récupéré les variables qui m'interressaient :

Private Sub image_Click()
ImageChoix = Application.GetOpenFilename
MsgBox ImageChoix
ActiveSheet.Pictures.Insert(ImageChoix).Select
Selection.Copy
Workbooks(nom_classeur).Activate
Sheets(nom_feuille).Select
ActiveSheet.Paste

End Sub


encore merci Polux !!!

   
Répondre à niny@

6

Polux31, le 10 avr 2008 à 17:16:14

Je n'ai pas fait grand chose sur ce coup là ... non plus ... juste donné une piste, que tu as su exploitée ... bravo à toi ...

;o)

Polux

   
Répondre à Polux31

7

niny@, le 10 avr 2008 à 17:23:09

Ne crois pas ca, t'es orientations m'aide souvent beaucoup car il m'arrive d'être pas loin de la solution mais il manque toujours un truc... et grâce à toi je trouve plus ou moins quoi. tes connaissances dans le code m'apprennent beaucoup de chose que je ne sais pas!!!!!!!

donc encore un grand Merci

   
Répondre à niny@

8

Polux31, le 10 avr 2008 à 17:45:16

Arrêtes tu me fais rouzir là ....

;o)

   
Répondre à Polux31

9

 niny@, le 10 avr 2008 à 20:46:31

LOL

@+

;-)

   
Répondre à niny@
Posez votre question Répondre
Ils ont besoin de votre aide