Discussion :

[moilou2]

Bonjour, j'ai construit une application dans laquelle il y a des bouton "Microsoft Forms 2.0 CommandButton".

J'ai choisi ces boutons, afin de pouvoir leur définir des propriétés qui ne sont pas possible avec des boutons simples.

Parmi ces propriétés, j'ai choisi de changer le curseur lorsque je pointe le bouton, avec le bout de code suivant:

Code :

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

1
2
3
4
With Me.MonBouton
        .MousePointer = 99
        .MouseIcon = LoadPicture(Application.CurrentProject.Path & "\Data\Harrow.cur")
End With

J'ai placé le type de cusreur dans un dossier annexe nomé "Data".

J'ai également changé la couleur de certains boutons, avec le code suivant:

Code :

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

Me.MonBouton.BackColor = RGB(255, 255, 255)

J'ai également intégrer des images dans certains de mes boutons avec le code suivant:

Code :

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

1
2
3
4
With Me.MonBouton
        .Picture = LoadPicture(Application.CurrentProject.Path & "\Data\Crayon.gif")
        .Caption = "Le Texte"
End With

Toujours en placant mon image dans le dossier Annexe "Data".

Tout cela fonctionne très très bien lorsque je place l'application sur mon bureau, ainsi que le dossier "Data", mais dès que je place mon application et mon dossier "Data" sur le réseau de mon entreprise:

-D'une sa rame
-Et de deux, sa plante à chaque fois que dans une page il y a un bouton sur lequel je change le curseur, ou dans lequel j'ai placé une image.

J'ai le message d'erreur suivant: (voir pièce jointe)

En gros il me dit qu'il ne parvient pas a ouvrir soit l'image, soit le curseur!

Donc je ne sais pas ce qui peut le bloquer alors que sa fonctionne nikel sur mon bureau?

Merci de m'éclairer

[=JBO=]

Bonjour,

Parmi ces propriétés, j'ai choisi de changer le curseur lorsque je pointe le bouton, avec le bout de code suivant:

Code :

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

1
2
3
4
With Me.MonBouton
        .MousePointer = 99
        .MouseIcon = LoadPicture(Application.CurrentProject.Path & "\Data\Harrow.cur")
End With

J'ai placé le type de cusreur dans un dossier annexe nomé "Data".
[...]
J'ai également intégrer des images dans certains de mes boutons avec le code suivant:

Code :

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

1
2
3
4
With Me.MonBouton
        .Picture = LoadPicture(Application.CurrentProject.Path & "\Data\Crayon.gif")
        .Caption = "Le Texte"
End With

Toujours en placant mon image dans le dossier Annexe "Data".

Tout cela fonctionne très très bien lorsque je place l'application sur mon bureau, ainsi que le dossier "Data", mais dès que je place mon application et mon dossier "Data" sur le réseau de mon entreprise:

Donc, si je comprends bien, tu as copié:
* ton application dans le dossier X:\Maintenance\Public\GMAO\ACCESS\
* tous les fichiers *.gif et *.cur dans le dossier X:\Maintenance\Public\GMAO\ACCESS\Data\
C'est bien ça ?

Le message d'erreur dit "ne peut ouvrir le fichier".
Assure-toi que les droits d'accès au dossier \Data sont correctement positionnés.
Et pour confirmer que tout fonctionne, ouvre directement un fichier *.gif du dossier X:\Maintenance\Public\GMAO\ACCESS\Data\.
_

[moilou2]

Donc, si je comprends bien, tu as copié:
* ton application dans le dossier X:\Maintenance\Public\GMAO\ACCESS\
* tous les fichiers *.gif et *.cur dans le dossier X:\Maintenance\Public\GMAO\ACCESS\Data\
C'est bien ça ?

Oui c'est exactement sa.
Le message d'erreur dit "ne peut ouvrir le fichier".
Assure-toi que les droits d'accès au dossier \Data sont correctement positionnés.

Tu fait comment?

Et pour confirmer que tout fonctionne, ouvre directement un fichier *.gif du dossier X:\Maintenance\Public\GMAO\ACCESS\Data\.

Et pour essayer d'ouvrir directement un fichier je vais essayé demain, parce que la je ne suis pas au travail!

Mais je pense que cela ne pose pas de soucis, à confirmer.

[=JBO=]

Tu fait comment?

Quel est le système d'exploitation ?
Pour positionner les droits d'accès à un dossier ou un fichier, il faut avoir le droit de les administrer.
Ensuite, on affiche la fenêtre des propriétés du dossier (ou fichier) et dans l'onglet Sécurité on gère les autorisations.

Et pour essayer d'ouvrir directement un fichier je vais essayé demain, parce que la je ne suis pas au travail!

Mais je pense que cela ne pose pas de soucis, à confirmer.

Mouais... le message d'erreur dit le contraire.

Alors à demain ?
_

[moilou2]

Re, bon ba tu a raison, je ne peut pas ouvir le curseur "Arrow" dans le dossier "Data".

Sa me met la fenêtre suivante (voir pièce jointe)

Mais alors comment expliquer que sur mon bureau sa fonctionne?

[=JBO=]

Bonjour,

Re, bon ba tu a raison, je ne peut pas ouvir le curseur "Arrow" dans le dossier "Data".

Sa me met la fenêtre suivante (voir pièce jointe)

Mais alors comment expliquer que sur mon bureau sa fonctionne?

Pour ouvrir ce fichier, Windows doit connaître le fichier utilisé pour sa création

Non, ce message d'erreur indique juste que le système d'exploitation ne sait pas avec quel programme ouvrir ton fichier CUR.

C'est pour cela que je te proposais plutôt d'ouvrir un GIF, qui généralement est associé à un programme de visualisation d'image.

As-tu regardé du côté de la sécurité ?
A priori, si c'est toi qui a écrit, alors tu devrais aussi pouvoir lire le contenu du dossier Data.
_

[moilou2]

C'est pour cela que je te proposais plutôt d'ouvrir un GIF, qui généralement est associé à un programme de visualisation d'image.

Oui les GIF je peut tous les ouvrir! , sans souci.

As-tu regardé du côté de la sécurité ?

Donc, j'ai fait un clic droit sur le dossier Data/Propriété/Sécurité.

Là, j'ai une liste "Nom d'utilisateurs ou de groupes"

Et mon nom de login apparait bien dans cette liste.

A priori, si c'est toi qui a écrit, alors tu devrais aussi pouvoir lire le contenu du dossier Data.

Euh la par contre pas compris?!

Bon ba sinon de quoi sa peut venir ce truc? C'est quand même bizzard?

[moilou2]

Bonjour, je n'ai pas eu de suite à ce post, et j'ai toujours mon problème.

Petit rappel du problème

J'ai une application access avec des boutons de type "Microsoft Forms 2.0 CommandButton"

Sur évenement "Load" de chacun de mes formulaires, j'ai placé un bout de code du type:

Code :

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

1
2
3
4
With Me.LeNomDeMonBouton
        .MousePointer = 99
        .MouseIcon = LoadPicture(Application.CurrentProject.Path & "\Data\Harrow.cur")
End With

Ce code me permet de changer de curseur quand je pointe mes boutons.

Tout cela fonctionnait parfaitement lorque l'application était placée sur bon bureau, mais dès que je la place sur le réseau de mon entreprise, lors de l'execution du code, sa bloque souvent sur le bout de code précédent et j'ai un message d'erreur qui ù'indique qu'il ne parvient pas à ouvrir le curseur "Harrow".

De quoi cela peut venir?