Déclaration public - Constante

Version imprimable

06/08/2015, 18h23
mouftie

Déclaration public - Constante

Bonjour,
Dans le dernier fichier où j'ai travaillé, j'ai noté que j'avais écris 350 fois :
Workbooks("FichierPrincipal.xlsm").Sheets("Données")
Le plus souvent, pour accoller un .range("..") derière.

Je voudrais savoir comment déclarer une constante du style

Code:

Public Const RefDon as string = "Workbooks("FichierPrincipal.xlsm").Sheets("Données")"

pour ensuite dans mes procédures n'avoir plus qu'à préciser la range

Code:

RefDon.Range("A1") = "toto"

Merci de votre aide
06/08/2015, 20h58
parmi
Bonjour,

Tu ne peux pas déclarer ça comme une String.
Un workbook et un Worksheet sont des objets...

Par contre, il y a l'utilisation de With qui pourrait t'éviter de réécrire plusieurs fois
Code:

1 2 3 4 With Workbooks("FichierPrincipal.xlsm").Sheets("Données") .Range("A1") = "toto" .Range("A2") = "titi" End With
Autrement, tu peux déclarer des variables en Public que tu "Set" au démarrage de l'application

Code:

Public Bk as workbook, Sh as worksheet

bonsoir,

utilise un objet feuille de calcul, il y as plein d'exemples sur le forum :
Code:

1 2 3 4 5 Dim sh as WorkSheet set sh= Workbooks("FichierPrincipal.xlsm").Sheets("Données") sh.range("A1")="Et vooilà"

06/08/2015, 23h36
Invité
Bonsoir,
Effectivement utiliser 350 fois FichierPrincipal.xlsm peut être replacer par un variable public.

En revanche tu n'expliques pas comment ce fichier arrive dans la vie de ton application!
En effet, si ton fichier est ouvert par l'application , si l'ouverture est un prérequis et l'utilisateur doit l'ouvrir! Mais ce cas de figure est absurde!
Code:

1 2 3 4 5 6 7 Public sh as WorkSheet Public wb as Workbook Sub init() Set wb=Workbooks.open("c:\FichierPrincipal.xlsm") set sh= wb.Sheets("Données") End Sub
07/08/2015, 11h28
mouftie

Bonjour à Tous et merci pour vos réponses.
Bbil
quand j'essaie ton code, j'ai un message d'erreur d'exécution 9 : l'indice n'appartient pas à la selection (sur le Set)
Mais j'ai le même motif avec

Code:

Set Sh = Sheets("Données")

par contre,

Code:

Set Sh = Wb.Sheets("Données")

passe très bien (Rdurupt)

rdurupt,
Ce fichier est ouvert manuellement, puis il pilote un grand nombre de mises à jour qui consistent à ouvrir des fichiers, aller chercher des données, incrémenter une base de données, écrire quelques formules, fermer les fichiers tiers ; mais j'ai quelques interventions manuelles à faire quelques fois donc je lance ces actions avec des boutons et donc je vais perdre le set entre chaque lancement.
Je suis sans arrêt en train de passer d'un fichier à l'autre, par contre les noms des feuilles de travail sont quasiment les mêmes.

Car si je comprends ce que vous voulez me dire, c'est qu'en lançant un set, avec une variable publique, je garde la valeur de la variable tout le long de la procédure ? (je ne peux pas vérifier tant que je n'aurai pas résolu le message d'erreur - quand je dis "je", je pense bien évidemment à "Vous" ;>)

Merci encore pour votre intervention.
07/08/2015, 12h45
Invité

Bonjour,
Nous restons dans l'inconnu, car si FichierPrincipal.xlsm est le fichier qui contient tes macros, tu peux utiliser la méthode open de thisWorkbook pour renseigner ta variable
Set Sh = ThisWorkbook.Sheets("Données")
07/08/2015, 14h00
mouftie
Oui, rdurupt,
Tu as raison, je vais faire comme tu le suggérais :
- Faire une déclaration public
- faire une Sub Init() avec tous les Set pour donner les valeurs aux variables
- enfin, à chaque fois que je lance un nouveau bloc de procédures, de faire un Call Init pour réinitialiser les variables
J'aurais préféré des constantes, mais si c'est pas possible, vous m'avez donné une méthode, je ferai avec et je serai très contente.

Par contre, si vous pouvez me dire pourquoi

Code:

Set Sh = Sheets("Données")

ne fonctionne pas...
Je vous remercie pour tout.
07/08/2015, 14h41
parmi

Probablement parce que Sheets("Données") n'existe pas dans le fichier actif.
De là l'importance de spécifier dans quel classeur.
07/08/2015, 14h45
Invité

