Code VBA pour ouvrir la fenêtre "Objet" dans l'onglet insertion

Version imprimable

22/06/2018, 16h24
ptitdal

Code VBA pour ouvrir la fenêtre "Objet" dans l'onglet insertion

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.
22/06/2018, 17h33
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

Citation:

Envoyé par ptitdal

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".
22/06/2018, 18h13
ptitdal

Citation:

Envoyé par 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

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 !
23/06/2018, 07h38
Qwazerty

Salut

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

++
Qwaz
23/06/2018, 07h47
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).
25/06/2018, 09h29
ptitdal

Citation:

Envoyé par Qwazerty

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 :)

Citation:

Envoyé par 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).

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 :mrgreen:
25/06/2018, 10h06
Menhir

Citation:

Envoyé par ptitdal

il me manque un truc pour faire la mise en page quand j'ajoute le l'icone

Un des liens que je t'ai transmis donne la liste des propriétés d'un objet inséré.
Voir en particulier les propriétés Top et Left.
https://msdn.microsoft.com/fr-fr/VBA...t-object-excel
25/06/2018, 11h51
ptitdal

Citation:

Envoyé par Menhir

Un des liens que je t'ai transmis donne la liste des propriétés d'un objet inséré.
Voir en particulier les propriétés Top et Left.
https://msdn.microsoft.com/fr-fr/VBA...t-object-excel

Super, avec les enregistrement de macros et ce que j'ai compris sur les liens que tu m'as donné j'ai pu faire ce que je voulais, enfin presque :)
Il me manque une petite chose, comment connaitre le numéro de l'objet que j'ajoute à chaque fois ? Est-ce que je dois créer un petit compteur en interne de mon programme pour lui affecter une variable de type integer et nommer le numéro de mon objet comme la variable ?

Ou y a t il un moyen de selectionner l'objet que l'on vient d'ajouter directement ?

Le but de cette demande est de lier l'objet que j'ajoute en dernier à la cellule à laquelle je l'affecte.

Pour être claire, j'ajoute un objet via une interface graphique créée sur VBA, quand je clique sur le bouton, ça m'ouvre la page d'ajout d'objet, ensuite ca fait la mise en page avec la taille de l'icone et la hauteur de la ligne et il me manque juste ca :)
25/06/2018, 12h45
Qwazerty

Salut

Il sera plus facile de te répondre si tu fournis le code que tu utilises, en fonctions des solutions que tu as choisi, il y a souvent une collection qui englobe les objets placé sur une feuille. Cette collection à très souvent une propriété count qui permet de retourner le nombre d'objets qu'elle contient.

PS: Ne le prend pas mal pour l'enregistreur, beaucoup de gens ne s'en servent pas (voir même ne connaissent pas son existence) et pourtant personnellement je trouve que c'est un gain de temps pour trouver les écritures pour une fonction ou mode opératoire donné.

++
Qwaz
25/06/2018, 12h48
Menhir

Dialog est une propriété bien pratique qui fait beaucoup de chose en peu de code et peu d'efforts.
Le problème, c'est qu'elle ne permet pas de contrôler ce qui se produit.

C'est la raison pour laquelle je t'ai conseillé d'utiliser OLEObjects.Add pour insérer un objet.
Avec cette méthode tu peux mettre le résultat dans une variable de type Objetct et avec une référence facilement accessible aux traitements ultérieurs.

Citation:

Envoyé par Menhir

Dialog est une propriété bien pratique qui fait beaucoup de chose en peu de code et peu d'efforts.
Le problème, c'est qu'elle ne permet pas de contrôler ce qui se produit.

C'est la raison pour laquelle je t'ai conseillé d'utiliser OLEObjects.Add pour insérer un objet.
Avec cette méthode tu peux mettre le résultat dans une variable de type Objetct et avec une référence facilement accessible aux traitements ultérieurs.

