Pb avec getOpenFilename vba
Résolu/Fermé
niny@
Messages postés
107
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2008
-
10 avril 2008 à 15:33
niny@ Messages postés 107 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 16 septembre 2008 - 10 avril 2008 à 20:46
niny@ Messages postés 107 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 16 septembre 2008 - 10 avril 2008 à 20:46
A voir également:
- Pb avec getOpenFilename vba
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba dépassement de capacité ✓ - Forum Excel
5 réponses
niny@
Messages postés
107
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2008
10 avril 2008 à 16:52
10 avril 2008 à 16:52
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 ?
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
10 avril 2008 à 17:16
10 avril 2008 à 17:16
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
niny@
Messages postés
107
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2008
10 avril 2008 à 17:23
10 avril 2008 à 17:23
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
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
10 avril 2008 à 17:45
10 avril 2008 à 17:45
Arrêtes tu me fais rouzir là ....
;o)
;o)
niny@
Messages postés
107
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2008
10 avril 2008 à 20:46
10 avril 2008 à 20:46
LOL
@+
;-)
@+
;-)
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
10 avril 2008 à 16:02
10 avril 2008 à 16:02
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
niny@
Messages postés
107
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2008
10 avril 2008 à 16:18
10 avril 2008 à 16:18
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 ?
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 ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
10 avril 2008 à 16:22
10 avril 2008 à 16:22
dsl, je ne sais pas ... essaies le pour voir ...
;o)
polux
;o)
polux
10 avril 2008 à 17:06
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 !!!