Citation:

Envoyé par parmi

Probablement parce que Sheets("Données") n'existe pas dans le fichier actif.
De là l'importance de spécifier dans quel classeur.

parfaitement exacte!

Bah non puisque Set Sh = Wb.Sheets("Données") fonctionne => le classer est ouvert et la feuille aussi.
Le pire c'est que j'ai l'impression qu'un coup cela fonctionne et qu'un autre pas - Ah, je pense avoir compris en partie, il faut que le classeur soit actif.
Donc j'avance dans la mise en place de cette méthode, maintenant, c'est l'activation du chemin "secondaire" qui ne fonctionne pas, or je mettrai ma main au feu que cela fonctionnait tout à l'heure, puisque j'ai ouvrert un fichier dans ce répertoire secondaire...

Voici où j'en suis
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 Option Explicit Public Sh, ShSc As Worksheet Public Wb, WbSc As Workbook Public ChemPr, ChemSc As String 'chemin principal et secondaire Sub LancmtProc() Call Init Call test1 End Sub Sub Init() Dim Second As String Second = "AclasserCgoss" 'sous rép secondaire Set Wb = Workbooks("FichierPrincipal.xlsm") 'Set Sh = Sheets("Données") 'si le fichier est actif OU Set Sh = Wb.Sheets("Données") Set ChemPr = Sh.[B3] 'Chemin actif B3=GAUCHE(CELLULE("nomfichier");TROUVE("[";CELLULE("nomfichier"))-1) 'à partir d'ici, ça ne fonctionne plus Set ChemSc = ChemPr & Second 'Chem Secondaire pour ouvrir le 2ème fichier Set WbSc = Workbooks("Congel Mcg.xlsx") 'Nom du classeur secondaire Set ShSc = WbSc.Sheets(1) 'Nom de la feuille du classeur secondaire End Sub Sub test1() 'exemple de procédure utilisant les Set Wb.Activate Sh.Range("A21") = Sh.Name Sheets(2).Activate [A2] = "Toto" Sh.[A22] = [A2] & " et Titi" Workbooks.Open (ChemPr & "CopieCollTest.xlsm") 'ça cela fonctionne Workbooks.Open (ChemSc & "Congel Mcg.xlsx") 'ça, cela a fonctionné !!! Sh.[B22] = ShSc.[C3] End Sub Sub Nettoyage() Call Init With Sh .[A21] = "" .[A22] = "" .[B22] = "" .[A23] = "" End With Sheets(2).[A2].Clear End Sub
Je n'arrive pas comprendre pourquoi cela a fonctionné et que maintenant, Excel envoie le message "Objet requis".
Merci pour votre aide

07/08/2015, 16h50
Invité

Apprends à utiliser les objets VB!

Pas de select selection et autre activate!
wb.Sheets(2).range("A2") = "Toto"!

set wbCpTest= Workbooks.Open (ChemPr & "CopieCollTest.xlsm")

rdurupt

Citation:

Apprends à utiliser les objets VB!

c'est bien ce que j'essaie de faire, grace à votre aide :oops:

Je ne comprends pas ce que tu essaies de me dire.
Je fais une sub pour initialiser mes variables, il n'y a qu'un seul classeur d'ouvert (il peut bien sur y en avoir d'autres, mais pour l'erreur en cause ?), je ne vois pas ce que je peux activer.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Init() Dim Second As String Second = "AclasserCgoss" 'sous rép secondaire Set Wb = Workbooks("FichierPrincipal.xlsm") 'Set Sh = Sheets("Données") 'si le fichier est actif OU Set Sh = Wb.Sheets("Données") Set ChemPr = Sh.[B3] 'Chemin actif B3=GAUCHE(CELLULE("nomfichier");TROUVE("[";CELLULE("nomfichier"))-1) 'à partir d'ici, ça ne fonctionne plus Set ChemSc = ChemPr & Second 'Chem Secondaire pour ouvrir le 2ème fichier Set WbSc = Workbooks("Congel Mcg.xlsx") 'Nom du classeur secondaire Set ShSc = WbSc.Sheets(1) 'Nom de la feuille du classeur secondaire End Sub
pourquoi

Code:

Set ChemPr = Sh.[B3]

fonctionne et pas le code suivant

Code:

Set ChemSc = ChemPr & Second

07/08/2015, 17h43
joe.levrai
Bonjour,

voici la déclaration de tes variables :

Code:

Public ChemPr, ChemSc As String 'chemin principal et secondaire

