Bonjour a tous et a toutes.

Je viens vous exposer mon problème, j'ai auparravant fait une recherche sur le forum et google, mais je n'ai pas trouvé de solution, hélas lol

En faite, je suis en train de créer un programme, je l'ai créér de tels façon que le programme fonctionne comme ceci:

1) L'utilisateur chosit une image sur son pc
Le chemin de l'image se créé alors dans la textebox
2) Il appuie alors sur un bouton qui a son tour va ouvrir une dll d'un programme et remplacer une image incorporé dedans par la sienne.

Voila comment j'ai créé cela

J'ai incorporé un CommonDialog1, une textbox, un bouton "parcourir", et un bouton "aplliquer"


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
Option Explicit
 
Bouton Quitter
 
Private Sub cmdQuitter_Click()
End
End Sub
 
Bouton Parcourir
 
Private Sub Command1_Click()
 
Dim NomFichier As String
Text1 = "Ce label renvoie le nom du fichier sélectionné."
' Initialize le répertoire par défaut
CommonDialog1.InitDir = "D:\Temporaire"
' Initialize le titre du CommonDialogBox
CommonDialog1.DialogTitle = "Ceci est un test"
' On utilise le CommonDialogBox pour Ouvrir un fichier
CommonDialog1.ShowOpen
' Récupère le nom du fichier sélectionné
NomFichier = CommonDialog1.FileName
 
' Affiche le nom du fichier récupéré
Text1 = NomFichier
End Sub
Ici le Bouton aplliquer ou j'utilise la fonction Sendkeys
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
86
 
Private Sub Command2_Click()
Dim Reponse, i
 
Reponse = Shell("C:\Program Files\Editeur\Ressources\ResourceHacker\ResHacker.exe", 1)
' Ensuite, on active le programme pour qu'il puisse recevoir les
' commandes :
 SendKeys "%(f)"
 SendKeys "{ENTER}"
SendKeys "C:\Program Files\Windows Live\Messenger\msgsres.dll", True
 
SendKeys "{TAB}"
 SendKeys "{ENTER}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{RIGHT}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{RIGHT}"
SendKeys "{DOWN}"
SendKeys "%(f)"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{ENTER}"
SendKeys "{ENTER}"
 
End Sub
 
Private Sub Form_Load()
 
End Sub
Voila mon problème est que une fois arrivé dans la dll je dois incorporer le chemin de l'image qui une fois selectionne par l'utilisateur se trouve dans le textbox.
Je voudrais prendre ce texte a son tour afin q'il se place automatiquement dans le programme.
Afin que l'utilisateur ne refasse pas deux fois le même et que la manipulation Sendkeys ne soit pas casser