Pb avec getOpenFilename vba
Résolu
niny@
Messages postés
107
Date d'inscription
Statut
Membre
Dernière intervention
-
niny@ Messages postés 107 Date d'inscription Statut Membre Dernière intervention -
niny@ Messages postés 107 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Pb avec getOpenFilename vba
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
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 !!!