Pb avec getOpenFilename vba
Résolu
niny@
Messages postés
109
Date d'inscription
Statut
Membre
-
niny@ Messages postés 109 Date d'inscription Statut Membre -
niny@ Messages postés 109 Date d'inscription Statut Membre -
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
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
5 réponses
-
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 ?-
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 !!!
-
-
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-
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
-
-
-
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 :
https://gilmir.developpez.com/tutoriels-vb6/tutoriel29/
https://codes-sources.commentcamarche.net/
Tu y trouveras des exemple
;o)
polux -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
dsl, je ne sais pas ... essaies le pour voir ...
;o)
polux
