intégrer un projet dans la gmao

[aredo]

bonjour

je reformule une demande effectuée hier. J'ai un projet de gestion de stock(maintenance) avec des macros et des protections. Je souhaiterais l'inclure dans un portail de gmao dans des infos bulles. Cette page d'environnement est créee, et lorsque je lance l'appli., il me met
erreur de compilation dans le module caché thisworkbook".
Alors que, lorsque je l'exécute en dehors de ce portail, il marche bien
qu'en pensez-vous?
dois-je cocher une bibliothèque dans "Outil/référence" ? si oui, laquelle?(non résolu)

un autre problème vient de se greffer.(résolu)
ce projet a été fait sous excel 2002 sp2. Puis, suite à une mise à jour sp3, la fonction eurotool n'existe plus. Quand je l'ouvre, il me met également "erreur de compilation dans le module caché thisworkbook" Comment supprimer eurotool.xla de mon projet ou si vous voyez une soluce plus facile. Les macros ne s'exécutent plus. Dans la colonne 'référence', clic droit sur visualisation quantité...problème etc
je suis novice, merci pour votre compréhension. C'est assez important pour mon boulot.
Je remercie au passage matthieu et jean pierre, ils se reconnaîtront sûrement,
vous avez fait du bon boulot ds ce projet.
ci-joint un extrait MdP projet 'aredo' - MdP feuilles 'guy'
http://cjoint.com/?gtwM0Bj3kM


merci au fofo

 

[Cousinhub]

Re : intégrer un projet dans la gmao

Bonsoir,

quand tu vas sur l'éditeur VBE, après ton mot de passe, (aredo), tu cliques sur Outils/Références, et tu vois un "MANQUANT :EUROTOOL.XLA"
décoche cette référence, et enregistre, cela devrait le faire..

Bonne soirée

 

[aredo]

Re : intégrer un projet dans la gmao

salut bhbh

en fait, c'est tout bête, pardonnes mon ignorance, en tout cas merci pour ta réactivité.

Aurais-tu un élément de réponse concernant ce projet inclu dans un portail gmao et qui se met en défaut? En fait,j'ai mis ce projet comme lien hypertexte dans un élément graphique style info bulle. Quand je clique dessus, il me met"erreur de compilation dans le module caché thisworkbook"
et toutes les macros ne s'exécutent pas.

j'ai édité le module thisworkbook, si quelqu'un voit une anomalie

Private Sub Workbook_Open()
Dim lgDerLig As Long
USFuser.Show
' Si aucun nom n'a été saisi, on quite l'appli
If NomUtil = "" Then ThisWorkbook.Close
' Sauvegarder le nom de l'utilisateur et la date de connexion
With Worksheets("Connexion")
.Visible = True
lgDerLig = .Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
.Range("A" & lgDerLig).Value = NomUtil
.Range("B" & lgDerLig).Value = Format(Date, "dddd d mmm yyyy")
.Range("C" & lgDerLig).Value = Time()
.Visible = False
End With
' sinon on continue

UserForm1.Show
bProtect = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'enregistre en quittant
Dim intWS As Integer

' Si la déprotection/protection est autorisée
If varProtect = True And bProtect = True Then
' Boucle sur toutes les feuilles du classeur
For intWS = 1 To ThisWorkbook.Worksheets.Count
If Sheets(intWS).Name <> "historiq" And Sheets(intWS).Name <> "Users" _
And Sheets(intWS).Name <> "Connexion" Then

' Protection de la feuille
Sheets(intWS).Protect Password:="guy", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next intWS
End If

ThisWorkbook.Save
End Sub



merci encore

 

[THE CAT 2007]

Re : intégrer un projet dans la gmao

Bonjour,

Il serait peut être intéressant de ne pas mettre de mot de passe sur le projet, le temps de la mise au point

ce qui permet au macro de s'arrêter sur le point qui pose problème, probablement situé dans le code du module : thisworkbook

Private Sub Workbook_Open()
Dim lgDerLig As Long
USFuser.Show -> envoi sur le UF
je ne comprends pas comment le code retourne dans la macro workbook open, çà ne doit pas fonctionner. Mettre un bouton ou un événement dans le UF et renvoyer par ce bouton sur la macro "suite" à adapter