Je n'ai pas réussi à utiliser ce que tu m'a proposé, je débute dans tout ça depuis seulement une semaine, mais au final ca revient au même que de créer une variable et contrôler le numéro de de l'objet que je veux définir.

Pour l'instant mon code ressemble à ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
'***************************************************************
'Ajouter un fichier externe dans le fichier excel + mise en page
'***************************************************************
 
Private Sub CommandButton2_Click()
 
 
Range("c65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 1).Select
ActiveCell.RowHeight = 100.5
 
 
 
Application.Dialogs(xlDialogInsertObject).Show 'ouverture de la boite de dialogue pour ajouter un fichier
 
 
'------------------------------------------------------
'dimmensionnement de l'objet ajouté (macro enregistrée)
'------------------------------------------------------
 
   ' ActiveSheet.Shapes("Object 19+x").ScaleWidth 0.4563655031, msoFalse, _
        msoScaleFromBottomRight
   ' ActiveSheet.Shapes("Object 19+x").ScaleHeight 0.4563656014, msoFalse, _
        msoScaleFromBottomRight
   ' ActiveSheet.Shapes("Object 19+x").IncrementLeft -792
    'ActiveSheet.Shapes("Object 19+x").IncrementTop -154.5
    'ActiveSheet.Shapes("Object 19+x").ScaleWidth 0.093742298, msoFalse, _
        msoScaleFromBottomRight
    'ActiveSheet.Shapes("Object 19+x").ScaleHeight 0.0937422727, msoFalse, _
        msoScaleFromBottomRight
    'ActiveSheet.Shapes("Object 19+x").ScaleHeight 5.25, msoFalse, _
        msoScaleFromBottomRight
    'ActiveSheet.Shapes("Object 19+x").ScaleWidth 1.1759483688, msoFalse, _
        msoScaleFromBottomRight
    'ActiveSheet.Shapes("Object 19+x").IncrementLeft -536.25
    'ActiveSheet.Shapes("Object 19+x").IncrementTop -36.75
 
 
'--------------------------------------------------------------
'déplacement et dimmensionnement avec la cellule selectionnée
'--------------------------------------------------------------
 
 ActiveSheet.Shapes.Range(Array("Object z")).Select
    With Selection
        .Placement = xlMoveAndSize
        .PrintObject = True
    End With
 
 
End Sub

Ca fonctionne sauf que mon numéro d'objet noté "z" en bas doit s'incrémenter de 1 à chaque ajout

25/06/2018, 13h41
Menhir

Citation:

Envoyé par ptitdal

mais au final ca revient au même que de créer une variable et contrôler le numéro de de l'objet que je veux définir.

Si tu l'dis...

Perso, je pense que tu auras de grosse difficultés à obtenir la référence de l'objet implanté avec Dialog.
Mais il est possible que ce soit moi qui me trompe. L'avenir le dira.
25/06/2018, 13h55
ptitdal

Citation:

Envoyé par Menhir

Si tu l'dis...

Perso, je pense que tu auras de grosse difficultés à obtenir la référence de l'objet implanté avec Dialog.
Mais il est possible que ce soit moi qui me trompe. L'avenir le dira.

C'est qu'une supposition de ma part :)

Du coup la syntaxe pour OLEobject ca serait quoi ?
J'arrive au même résultat ?
25/06/2018, 14h09
Menhir

Citation:

Envoyé par ptitdal

Du coup la syntaxe pour OLEobject ca serait quoi ?

Lis les liens que j'ai fourni.

Citation:

Envoyé par Menhir

Lis les liens que j'ai fourni.

Si je redemande c'est que je n'ai pas compris ce qu'il ya d'écrit sur tes lien, moi je suis Electrotechnicien pas informaticien, pour moi ca veut rien dire tout ca ^^

