Bonjour,
tu cherches à quoi faire ? Copier/coller ou comprendre ?
un simple coup d'oeil au code du lien ===>> tout est là
If ReplaceIcoInExe(txtExe.Text, OpenIconFile(txtICO.Text), txtIcoID.Text, txtGroupID.Text, txtLangID.Text) = True Then
MsgBox "Changement d'icone effectué avec succès", vbInformation
Else
après l'ouverture d'une boîte de dialogue qui peut, au choix de l'utilisateur, être l'une de ces deux là :
Private Sub cmdEXE_Click()
CD.Filter = "*.exe;*.dll|*.exe;*.dll|Tous|*.*"
CD.FilterIndex = 0
CD.ShowOpen
txtExe.Text = CD.FileName
End Sub
Private Sub cmdICO_Click()
CD.Filter = "*.ico|*.ico|Tous|*.*"
CD.FilterIndex = 0
CD.ShowOpen
txtICO.Text = CD.FileName
End Sub
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient