Discussion :

[alexmax]

Bonjour,
J'ai mon application qui est installée dans c:\program files\ ou c:\progam files(x86) si OS 64 bit, avec à l’intérieur le fichier .ico.
Comment modifier en VBA l'emplacement du fichier icone de l'application ?
Sachant que la classe DAO.Property marche pas dans un projet (.adp).
Merci pour votre aide

[ClaudeLELOUP]

Bonjour,

connais-tu cet item de la FaQ ?

[alexmax]

Oui, mais c'est ce que je précisais dans mon post, cela ne marche pas dans un projet ADP.

[LedZeppII]

Bonsoir,

Même principe mais en utilisant CurrentProject.Properties (de type collection AccessObjectProperties) au lien de CurrentDb.Properties.
Les propriétés sont du type AccessObjectProperty.

Exemple vite fait

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
Sub AddAppIcon()
AddProp "AppIcon", "C:\le chemin\le_fichier.ico"
Application.RefreshTitleBar
End Sub
 
Sub AddProp(sPropName As String, vPropValue As Variant)
Dim pjProps As Access.AccessObjectProperties, prop As Access.AccessObjectProperty
 
Set pjProps = CurrentProject.Properties
On Error GoTo ErrH:
Set prop = pjProps(sPropName)
If prop Is Nothing Then
   pjProps.Add sPropName, vPropValue
Else
   prop.Value = vPropValue
End If
Exit Sub
 
ErrH:
Select Case Err.Number
    Case 2455 ' La référence d'une expression à la propriété 'xxxxx' n'est pas valide.
         Resume Next
End Select
MsgBox "Erreur No " & Err.Number & " : " & Err.Description
End Sub

A+

[alexmax]

Merci LedZeppII, cela marche parfaitement.
Bon week-end

[billybob2]

Bonjour ,

J'ai appliqué la solution de LedZeppII qui fonctionne parfaitement mais j'ai un soucis car notre politique de sécurité fait que les utilisateurs de mon application ont un accés en lecture seule à mon application.

Du coup quand le code de changement d'icone s'execute l'erreur 70 "Permission refusée" s'affiche.

Est-ce que tu vois une solution à ce problème ?

Merci d'avance

[billybob2]

Bonjour à tous ,

Pour informatin , j'ai solutionné mon problème en utilisant le chemin relatif : .\MonIcone.ico
Ainsi , que mon application se trouve dans c:\program Files ou dans c:\progam files(x86) pas beoin de changer le chemin à l'exécution.