J'ai trouvé un truc qui ressemble assez à ce que je veux faire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Dim Obj As OLEObject Dim Chemin As Variant Dim T As String Chemin = Application.GetOpenFilename(Title:="Parcourir") If Chemin = False Then Exit Sub Application.ScreenUpdating = False With ActiveSheet On Error Resume Next .Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31) Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=True, DisplayAsIcon:=True) End With Application.ScreenUpdating = True
Sauf que l'icone que Excel m'affiche est un icone très grand et blanc (sans l'image du type de fichier)
Entre autre, j'avais le même bug quand j'utilisais la fenetr d'insertion d'objet mais que quand je liais le fichier à l'icone. j'ai essayé de mettre link = false dans ce code ci mais ca ne change rien.

25/06/2018, 15h08
Menhir

Supprime le On Error Resume Next et regarde ce que contient la variable.

Citation:

moi je suis Electrotechnicien pas informaticien

Moi non plus je ne suis pas informaticien, comme la grande majorité de ceux qui utilisent VBA.

Citation:

Envoyé par Menhir

Supprime le On Error Resume Next et regarde ce que contient la variable.

Moi non plus je ne suis pas informaticien, comme la grande majorité de ceux qui utilisent VBA.

Ca me met une erreur et du coup ca fait rien

la ligne

Code:

.Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31)

est en jaune

avec ca ca marche mais j'ai toujours mon icone qui est grand et sans l'image de l'icone
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim Obj As OLEObject Dim Chemin As Variant Dim T As String Chemin = Application.GetOpenFilename(Title:="Parcourir") If Chemin = False Then Exit Sub Application.ScreenUpdating = False With ActiveSheet.Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31) Set Obj = ActiveSheet.OLEObjects.Add(Filename:=Chemin, Link:=False, DisplayAsIcon:=True) End With Application.ScreenUpdating = True
Et je regarde comment en fait ce que contient la variable ?

EDIT

En enregistrant une macro, j'ai remarqué que quand je redimensionnait à la main l'objet ajouté avec la commande OLEOjbect, ce n'était pas le même nom qu'avec la fenetre d'insertion d'objet
Dans le code j'ai pris l'objet insérer avec le code copié précédemment et j'ai obtenu ca
Code:

1 2 3 ActiveSheet.Shapes("AutoShape 9").IncrementLeft -288.75 ActiveSheet.Shapes("AutoShape 9").IncrementTop -46.5
Pour l'autre objet j'ai obtenu ca
Code:

1 2 ActiveSheet.Shapes("Object 3").IncrementLeft -6 ActiveSheet.Shapes("Object 3").IncrementTop -1.5
Le nom entre parenthèse n'est pas le même, Est-ce une piste à mon problème d'icone ?

25/06/2018, 17h39
Menhir

Citation:

Envoyé par ptitdal

Et je regarde comment en fait ce que contient la variable ?

Il y a plusieurs méthode.
La plus simple est d'aller regarder dans la fenêtre de variables locales lorsque se produit le bug (ne pas cliquer sur "Terminer").

Le mieux est de mettre un point d'arrêt dans le code sur la ligne qui précède celle qui cause le bug.

Tu peux aussi faire un affichage dans la fenêtre d'exécution en utilisant l'instruction Debug.Print.
Ou utiliser un MsgBox, mais c'est moins bien parce que ça provoque un arrêt à valider.

Il doit y avoir trois ou quatre autres méthode.
25/06/2018, 19h27
Qwazerty

Salut

Tu as aussi les espions mais dans le cas qui nous intéresse, je pense que ça ne sera pas nécessaire, je pense qu'il faut juste que tu regardes dans l'aide VBA l'utilisation de With

Code:

With ActiveSheet.Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31)

Comme quoi ne mettre qu'un bout de la ligne qui provoque l'erreur n'est pas une bonne idée

Il faut aussi regarder ce instrRev, parce que rechercher une chaine vide "" dans un texte, je ne suis pas sûr que ça fasse exactement ce que tu attends.

Peux tu fournir un fichier Démo stp?

++
Qwaz
26/06/2018, 08h30
ptitdal

1 pièce(s) jointe(s)

