Choix de configurations a l'ouverture d'un fichier Excel
Fermé
mailletj
Messages postés
4
Date d'inscription
dimanche 23 octobre 2016
Statut
Membre
Dernière intervention
24 octobre 2016
-
23 oct. 2016 à 23:22
mailletj Messages postés 4 Date d'inscription dimanche 23 octobre 2016 Statut Membre Dernière intervention 24 octobre 2016 - 24 oct. 2016 à 22:51
mailletj Messages postés 4 Date d'inscription dimanche 23 octobre 2016 Statut Membre Dernière intervention 24 octobre 2016 - 24 oct. 2016 à 22:51
A voir également:
- Choix de configurations a l'ouverture d'un fichier Excel
- Ethernet n'a pas de configuration ip valide - Guide
- Fichier rar - Guide
- Liste déroulante de choix excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
4 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
23 oct. 2016 à 23:59
23 oct. 2016 à 23:59
Bonjour,
Pourquoi faire compliqué quand on peut faire simple ?
Créer directement 3 modèles !!!
Pourquoi faire compliqué quand on peut faire simple ?
Créer directement 3 modèles !!!
Utilisateur anonyme
24 oct. 2016 à 09:54
24 oct. 2016 à 09:54
Bonjour Jérémy,
Tout ce que je vais te proposer est dans ton fichier de base.
Dans une cellule non déjà utilisée, par exemple G1, mets-y 0 ;
à l'ouverture de ce classeur modèle, la macro Workbook_Open()
(de ThisWorkbook) affichera ton MsgBox seulement si G1 = 0.
Tu choisiras alors une de tes 3 configurations, et tu inscriras le n°
correspondant en G1 : 1, 2, ou 3.
Ton choix est fait, et quand tu sauvegarderas ton fichier modèle,
ce choix en G1 sera sauvegardé en même temps.
À la prochaine ouverture de ce fichier, pas de MsgBox puisque
G1 est différent de 0.
Pour que tes utilisateurs ne modifient pas eux-même G1 :
Laisse la protection de départ : ☑ Verrouillée (donc le code VBA
devra déprotéger la feuille, modifier G1, reprotéger la feuille).
Tu peux cacher cette cellule en mettant une couleur de police blanc
(mais elle se verra quand même si incluse dans une sélection).
Autre solution : au lieu de la cellule G1, utilise un nom défini
Config qui jouera le même rôle.
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement. 😊
Tout ce que je vais te proposer est dans ton fichier de base.
Dans une cellule non déjà utilisée, par exemple G1, mets-y 0 ;
à l'ouverture de ce classeur modèle, la macro Workbook_Open()
(de ThisWorkbook) affichera ton MsgBox seulement si G1 = 0.
Tu choisiras alors une de tes 3 configurations, et tu inscriras le n°
correspondant en G1 : 1, 2, ou 3.
Ton choix est fait, et quand tu sauvegarderas ton fichier modèle,
ce choix en G1 sera sauvegardé en même temps.
À la prochaine ouverture de ce fichier, pas de MsgBox puisque
G1 est différent de 0.
Pour que tes utilisateurs ne modifient pas eux-même G1 :
Laisse la protection de départ : ☑ Verrouillée (donc le code VBA
devra déprotéger la feuille, modifier G1, reprotéger la feuille).
Tu peux cacher cette cellule en mettant une couleur de police blanc
(mais elle se verra quand même si incluse dans une sélection).
Autre solution : au lieu de la cellule G1, utilise un nom défini
Config qui jouera le même rôle.
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement. 😊
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
24 oct. 2016 à 10:18
24 oct. 2016 à 10:18
Bonjour,
Il est préférable d'utiliser une propriété de fichier personnalisée (CustomDocumentProperties).
Cdlt
Patrice
.
Il est préférable d'utiliser une propriété de fichier personnalisée (CustomDocumentProperties).
Cdlt
Patrice
.
Utilisateur anonyme
>
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
24 oct. 2016 à 12:34
24 oct. 2016 à 12:34
Bonjour Patrice33740,
Selon ta recommandation, je propose ceci à Jérémy :
A) Dans ThisWorkbook
Private Sub Workbook_Open() On Error Resume Next ' évite une erreur si le nom est déjà existant ActiveWorkbook.CustomDocumentProperties.Add "Config", 0, 1, 0 End Sub
La propriété Config est créée et initialisée à 0.
B) Dans Module1
Option Explicit Sub SetConfig() Dim n As Byte If ActiveWorkbook.CustomDocumentProperties("Config") <> 0 Then Exit Sub Do n = InputBox("n° Config (1 à 3) :") Loop Until n >= 1 and n <= 3 ActiveWorkbook.CustomDocumentProperties("Config") = n End Sub
Je pense que ça devrait aller.
Cordialement. 😊
mailletj
Messages postés
4
Date d'inscription
dimanche 23 octobre 2016
Statut
Membre
Dernière intervention
24 octobre 2016
>
Utilisateur anonyme
24 oct. 2016 à 22:49
24 oct. 2016 à 22:49
Merci je vais tester
mailletj
Messages postés
4
Date d'inscription
dimanche 23 octobre 2016
Statut
Membre
Dernière intervention
24 octobre 2016
24 oct. 2016 à 01:18
24 oct. 2016 à 01:18
Merci pour ton retour.
Cependant je désire pouvoir utiliser le fichier de base sur plusieurs postes distincts par plusieurs utilisateurs différents.
Cependant je désire pouvoir utiliser le fichier de base sur plusieurs postes distincts par plusieurs utilisateurs différents.
mailletj
Messages postés
4
Date d'inscription
dimanche 23 octobre 2016
Statut
Membre
Dernière intervention
24 octobre 2016
24 oct. 2016 à 22:51
24 oct. 2016 à 22:51
Merci pour vos contributions je vais essayer ca cette semaine!
Merci beaucoup
Merci beaucoup