Discussion :

[ptitdal]

Bonjour,

Je suis tout nouveau et je ne sais pas si je suis au bon endroit.

Pour avoir fait une semaine de recherche sur le sujet et pour n'avoir rien trouvé j'ai une petite question.
Je suis un débutant dans le codage VBA et autres codages d'ailleurs.

J'ai un userform avec une interface que j'ai créée, l'un de mes boutons doit servir à ajouter un fichier quelconque (word, pdf, image, text etc ....) dans une cellule Excel. Pour se faire on ajoute normalement un "objet", onglet insertion sur Excel.

Ma question est, existe-t-il-il un code VBA pour ouvrir cette fenêtre et ajouter le fichier de la même manière avec l'icone sur une cellule ? Ou un code VBA qui me permettrait d'ajouter un fichier quelconque dans une cellule et de faire la mise en page en même temps ?


j'ai regardé pas mal de sujet pour ajouter un fichier en particulier mais moi je doit pouvoir choisir le fichier que je veux ajouter.

Merci de votre aide.



EDIT : En continuant à chercher j'ai trouvé ça ==> Application.Dialogs(xlDialogInsertObject).Show en utiliser sur mon bouton et cela ouvre bien ma boite de dialogue pour ajouter l'objet que je veux

Par contre j'aimerais faire une mise en page automatique, c'est à dire que l'icone doit être de la bonne taille et lié dans une cellule.
Donc j'aimerais que les fichiers ajoutés correspondent à la ligne qui vient d'être ajouté par une textbox et que l'icone soit lié à une cellule et d'une certaine taille. Tout ca de façon automatique.

[Menhir]

Pour choisir un fichier :
https://msdn.microsoft.com/fr-fr/VBA...e-method-excel

Pour insérer un objet :
https://msdn.microsoft.com/fr-fr/lib.../ff197177.aspx
https://msdn.microsoft.com/fr-fr/VBA...s-object-excel
https://msdn.microsoft.com/fr-fr/VBA...d-method-excel
https://msdn.microsoft.com/fr-fr/VBA...t-object-excel

Tu peux aussi voir du côté de la propriété Dialog avec comme paramètre xlDialogInsert ou xlDialogInsertObject.
https://msdn.microsoft.com/fr-fr/VBA...property-excel
https://msdn.microsoft.com/fr-fr/VBA...s-object-excel
https://msdn.microsoft.com/fr-fr/VBA...meration-excel

Par contre j'aimerais faire une mise en page automatique, c'est à dire que l'icone doit être de la bonne taille et lié dans une cellule.

Pour la taille et la position, voir les propriétés de OLEObject dans les lien ci-dessus.
Pour ce qui est de le "lié" à une cellule, ce n'est pas possible. C'est comme pour une image : on peut seulement placer l'objet "sur" la cellule vidée mais pas l'intégrer "dedans".

[ptitdal]

Pour choisir un fichier :
https://msdn.microsoft.com/fr-fr/VBA...e-method-excel

Pour insérer un objet :
https://msdn.microsoft.com/fr-fr/lib.../ff197177.aspx
https://msdn.microsoft.com/fr-fr/VBA...s-object-excel
https://msdn.microsoft.com/fr-fr/VBA...d-method-excel
https://msdn.microsoft.com/fr-fr/VBA...t-object-excel

Tu peux aussi voir du côté de la propriété Dialog avec comme paramètre xlDialogInsert ou xlDialogInsertObject.
https://msdn.microsoft.com/fr-fr/VBA...property-excel
https://msdn.microsoft.com/fr-fr/VBA...s-object-excel
https://msdn.microsoft.com/fr-fr/VBA...meration-excel


Pour la taille et la position, voir les propriétés de OLEObject dans les lien ci-dessus.
Pour ce qui est de le "lié" à une cellule, ce n'est pas possible. C'est comme pour une image : on peut seulement placer l'objet "sur" la cellule vidée mais pas l'intégrer "dedans".

Je ne suis pas d'accord, quand je fait clic droit propriété de l'objet sur l'icone du fichier, je peux faire "déplacer et dimensionner avec les cellules", en tout cela suffis pour ce que j'ai à en faire.

Merci pour la réponse, je regarde cela dès lundi !

[Qwazerty]

Salut

Pense aussi à l'enregistreur de macro qui pourra te donner une base de code pour travailler.

++
Qwaz

[unparia]

Bonjour
Je ne suis pas certain d'avoir parfaitement "cerné" ton besoin.
S'agirait-il en fait d' "ouvrir" l'objet inséré ? -->> si oui, utiliser sa méthode Verb (rubrique OLEObject.Verb, méthode de ton aide interne VBA).

[ptitdal]

Salut

Pense aussi à l'enregistreur de macro qui pourra te donner une base de code pour travailler.

++
Qwaz

Déjà essayé, j'suis un noob mais j'ai un peu cherché avant

Bonjour
Je ne suis pas certain d'avoir parfaitement "cerné" ton besoin.
S'agirait-il en fait d' "ouvrir" l'objet inséré ? -->> si oui, utiliser sa méthode Verb (rubrique OLEObject.Verb, méthode de ton aide interne VBA).

Oui c'est ca l'idée, de mettre un fichier avec une extension quelconque, avoir un icône pour l'ouvrir dans ma feuille excel, mais je ne sais pas comment faire la mise en page automatiquement en cliquant sur le bouton.
En sachant que le code "Application.Dialogs(xlDialogInsertObject).Show" fonctionne pour ouvrir la boite de dialogue pour l'ajout d'objet, il me manque un truc pour faire la mise en page quand j'ajoute le l'icone
Par contre je précise une nouvelle fois que je suis pas un exper, je ne fait pas de codage informatique et je me débrouille tout seul pour le coup! Ca veut dire que j'ai rien compris à ce que tu m'as dis