Citation:

Envoyé par Qwazerty

Salut

Tu as aussi les espions mais dans le cas qui nous intéresse, je pense que ça ne sera pas nécessaire, je pense qu'il faut juste que tu regardes dans l'aide VBA l'utilisation de With

Code:

With ActiveSheet.Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31)

Comme quoi ne mettre qu'un bout de la ligne qui provoque l'erreur n'est pas une bonne idée

Il faut aussi regarder ce instrRev, parce que rechercher une chaine vide "" dans un texte, je ne suis pas sûr que ça fasse exactement ce que tu attends.

Peux tu fournir un fichier Démo stp?

++
Qwaz

Très honnêtement je ne fait que reprendre des bouts de code que je trouve sur internet et que j'adapte à ma sauce pour faire ce que je veux. Bon c'est pas très catholique mais ca fonctionne plutôt bien, je bloque juste sur ce problème de mise en page de l'icone et d'ajout de fichier (en forme d'icone donc). Je vous transfert mon fameux fichier (en demo du coup sinon c'est trop lourd) pour que vous regardiez un peu.

EDIT :

Je pense avoir un peu compris d'où vient le problème, le soucis c'est que je ne dit pas à mon code quel icone prendre, du coup il n'en met pas et il ne peut pas faire la mise en page de mon fichier ajouté correctement, d'où le grand carré blanc. Il faudrait une variable qui sélectionne l'icone voulu en fonction du type de fichier. je ne sais pas si c'est possible mais ca me semble compliqué... Sinon je peux donner qu'un seul icone pour tous les fichiers que j'ajoute mais c'est pas très jolie.
26/06/2018, 09h34
Menhir

Citation:

Envoyé par ptitdal

Je vous transfert mon fameux fichier (en demo du coup sinon c'est trop lourd) pour que vous regardiez un peu.

Quant à toi, tu devrais lire les règles du forum : https://www.developpez.net/forums/d8...s-discussions/

Citation:

Je pense avoir un peu compris d'où vient le problème, le soucis c'est que je ne dit pas à mon code quel icone prendre, du coup il n'en met pas et il ne peut pas faire la mise en page de mon fichier ajouté correctement, d'où le grand carré blanc. Il faudrait une variable qui sélectionne l'icone voulu en fonction du type de fichier. je ne sais pas si c'est possible mais ca me semble compliqué... Sinon je peux donner qu'un seul icone pour tous les fichiers que j'ajoute mais c'est pas très jolie.

Il est peu probable que le problème vienne de là puisque Excel (comme la plupart des logiciels important des objets) sait associer un type de fichier à une icone.
26/06/2018, 09h57
ptitdal

Citation:

Envoyé par Menhir

Quant à toi, tu devrais lire les règles du forum : https://www.developpez.net/forums/d8...s-discussions/

Il est peu probable que le problème vienne de là puisque Excel (comme la plupart des logiciels important des objets) sait associer un type de fichier à une icone.

Je cherche de l'aide, pas quelqu'un qui envoies des liens que j'ai déjà lu avant et qui rabâche des règles de forum ... Désolé d'être un peu cru mais jusqu'ici tous tes postes m'ont été inutiles et j'en suis toujours au même point. Donc à part être désobligeant, tu devrais prendre en considération que les gens qui viennent poster n'ont pas tous un niveau hors du commun en VBA et en codage en général. Entre autre, j'ai expliqué que je connaissais visual basic depuis une semaine et que c'est un outil formidable je trouve, et je ne demande qu'à apprendre mais ce que tu m'a déjà envoyé et je le répète, ne me sert à rien puisque je ne comprends pas ce qui est écrit, c'est du charabia pour moi... J'ai cherché avant de poster un message sur un forum, je ne suis pas du genre à laisser facilement tomber.
Pour infos, si tu lisais les commentaires c'est quelqu'un d'autre qui m'a demandé de poster une demo de mon fichier...

Donc j'en reste au même point, j'ajoute un fichier et m'on icone ne s'affiche pas, en tout cas pas avec l'image du type de fichier correspondant, il s'affiche en très grand et en blanc, je sèche :?
Et Effectivement lorsque je spécifie un icone dans le code, cela ne change rien.

EDIT:

D'après ce que je comprends, ma commande ajoute une forme et non un icone de fichier. En gros une forme et non un objet comme la fenêtre de dialog d'ajout d'objet. Du coup je n'ai pas de piste ...
26/06/2018, 12h32
Menhir

Citation:

Envoyé par ptitdal

Je cherche de l'aide, pas quelqu'un qui envoies des liens que j'ai déjà lu avant et qui rabâche des règles de forum ... Désolé d'être un peu cru mais jusqu'ici tous tes postes m'ont été inutiles et j'en suis toujours au même point.

Dans ce cas, je ne t'importunerai pas plus longtemps.
Bonne chance pour la suite.
26/06/2018, 19h11
Qwazerty
Salut

D'après ce que je vois dans le fichier, on travaille dans la même entreprise ^^, je suis en GdP à l'antenne de Bayet dans l'Allier.

J'ai commencé à modifier un peu ton fichier, une question, plutôt qu'un lien OLE, est-ce qu'un lien hypertext vers le fichier sur le serveur ne serait pas suffisant ?
Il y aurait plusieurs avantages:
- C'est plus simple à mettre en oeuvre
- C'est beaucoup plus simple de le rechercher dans le document
- C'est beaucoup beaucoup plus simple de modifier la ligne par la suite via un formulaire (j'ai vu que tu prévoyais une fonction de recherche et je présume donc de modification)
en attente de ton retour

++
Qwaz
26/06/2018, 19h30
ptitdal
Citation:
Envoyé par Qwazerty

Salut

D'après ce que je vois dans le fichier, on travaille dans la même entreprise ^^, je suis en GdP à l'antenne de Bayet dans l'Allier.

J'ai commencé à modifier un peu ton fichier, une question, plutôt qu'un lien OLE, est-ce qu'un lien hypertext vers le fichier sur le serveur ne serait pas suffisant ?
Il y aurait plusieurs avantages:

C'est plus simple à mettre en oeuvre
C'est beaucoup plus simple de le rechercher dans le document
C'est beaucoup beaucoup plus simple de modifier la ligne par la suite via un formulaire (j'ai vu que tu prévoyais une fonction de recherche et je présume donc de modification)

en attente de ton retour

++
Qwaz
Ha la monde est petit ! Je suis au PMSASI de Nancy, auparavant en EMASI à Creney :) J'ai fait une DIFL avec des collègues EMASIEN à toi il y a longtemps à Saint Eloi :) TERA donc ?

Pour le coup un icone serait parfait, ma fonction de recherche se basera sur la ligne avec une description et un probleme plus le fichier en question à côté mais je me suis pas encore penché sur cette partie pour le moment.
J'ai eu un réponse d'un autre forum qui me propose un code qui à l'air bien l'ennuie c'est que le code ne selectionne pas la cellule que je veux, j'attends une réponse aussi.
26/06/2018, 23h53
Qwazerty

1 pièce(s) jointe(s)

Salut

Voila une proposition, par contre je n'ai pas du tout géré la partie avec les OLE... je sais que ton problème est la mais il est trop tard ;)
Du cout ça doit faire un peu n'importe quoi, autant ne pas utiliser cette partie sans la modifier d'abord.

Le reste à un peu changé :), pour les couleurs ce n'est pas volontaire mais ton fichier une fois modifié n'a plus voulu s'enregistrer, il a fallu transférer tous les composants (il ne voulait plus du UserForm, c'est lui qui faisait tout bugger) et le code et la feuille vers un nouveau fichier.

Je n'ai pas fait beaucoup de tests il y a peut-être (surement) du bugg ou des incohérence qui traine sur les activations désactivation de bouton ou autre.

