Passage parametre dans open file

Version imprimable

11/01/2020, 17h14
retraite83

Passage parametre dans open file

Bonjour,

je cherche à passer un paramètre à l'open d'un classeur pour pouvoir faire un traitement dans "Thisworkbook open"

Un seul caractère (par exemple "1" ou "2") suffirait comme paramètre, je n'ai pas l'impression d'après mes lectures que ce soit possible
11/01/2020, 17h23
Philippe Tulliez

Bonjour,
La réponse peut-être ici Excel et Fichiers Batch : Passage de Paramètres
12/01/2020, 10h24
retraite83

Merci de cette réponse, c'est un peu compliqué pour moi...

N'y-a-t-il pas un moyen plus simple de faire qq chose du style

Code:

Workbooks.Open fichier(param)
12/01/2020, 10h56
Philippe Tulliez
Bonjour,

Citation:

N'y-a-t-il pas un moyen plus simple de faire qq chose du style

A ma connaissance non, sinon c'est la réponse que j'aurais privilégiée

Des pistes
- Si le code VBA se trouve dans un classeur A, il est possible en ouvrant le classeur B d'écrire le paramètre en question dans une cellule quelconque de celui-ci et d'ensuite le faire lire par un code du classeur B (par exemple en cliquant sur un bouton)
- Passer par un fichier texte ou INI (c'est la piste que je choisirais). Le classeur A écrit le ou les paramètres dans le fichier INI qui est lu ensuite par le classeur B à son ouverture
12/01/2020, 11h31
retraite83

Bonjour,

en fait jusqu'à maintenant je fais un peu le contraire de la 1ere piste :

Je positionne le paramètre voulu dans une cellule d'une feuille "Param" du classeur A.

Ensuite dans le classeur A j'ouvre le classeur B.

Une cellule d'une feuille "Param" du classeur B contient la valeur de la cellule de A (par équivalence Excel "=cellule")

Je lis le paramètre dans ma macro dans le classeur B

Je pensai que ma solution était simplifiable

Merci de l'éclairage apporté
12/01/2020, 12h04
Philippe Tulliez

Bonjour,
Il y a une autre piste ce sont les Noms masqués ("hidden namespace").
Cette technique permet d'écrire et lire en mémoire tant que la session d'excel est active

Sinon en anglais, en faisant une recherche sur Excel vba Hidden Name Space , tu trouveras plusieurs liens sur ce sujet.

Bravo pour la piste des Noms masqués ("hidden namespace") que je ne connaissais pas.

De mon coté j'aurai utilisé le registre personnel de l'utilisateur, ce qui permet d'enregistrer des "paramètres" pour les utiliser plus tard, même si la session d'Excel n'est plus active :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
'---------------------------------------------------------------------------------------
Public Function RegistreEcrire(NomClé As String, ValClé As Variant) As Boolean
'---------------------------------------------------------------------------------------
' Ecrit NomClé avec la valeur ValClé au format String dans le registre "HKCU\ConfigPerso\"
'---------------------------------------------------------------------------------------
Dim ObjShell As Object
On Error GoTo Gest_Err
' Supprime la clé si elle existe déjà:
Call RegistreSupprimer(NomClé)
' Crée la clé et retourne True si tout se passe bien:
Set ObjShell = CreateObject("WScript.Shell")
ObjShell.RegWrite "HKCU\ConfigPerso\" & NomClé, ValClé, "REG_SZ"
Set ObjShell = Nothing
RegistreEcrire = True
' Efface les erreurs:
Gest_Err:
Err.Clear
End Function
'---------------------------------------------------------------------------------------
 
'---------------------------------------------------------------------------------------
Public Function RegistreLire(NomClé As String) As Variant
'---------------------------------------------------------------------------------------
' Lit la clé "HKCU\ConfigPerso\" & NomClé et retourne sa valeur.
'---------------------------------------------------------------------------------------
Dim ObjShell As Object
On Error GoTo Gest_Err
' Lit la clé:
Set ObjShell = CreateObject("WScript.Shell")
RegistreLire = ObjShell.RegRead("HKCU\ConfigPerso\" & NomClé)
Set ObjShell = Nothing
' Efface les erreurs:
Gest_Err:
Err.Clear
End Function
'---------------------------------------------------------------------------------------
 
'---------------------------------------------------------------------------------------
Public Function RegistreSupprimer(NomClé As String) As Boolean
'---------------------------------------------------------------------------------------
' Supprime la clé "HKCU\ConfigPerso\" & NomClé.
'---------------------------------------------------------------------------------------
Dim ObjShell As Object
On Error GoTo Gest_Err
Set ObjShell = CreateObject("WScript.Shell")
ObjShell.RegDelete "HKCU\ConfigPerso\" & NomClé
Set ObjShell = Nothing
RegistreSupprimer = True
' Efface les erreurs:
Gest_Err:
Err.Clear
End Function
'---------------------------------------------------------------------------------------