Pb avec getOpenFilename vba
Résolu
niny@
Messages postés
107
Statut
Membre
-
niny@ Messages postés 107 Statut Membre -
niny@ Messages postés 107 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
A voir également:
- Pb avec getOpenFilename vba
- Excel compter cellule couleur sans vba - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
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 ?
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 ?
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
;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
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
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
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 !!!