genre


sub CommandButton_clik() ' à placer dans le code du bouton du UF
If NomUtil = "" Then boutonNon=0

Suite boutonNon
end sub

sub Suite(boutonNon)'sub à placer dans un module
' Si aucun nom n'a été saisi, on quite l'appli
If boutonNon = 0 Then ThisWorkbook.Close
end sub

 

[aredo]

Re : intégrer un projet dans la gmao

salut the cat

en fait, j'ai créer 2 boutons manuellement, pour lancer usf 1 et 5. Ensuite dans la colonne référence, j'active les autres usf en faisant clic droit sur visualisation quantité.

Je vais voir pour enlever la protection du vba dès lundi
Je te tiens au courant
merci pour ton intervention
bon wkend

 

[aredo]

Re : intégrer un projet dans la gmao

bonjour

Pour résumer, j'ai un projet(stockmagasinmoule) qui fonctionne très bien. Lorsque je veux l'insérer dans un portail gmao(lien hypertexte) voilà ou çà bloque lorsque je l'insère dans le portail
projet ou bibliothèque introuvable dans thisworkbook:
au niveau de private sub workbook_open() il bloque sur "date" et "time"
La même chose dans USF 2 et 3
Dans USF 4 il bloque sur le terme "lvwreport"
Voici un échantillon de fichier en espérant avoir été clair.
http://cjoint.com/?gxxEDgZsTS
nom: posté
passe: posté
J'espère que vous trouverez la faille
merci

 

[THE CAT 2007]

Re : intégrer un projet dans la gmao

Bonjour,

.view=lvwreport : excel attend une réponse du type :
XlWindowView peut être l'une de ces constantes XlWindowView.
xlNormalView
xlPageBreakPreview

lvwreport semble être une variable et pas la constante xl attendue ...

workbooks open fonctionne en xl 2003, pas d'erreur date ou time et les valeurs sont passées à la feuille connexion...

pas réussie à recréer la panne ( la feuille portail n'est pas dans le fichier ) ...

 

[aredo]

Re : intégrer un projet dans la gmao

bonsoir the cat

étant donné que le projet fonctionne en dehors du portail (portail crée sur une base access),
je croyais qu'il me manquait une référence dans une bibliothèque...j'avoue que je sèche.
Pourquoi ne reconnaît-il pas ces variables "date, time et lvwreport". Lorsque je les supprime, les macros s'exécutent. Que faut-il en déduire?
Je suis débutant et j'aimerais bien comprendre.
Merci pour ton intervention.
bonne soirée

 

[aredo]

Re : intégrer un projet dans la gmao

bonjour

J'ai oublié de préciser, (peut-être une incidence). le portail gmao est utilisé en réseau (installation du Runtime Access sur tous les postes utilisateurs).
Dois-je cocher des contrôles supplémentaires dans USF 2, 3 et 4 qui posent problèmes?
merci au fofo

bonne journée

 

[THE CAT 2007]

Re : intégrer un projet dans la gmao

Bj,

Pourquoi ne reconnaît-il pas ces variables "date, time

date et time sont des variables système, il n'y aurait pas conflit entre date et time serveur et pc où tourne localement le prog (c'est une hypothèse, je ne connais pas assez le sujet ) ?

pour le pb
.Range("B" & lgDerLig).Value = Format(Date, "dddd d mmm yyyy")
.Range("C" & lgDerLig).Value = Time()

.Range("B" & lgDerLig).Value = str (Format(Date, "dddd d mmm yyyy"))
ou cstr (Format(Date, "dddd d mmm yyyy"))
pour en faire du texte ....

dans les exemples excel, date et time ne sont pas suivi de parenthèses ...

 

[aredo]

Re : intégrer un projet dans la gmao

bonsoir the cat

il n'y a pas de conflit sur le serveur, j'ai testé.
J'ai essayé tes 2 solutions sans aucune amélioration
j'ai essayé d'autres fichiers contenant des macros et pareil, il se bloque, il refuse de rentrer dans les macros, quelque soit le projet vba, on dirait qu'il n'autorise pas cet état.... je ne vois vraiment pas. Toutes les idées sont les biens venues.
merci the cat pour ta persévérance.
merci également au fofo
@+