Discussion :

[retraite83]

Bonjour,

après des heures de recherche je pense comprendre un problème que je traîne depuis longtemps

je fais open d'un classeur :

Code :

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

1
2
3
Workbooks.Open Catal  
                     Sheets("Param").Range("C2") = ident    
                     Sheets("Param").Range("A2") = autorActive    '

le problème vient du fait que j'ai besoin dans "ThisworkBook open" des données de Param!A2 et Param!C2 et qu'il est trop tard de les renseigner après l'open...

Que ne l'ai-je pas compris plus tôt !

Je voudrai donc passer les 2 valeurs "ident" et "autorActive" en paramètre de l'open pour les avoir au début de "Thisworkbook open"

Je ne trouve pas d'exemples dans mes docs préférées

[MarcelG]

Bonjour,

Je voudrai donc passer les 2 valeurs "ident" et "autorActive" en paramètre de l'open pour les avoir au début de "Thisworkbook open"

Désolé, à mon humble niveau, je ne comprends pas la question.
A quoi correspondent ces 2 valeurs?
Le plus efficace serait que tu retournes le code complet de l'évènement Open.
Ce en précisant clairsemant la problématique.

[retraite83]

Ces 2 valeurs correspondent à des niveaux d'autorisation des utilisateurs permettant d'afficher plus ou moins de boutons sur la feuille qui est affichée à l'open du classeur (C1)

ces valeurs viennent du classeur (C2) faisant l'open de C1

c'est pour cela que j'ai besoin de les passer en paramètres. La particularité est que le classeur appelant C1 est sur le PC utilisateur et le classeur C2 est sur le serveur

voilà l'open

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
Private Sub Workbook_Open()
Dim sig As String, Param As Variant, user As String, gestion As String, sh2 As Variant
 
Set Param = Sheets("Param")
user = "User"
gestion = "Gestionnaire"
 
' Gestion des autorisations
If Param.Range("A2") = gestion Then
        ActiveSheet.Shapes("CatalClients").Delete  ' non autorisé à voir les Clients
Else
    If Param.Range("A2") = user Then
        ActiveSheet.Shapes("Parchemin : horizontal 5").Delete  ' non autorisé à gérer les Clients
        ActiveSheet.Shapes("CatalClients").Delete  ' non autorisé à voir les Clients
    Else
    End If
End If
 
Application.ScreenUpdating = True
 
End Sub

dans l'appelant C1 j'ai une macro qui fait:

Code :

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

1
2
3
4
 
Workbooks.Open CatalServeur  ' Ouverture du Catalogue sur le serveur
Sheets("Param").Range("C2") = pathServeur    ' autorisation active pour Catalogue
Sheets("Param").Range("A2") = autorActive    ' chemin du serveur pour Catalogue

[patricktoulon]

Bonjour Retraité

Code :

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

1
2
3
4
with Workbooks.Open (Catal)  
                     .Sheets("Param").Range("C2") = ident    
                    . Sheets("Param").Range("A2") = autorActive 
end with

[retraite83]

Bonjour Patrick

cela n'est pas suffisant la macro Thisworkbook open se déclenche sur :

Code :

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

with Workbooks.Open (Catal)

et les 2 lignes :

Code :

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

1
2
3
 
.Sheets("Param").Range("C2") = ident    
. Sheets("Param").Range("A2") = autorActive

s'exécutent après donc trop tard...

[MarcelG]

Salut,

Tu peux annihiler l'évènement Open de ton classeur ouvert en codant

Code :

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

Application.EnableEvents = False

avant la méthode d'ouverture dans ton classeur appelant.