ChemPr est de type Variant car tu ne spécifies pas son type. Ca veut donc dire que tu peux utiliser cette variable dans n'importe quel contexte ... VBA se chargera de le typer à ta placer
ChemSc est de type String

donc ta ligne

Code:

Set ChemPr = Sh.[B3]

fonctionne parfaitement : VBA type ta variable en Range car tu lui affectes l'objet "Cellule" B3 de ta feuille Sh
mais le comportement n'est pas celui que tu souhaites !! Toi tu veux la valeur de cette cellule, et non pas positionner un pointeur (une variable objet) sur cette cellule

ta ligne

Code:

Set ChemSc = ChemPr & Second

doit probablement te renvoyer l'erreur "objet requis"
ChemSc étant un String (et pas un objet), on lui assigne une valeur sans utiliser l'instruction Set (qu'on emploie pour instancier une variable Objet)

Donc tu as deux problèmes :

1) Déclarer correctement tes variables

Code:

Public ChemPr As String, ChemSc As String 'chemin principal et secondaire

2) Assigner correctement une valeur à une variable "non objet"
Code:

1 2 ChemPr = Sh.[B3].value ChemSc = ChemPr & Second

Au post #10 dans ton code voila ce que tu mets!
Sheets(2).Activate!

Et encore
Code:

1 2 Workbooks.Open (ChemPr & "CopieCollTest.xlsm") 'ça cela fonctionne Workbooks.Open (ChemSc & "Congel Mcg.xlsx")

10/08/2015, 11h42
mouftie

Bonjour Joé,

Merci beaucoup pour toutes tes précisions, elles me sont très précieuses.

J'ai encore un pb, maintenant que mes déclarations sont modifiées mes variables prennent bien les valeurs sauf une pour le motif "L'indice n'appartient pas à la sélection"

Code:

Set WbSc = Workbooks(ChemSc & "Congel Mcg.xlsx") 'Nom du classeur secondaire

Je rappelle qu'il s'agit d'un fichier qui n'est pas encore ouvert au moment où la macro est lancée ; ChemSc a bien la valeur du chemin avec \ en fin et que le fichier "Congel Mcg.xlsx" existe bien dans le chemin ChemSc

Merci
10/08/2015, 11h54
Invité

Bonjour,

Citation:

Envoyé par mouftie

Bonjour Joé,
Je rappelle qu'il s'agit d'un fichier qui n'est pas encore ouvert au moment où la macro est lancée ; ChemSc a bien la valeur du chemin avec \ en fin et que le fichier "Congel Mcg.xlsx" existe bien dans le chemin ChemSc

Merci

Code:

Set WbSc = Workbooks.open(ChemSc & "Congel Mcg.xlsx") 'Nom du classeur secondaire
10/08/2015, 17h29
mouftie

Bonsoir rdurupt,
Merci de ta réponse, mais mon objectif ici n'est pas d'ouvrir le fichier ou de travailler dedans.
Par la suite je devrais l'ouvrir, le fermer, qqun d'autre apportera des données et je devrais le rouvrir pour les récupérer. Et de même pour d'autres.
C'est pourquoi mon objectif est de créer une Sub Ini() pour rassembler toutes les variables de fichiers.
Ensuite il me suffit de faire une Call Ini.

Bonjour,

tu peux préparer tes variables certes, mais dans le cadre d'un classeur qui n'est pas encore ouvert, tu ne peux pas emprunter le chemin direct

un exemple, dans un module standard
Code:

1 2 Const Chemin as String = "C:\" Const NomFichier as String = "MonClasseur.xlsm"
et avec ça tu peux facilement retrouver ton objet classeur quand tu en as besoin, dans n'importe quelle procédure du projet, comme ça :

Code:

Set Wb = Workbooks.Open(Chemin & NomFichier)

A noter qu'on est pas obligé d'avoir un chemin écrit en dur dans le code, dans ce cas là tu passes par des variables publiques plutôt que des constantes :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public Chemin As String Public NomFichier As String Sub Init() Chemin = Feuil1.[A1] NomFichier = Feuil1.[A2] End Sub Sub UneMacro() Call Init ' et tu fais ce que tu veux ' ici j'ouvre le classeur Set Wb = Workbooks.Open(Chemin & NomFichier) End Sub
Suivant tes besoins, tu peux également placer un

Code:

Call Init

dans la procédure Workbook_Open()
Cette procédure Init servira donc à paramétrer tes variables (objet ou non)

11/08/2015, 08h19
mouftie

Bonjour Joé,

Merci encore pour toutes tes précisions et ta patience, j'ai beaucoup apris et surtout, j'ai une méthode qui me sera bien utile à l'avenir.

Merci à tous, bonne journée