Microsoft 365 problème sur fichier connu

[Michest94]

Bonjour le forum,

Code Admin et vba : ADMIN1967
Je n'arrive pas à déclencher mes liens hypertextes dans la feuille Documentation.

"Car tu as une gestion d'erreur audébut de la macro (On error Goto Fin)
Comme la feuille est protégée 2 lignes auparavant, le ClearContents provoque une erreur et la fin prévue..."

une piste sur un autre poste mais mes connaissances vba sont faibles voir n..

Merci pour votre aide,

 

[fanch55]

tu peut de renvoyer l'accès au dossier par rapport au site choisi ex. pour AMPERE.
Regarde la pièce jointe 1112368

C'est déjà prévu mais il faut que le chemin existe, modifier la partie rouge :

.InitialFileName = " F:\Dossier_Pdf\" & Me.[C3].Value & "\"

Tu as également la partie Déclarations dans les modules avec le code ci-dessous :

Public MotDePasse As String 'on déclare la variable public dans tout le projet
'elle est initialisée à l'ouverture du projet
Public Const Dossier_Pdf = "F:\01_DD\03_GRP_TRAVAIL_DD\02_CAHIER_MAINTENANCE\--- CAHIERdeMAINTENANCE_PDF ---"
Public Const Dossier_Jpg = "F:\01_DD\03_GRP_TRAVAIL_DD\02_CAHIER_MAINTENANCE\0B_Documemtations\04_Docs+"

Donc, si c'est le même chemin que celui déclaré, tu peux mettre :
.initialFileName = Dossier_Pdf & "\" & Me.[C3].value & "\"

 

[Michest94]

Re,

Pour Ampère ca va donner ceci :
F:\01_DD\03_GRP_TRAVAIL_DD\03_PLANS_AUTOCAD_PDF\01-STATIONS LOCALES\AMPERE (pas tenir compte sur le visuel du 0004 ) si c'est plus simple pour toi ailleurs, on peut adapter le chemin d'accès.
j'ai tout un travail d'arborescence à préparer ( heureusement que j'ai mon petit outils excel qui me permettra de créer l'arbo.)

Page de téléchargement du fichier partagé

mon-partage.fr

 

[fanch55]

J'ai supprimé le module Déclaration .
J'ai créé les variables globales dans la feuille Utilisateur :

La liste déroulante dans la feuille Base a été créée ( avec la fonction demandée ) :
la liste "se nourrit" des valeurs de la ligne 1 à partir de la colonne B .
la sélection par défaut quand on ouvre le classeur est "TOUT"

Le bouton Documents dans la feuille Intervenant fait référence à Dossier_Doc des variables globales .

 

[Michest94]

La voila la Ferrari maintenant va falloir un pilote
Bon quelques rayures sur le capot mais de la faute du pilote c'est a dire moi.

Le menu déroulant le top !
Je me suis emmêlé les crayons
palier 5 : INSTRUMENTATION ( AH à AK ) et non ( AH à AL )
Cette colonne AL dans la base semble vide si dans les feuilles 'intervenant' et 'prestataire' il n'y a aucune référence autant la supprimer.
palier 6 : INFOS visuel le renommé en INFOS+ dans le menu déroulant. au cas ou la colonne AL est supprimée on se retrouve pour ce palier 6 en (AL à AN)
MAJ se trouve en AO dans le palier TOUT.
C'est nickel cette gestion de base enfin pour moi ca me convient.

Concernant la partie chemin d'accès renvois sur dossier du site sélectionné,
J'ai pas trop compris ...

 

[fanch55]

palier 5 : INSTRUMENTATION ( AH à AK ) et non ( AH à AL )

Si tu supprimes la colonne AL, le code va s'adapter

palier 6 : INFOS visuel le renommé en INFOS+ dans le menu déroulant. au cas ou la colonne AL est supprimée on se retrouve pour ce palier 6 en (AL à AN)

Si tu le renommes, le code va s'adapter .

MAJ se trouve en AO dans le palier TOUT.

IL n'y a rien dans la colonne AQ

 

[fanch55]

Concernant la partie chemin d'accès renvois sur dossier du site sélectionné,
J'ai pas trop compris ...

Vas voir dans la feuille Utilisateur ce qui est définit pour Dossier_Doc

 

[Michest94]

Je roule un peu dans la Ferrari le code vba c du lourd intouchable pour moi.
Au niveau de la feuille utilisateurs si je veux donner un profil ' responsable' droit d'accès 2 comment je fais ?

 

[Michest94]

Je ne vois pas ou modifié le mdp pour les différents profils intervenants éventuellement responsable ?

 

[fanch55]

Y'a rien d'intouchable quand on commence à coder ..

 

[fanch55]

Une autre voie pour les documents Intervenant ;

 

[Michest94]

Bj Franch 55,

A l'ouverture du fichier en mode ADMIN avec le code habituel

Puis quand je clique sur fin.

Help!...

 

[fanch55]

Salut Michel,
Classeur corrigé .

 

[Michest94]

Merci à toi Fanch55, mais décidément ma Ferrari reste en panne impossible de la démarré

 

[fanch55]

Désolé, j'avais laissé des bibliothèques de test dont j'avais abandonné l'utilisation par la suite ...

 

[Michest94]

j'ai voulu faire un rectif. dans la base et ...

Je ne vois plus ton idée de sur les autres voies doc.