Discussion :

[Stargate SG1]

Bonjour,
je suis entrain de terminer mon application et je veux lui attribuer une icône spécifique.
Donc à partir du menu 'DÉMARRAGE', je donne le chemin de mon icône.
Le problème lorsque je déplace mon fichier et mon icône, le chemin change et je perds dans mon appli l'icône précédemment identifiée.
Comment faire sachant que j'ai essayé les chemins relatifs et que cela ne fonctionne pas?
Merci

PS/ J'ai pas trouvé de réponses ailleurs

[LedZeppII]

Bonjour,

on peut le faire en vba en définissant la propriété AppIcon.

Code vb :

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
Dim strIcon As String
 
strIcon = currentproject.Path & "\NomFichier.ico"
SetDBprop "AppIcon", dbText, strIcon
Application.RefreshTitleBar
 
' pour supprimer l'icône :
SetDBprop "AppIcon", dbText, Null
Application.RefreshTitleBar
 
' __________________________________________________________
Public Sub SetDBprop(propName As String, propType As DAO.DataTypeEnum, propVal As Variant)
Dim db As DAO.Database, p As DAO.Property
 
 Set db = CurrentDb
 Set p = Nothing
 On Error Resume Next
 Set p = db.Properties(propName)
 On Error GoTo 0
 If p Is Nothing And Not IsNull(propVal) Then
    Set p = db.CreateProperty(propName, propType, propVal)
    db.Properties.Append p
 End If
 
 If Not (p Is Nothing) Then
    If IsNull(propVal) Then
       db.Properties.Delete propName
    Else
       p = propVal
    End If
 End If
 
 db.Close
End Sub

A+

[Stargate SG1]

Merci mais je le met ou ?

[LedZeppII]

Si tu as un formulaire qui s'ouvre au lancement de ton appli, tu mets le code dans l'évènement Chargement de ce formulaire.

Sinon, tu crée une fonction dans un module de code.
Puis tu crée une macro qui exécute cette fonction (Action ExécuterCode), et tu sauves la macro avec ce nom : Autoexec

A+

[Stargate SG1]

Merci beaucoup ça marche avec une macro autoexec