++
Qwaz

Citation:

Envoyé par Qwazerty

Salut

Voila une proposition, par contre je n'ai pas du tout géré la partie avec les OLE... je sais que ton problème est la mais il est trop tard ;)
Du cout ça doit faire un peu n'importe quoi, autant ne pas utiliser cette partie sans la modifier d'abord.

Le reste à un peu changé :), pour les couleurs ce n'est pas volontaire mais ton fichier une fois modifié n'a plus voulu s'enregistrer, il a fallu transférer tous les composants (il ne voulait plus du UserForm, c'est lui qui faisait tout bugger) et le code et la feuille vers un nouveau fichier.

Je n'ai pas fait beaucoup de tests il y a peut-être (surement) du bugg ou des incohérence qui traine sur les activations désactivation de bouton ou autre.

++
Qwaz

En fait j'ai quasiment réussi, je voudrais juste savoir si ma variable i peut être utilisé comme numéro d'objet, qui du coup s'incrémente à chaque fois que j'ajoute un objet ?
J'ai déjà tout fait mais VBA me sort une erreur sur la ligne de sélection d'objet pour que je puisse refaire des sendkeys pour la mise en page automatique.

Ci joint le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Private Sub CommandButton2_Click() Range("c65536").Select Selection.End(xlUp).Select ActiveCell.Offset(0, 1).Select SendKeys ("^{TAB}") SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys (" ") SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys ("~") Application.Dialogs(xlDialogInsertObject).Show Dim i As Integer i = ActiveSheet.Range("H1").Value + 1 ActiveSheet.Range("H1").Value = i ActiveSheet.Shapes.Range(Array("Object i")).Select End Sub
En gros Est-ce qu'il y a une syntaxe possible pour remplacer le numéro d'objet par ma variable i ? Parce que là ca ne fonctionne pas comme ca et c'est le seul moyen que j'ai trouvé pour que ca m'affiche correctement l'icone et de la bonne taille ...

28/06/2018, 07h02
Qwazerty

1 pièce(s) jointe(s)

Salut

Il faut modifier la propriété Name de ton OLE.

Code:

feuil1.Shapes(1).Name = "FichierOLE_" & i

Pour info, le Shape et l'OLEObject sont les deux face d'une même pièce, si tu modifie le nom de l'un où l'autre les "deux" sont affectes. L'OLEObject est au Shape ce que le carré est au rectangle (un rectangle particulier).
Par contre certaines propriété ne sont accessible que par l'une ou l'autre des écritures, pour passer de l'une à l'autre, il y a un pont entre les deux.

Code:

FEuil1.Shapes(1).DrawingObject

pointe vers la version OLEObject

Code:

Feuil1.OLEObjects(1).ShapeRange

pointe vers la version Shape

