Discussion :

[Iloyd]

Bonsoir,

(Je n'ai pas le code du VBA sur moi actuellement, je pourrais y avoir accès demain)

J'aurais besoin de votre aide pour finaliser la réalisation d'un petit formulaire pouvant servir à une partie des employés de mon stage. Alors, mon formulaire ce compose de la sorte (encore désolé du manque de ressource apporté, puisque cette modélisation n'est qu'un brouillon) :



J'aimerais que mon interface puisse, quand j'appuie sur le bouton "Joindre...", m'ouvrir le gestionnaire de fichiers et me laisse sélectionner le fichier voulu (comme contrainte : que les fichiers excels). Après avoir choisi mes fichiers et remplis les comboBox's avec les informations voulues, j'aimerais aussi qu'un hyperlien (ou plusieurs s'il y a plusieurs fichiers excel), puisse s'afficher dans la cellule de la ligne associées.

Le tableau (ceci est un exemple) :



Comme je viens de m'initier pour la première fois au langage VBA d'Excel, je ne sais pas comment m'y prendre.
Tout aide sera le bienvenue ! Merci encore !

[Menhir]

m'ouvrir le gestionnaire de fichiers et me laisse sélectionner le fichier voulu (comme contrainte : que les fichiers excels).

Méthode GetOpenFilename
https://docs.microsoft.com/fr-fr/off...etopenfilename

remplis les comboBox's avec les informations voulues,

Pour ce qui concerne les UserForm : http://silkyroad.developpez.com/VBA/UserForm/

j'aimerais aussi qu'un hyperlien (ou plusieurs s'il y a plusieurs fichiers excel), puisse s'afficher dans la cellule de la ligne associées.

Il ne peut pas y avoir plus d'un lien hypertexte dans une cellule.
Pour le liens hypertexte d'une cellule, Méthode Hyperlinks du Range référençant la cellule : https://msdn.microsoft.com/fr-fr/lib...3(v=office.15)
Pour ajouter un lien hypertexte, méthode Add de Hyperlinks : https://docs.microsoft.com/fr-fr/off...hyperlinks.add

[Iloyd]

Méthode GetOpenFilename
https://docs.microsoft.com/fr-fr/off...etopenfilename


Pour ce qui concerne les UserForm : http://silkyroad.developpez.com/VBA/UserForm/


Il ne peut pas y avoir plus d'un lien hypertexte dans une cellule.
Pour le liens hypertexte d'une cellule, Méthode Hyperlinks du Range référençant la cellule : https://msdn.microsoft.com/fr-fr/lib...3(v=office.15)
Pour ajouter un lien hypertexte, méthode Add de Hyperlinks : https://docs.microsoft.com/fr-fr/off...hyperlinks.add

Bonjour,

Merci de m'avoir dirigé vers ces liens, qui me semblent très utile dans ma situation. J'ai pu faire une première modification en intégrant le code, me permettant d'ouvrir le gestionnaire de fichier (du c/c rien de compliqué).

Malheureusement, je ne vois pas comment est - ce que je pourrais faire la suite. Je continue mes recherches de mon côté et je vous tiens au courant sur l'avancement de ceux - ci.

le code actuel (j'ai commencé à m'initier au langage VBA depuis une semaine maintenant) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
Private Sub btn_effacer_Click()
Me.cbx_confor = ""
Me.cbx_type = ""
Me.tbx_com = ""
Me.tbx_nom = ""
 
For Each civi In Me.chk_civi.Controls
    civi.Value = False
  Next civi
 
End Sub
 
Private Sub btn_fermer_Click()
Unload Me
End Sub
 
Private Sub btn_joindre_Click()
fileToOpen = Application.GetOpenFilename("Text Files (*.xlsx), *.xlsx")
If fileToOpen <> False Then
 MsgBox "Ouverture de " & fileToOpen
End If
End Sub
 
Private Sub btn_valider_Click()
If Me.cbx_type = "" Then
    MsgBox "Veuillez choisir un type lié au problème !"
    Me.cbx_type.SetFocus
    Exit Sub
End If
 
If Me.cbx_confor = "" Then
    MsgBox "Veuillez choisir la conformité liée à la traçabilité !"
    Me.cbx_confor.SetFocus
    Exit Sub
End If
 
If Me.tbx_com = "" Then
    MsgBox "Veuillez insérer un commentaire pour informer le reste de l'équipe au sujet d'éventuels problèmes. Dans le cas contraire, insérer un point (.)"
    Me.tbx_com.SetFocus
    Exit Sub
End If
 
ligne = Sheets("Feuil1").[A6500].End(xlUp).Row + 1
 
Sheets("Feuil1").Cells(ligne, 2) = Me.tbx_nom
Sheets("Feuil1").Cells(ligne, 3) = Me.cbx_type
Sheets("Feuil1").Cells(ligne, 4) = Me.cbx_confor
Sheets("Feuil1").Cells(ligne, 5) = Me.tbx_com
 
For Each civi In Me.chk_civi.Controls
     If civi.Value = True Then
       temp = civi.Caption
     End If
   Next civi
   Sheets("Feuil1").Cells(ligne, 1) = temp
   vider
 
End Sub
 
Sub vider()
  Me.cbx_type = ""
  Me.cbx_confor = ""
  Me.tbx_com = ""
  Me.tbx_nom = ""
 
 
  For Each civi In Me.chk_civi.Controls
    civi.Value = False
  Next civi
 
End Sub
 
Private Sub cbx_confor_Change()
 
End Sub
 
Private Sub cbx_type_Change()
 
End Sub
 
Private Sub UserForm_Initialize()
Me.cbx_type.List = Array("Moteur", "Eclairage", "Frein")
Me.cbx_confor.List = Array("Conforme", "Non - Conforme")
End Sub

Entre - temps, j'ai pu modifier mon interface, ainsi que mon tableau :

Interface :




Tableau :



Merci encore !

[Iloyd]

J'ai pu avancer de mon côté, et j'ai réussi à accéder à mon fichier à partir d'une icône.
Soit, une sorte d'alternative à mon problème concernant les hyperliens. Mais je n'arrive pas à faire rentrer l'icône dans la cellule associée et elle apparaît sur la feuille excel dès que je choisis le fichier à joindre. Alors qu'elle devrait apparaître au moment de la validation. Donc, encore deux soucis qui persistent : faire rentrer l'icône dans la cellule et faire apparaître l'icône si et seulement si je clique sur le bouton "valider"

code ajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub btn_joindre_Click()
fileToOpen = Application _
    .GetOpenFilename("All Files (*.xlsx*), *.xlsx*")
If fileToOpen <> False Then
 ActiveSheet.OLEObjects.Add(Filename:= _
        fileToOpen, Link:= _
        False, DisplayAsIcon:=True, IconIndex:=0, IconLabel:=fileToOpen).Select
End If
End Sub

résultat :

[Menhir]

Malheureusement, je ne vois pas comment est - ce que je pourrais faire la suite.

Peut-être en lisant la suite de la réponse que je t'ai faite...

J'ai pu avancer de mon côté, et j'ai réussi à accéder à mon fichier à partir d'une icône.
Soit, une sorte d'alternative à mon problème concernant les hyperliens.

Je crois que j'ai perdu mon temps en t'expliquant comment mettre un lien hypertexte dans une cellule...

Mais je n'arrive pas à faire rentrer l'icône dans la cellule associée

On ne peut pas mettre un objet (image, forme, icone, etc.) DANS une cellule.
On peut la mettre dessus. Mais même si visuellement l'objet parait dedans, ce n'est pas le cas.