Le texte (chemin du fichier) contenu dans l'OLE (en dessous de l'icone) n'est modifiable qu'en passant par un code "horriblement salle" et potentiellement cause de gros soucis (avec des sendkeys, je suppose que c'est ce que tu cherches, je te le déconseille fortement).

Au cas où je te met la version modifiée, ça gère le placement des OLE et leur renommage pour être reconnu par la suite...
A tester, j'ai activé tardivement le Option Explicit en début de code , tu risques d'avoir des variables non définie.
La modification des lignes ne fonctionnera (au niveau des OLE) que lorsque tu auras créé de nouvelles lignes (il faut que leur nom soit formaté correctement).

++
Qwaz
28/06/2018, 08h50
ptitdal

Citation:

Envoyé par Qwazerty

Salut

Il faut modifier la propriété Name de ton OLE.

Code:

feuil1.Shapes(1).Name = "FichierOLE_" & i

Pour info, le Shape et l'OLEObject sont les deux face d'une même pièce, si tu modifie le nom de l'un où l'autre les "deux" sont affectes. L'OLEObject est au Shape ce que le carré est au rectangle (un rectangle particulier).
Par contre certaines propriété ne sont accessible que par l'une ou l'autre des écritures, pour passer de l'une à l'autre, il y a un pont entre les deux.

Code:

FEuil1.Shapes(1).DrawingObject

pointe vers la version OLEObject

Code:

Feuil1.OLEObjects(1).ShapeRange

pointe vers la version Shape

Le texte (chemin du fichier) contenu dans l'OLE (en dessous de l'icone) n'est modifiable qu'en passant par un code "horriblement salle" et potentiellement cause de gros soucis (avec des sendkeys, je suppose que c'est ce que tu cherches, je te le déconseille fortement).

Au cas où je te met la version modifiée, ça gère le placement des OLE et leur renommage pour être reconnu par la suite...
A tester, j'ai activé tardivement le Option Explicit en début de code , tu risques d'avoir des variables non définie.
La modification des lignes ne fonctionnera (au niveau des OLE) que lorsque tu auras créé de nouvelles lignes (il faut que leur nom soit formaté correctement).

++
Qwaz

En fait oui les sendkeys c'est pour selectionner automatiquement des fonctions qui sont dans la boite de dialog d'ajout d'objet, ca fonctionne plutôt bien sauf que je me retrouve avec un soucis pour faire la mise en page automatiquement, c'ets que je ne sais pas sélectionner l'objet que je viens d'ajouter. Même avec un raccourcis clavier ou quoi je n'y arrive pas. Donc je coince.
J'ai essayé pas mal de chose mais bon je connais VBA depuis une semaine ^^
Ducoup mes 2 denrière lignes sont pour créer une variable qui pourrait remplacer le numéro de l'objet que j'ai ajouté en dernier, sauf que là encore, quand je veux mettre cette variable ca ne fonctionne pas.

Je regarde ton code et je cherche si uqelques chose me plait (si j'arrive à comprendre quelques chose Mdr) en tout cas merci !

EDIT :

J'ai testé un peu, et ton code me refait le même soucis qu'au départ, c'est a dire que je n'ai pas d'icone qui apparait, juste un grand rectangle blanc (le lien vers le fichier fonctionne mais on ne le voit pas)
Du coup je ne sais vraiment pas quoi faire ^^ Je rame !
28/06/2018, 15h03
Qwazerty

1 pièce(s) jointe(s)

Salut

En effet... j'ai fait plusieurs essais et il apparaitrait qu'il faille utiliser les noms de paramètre pour que ça fonctionne....... je dois mettre un mauvais paramètre quelque part mais impossible de trouver.
Tu trouveras le fichier en PJ, les objets OLE apparaissent avec une icone et le nom du fichier.
Il reste un problème, il faut faire une petite routine pour ajouter des mise à la ligne dans le nom du fichier pour avoir un icone plus proche de la forme carré

++
Qwaz

Citation:

Envoyé par Qwazerty

Salut

En effet... j'ai fait plusieurs essais et il apparaitrait qu'il faille utiliser les noms de paramètre pour que ça fonctionne....... je dois mettre un mauvais paramètre quelque part mais impossible de trouver.
Tu trouveras le fichier en PJ, les objets OLE apparaissent avec une icone et le nom du fichier.
Il reste un problème, il faut faire une petite routine pour ajouter des mise à la ligne dans le nom du fichier pour avoir un icone plus proche de la forme carré

++
Qwaz

Hello, j'ai finalement réussi avec l'aide d'un monsieur bien sympathique d'un autre forum. Pour le grossier personnage de Menhir, tu avais tord ! on peut bien contrôler ce qui ressort de la fenêtre de dialogue que j'ai utilisé et on peut le faire avec un compteur comme je l'avais signalé... On dirait bien que le temps m'a donné raison là dessus ! Je te remercie pas pour ton aide...

Merci à Qwazerty pour ta patience et tes explications, pas simple le codage quand on en a jamais fais :)
je joins mon code pour un ajout de 5 fichiers sous forme d'icone par ligne (5 fichiers ca me semble assez, mais la limite peut être augmenté comme on le souhaite) et un message d'erreur si un ajout supérieur est tenté. Ca fonctionne chez moi.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 Private Sub CommandButton2_Click() Dim Chemin As Variant Dim i As Integer Dim shp As Shape Dim cpt As Integer cpt = Range("G1").Value Range("c65536").Select Selection.End(xlUp).Select ActiveCell.Offset(0, cpt).Select If ActiveCell.Offset(-1, cpt).Value = "" Then DoEvents 'on effectue l'ajout que si la cellule "solution" du dessous est vide If cpt > 5 Then Range("G1").Value = 1 MsgBox " Limite d'ajout de fichiers par problème dépassée !", 64, "Erreur" Exit Sub End If If cpt <= 5 Then i = ActiveSheet.Shapes.Count Range("c65536").Select Selection.End(xlUp).Select ActiveCell.Offset(0, cpt).Select SendKeys ("^{TAB}") 'Sert à sélectionner les coches et afficher la boite parcourir tout de suite sans que l'opérateur n'ait à le faire SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys (" ") SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys ("{TAB}") SendKeys ("~") Application.Wait (Now + TimeValue("0:00:02")) 'temps d'attente pour réactiver le pavé numérique suite à la désactivation intempestive SendKeys "{NUMLOCK}" Chemin = Application.Dialogs(xlDialogInsertObject).Show 'affichage de la boite de dialogue d'ajout d'objet If Chemin = False Then Exit Sub Application.ScreenUpdating = False Set shp = ActiveSheet.Shapes(i) shp.Select 'Déplacement avec la cellule de l'objet ajouté en dernier With Selection .Placement = xlMoveAndSize .PrintObject = True End With Range("G1").Value = Range("G1").Value + 1 Application.ScreenUpdating = True End If End Sub

02/07/2018, 10h39
Menhir

Citation:

Envoyé par ptitdal

Pour le grossier personnage de Menhir, tu avais tord ! on peut bien contrôler ce qui ressort de la fenêtre de dialogue que j'ai utilisé et on peut le faire avec un compteur comme je l'avais signalé... On dirait bien que le temps m'a donné raison là dessus ! Je te remercie pas pour ton aide...

Et pour opérer des amygdales, on peut passer par l'anus mais ce n'est pas la méthode le plus efficace. :mouarf:
Bravo pour avoir réussi à faire en une cinquantaine de lignes se qui pouvait se faire en 3 lignes. :bravo:
La série de SendKey, c'est grandiose. :ptdr:
02/07/2018, 11h01
ptitdal

Citation:

Envoyé par Menhir

Et pour opérer des amygdales, on peut passer par l'anus mais ce n'est pas la méthode le plus efficace. :mouarf:
Bravo pour avoir réussi à faire en une cinquantaine de lignes se qui pouvait se faire en 3 lignes. :bravo:
La série de SendKey, c'est grandiose. :ptdr:

Bah je le répète, je fais du VBA depuis une semaine à peine et j'ai quand même réussi, mais je te félicite pas pour les conseils et les remarques pas du tout constructives que tu m'as apportés. C'est peut être sale pour un pro du VBA, mais en tout cas ca fonctionne. Tu regarderas la définition du mot humilité dans le dictionnaire aussi.
Et ma série de sendkeys fonctionne parfaitement bien, l'opérateur aura juste à sélectionner son fichier :)
02/07/2018, 16h07
ptitdal

Citation:

Envoyé par Menhir

Bravo pour avoir réussi à faire en une cinquantaine de lignes se qui pouvait se faire en 3 lignes. :bravo:
:

Je suis curieux de voir tes 3 lignes par contre :) Alors j'attends et j'essaie, si ca marche pas je te lunche :)

Fuseau horaire GMT +2. Il est actuellement 14h12.