Enregistrer des paramètres dans une macro xla

Version imprimable

05/10/2008, 12h16
Daejung

Enregistrer des paramètres dans une macro xla

Bonjour,

Avec une macro xla, est-il possible d'écrire non dans une feuille du classeur xls mais dans une feuille de la macro xla elle-même?

Je voudrais que chaque utilisateur puisse enregistrer ses propres paramètres nécessaires au fonctionnement de la macro.

Merci
05/10/2008, 13h02
myDearFriend!

Bonjour jlgcf,

Si je comprends bien ta question...

Une macro complémentaire (.xla) est avant tout un fichier sans aucune feuille visible. Ce classeur n'est donc jamais le classeur "actif". Ainsi, dans ton code, si tu dois pointer sur une feuille de ce classeur particulier, tu ne dois donc pas faire référence à l'ActiveWorkbook ou l'ActiveSheet par exemple.

Pour ne pas te tromper, le moyen le plus sûr est encore d'utiliser systématiquement la propriété ThisWorkbook, comme ceci :

Code:

ThisWorkbook.Sheets(1).Range("A1").Value = LaValeur

La propriété ThisWorkbook renvoie toujours le classeur dans lequel le code s'exécute.

Cordialement,
05/10/2008, 14h41
Daejung
Ok merci je vais tester cela et reviendrai

Je me suis aperçu par ailleurs que dans mon classeur j'avais la même procédure à la fois dans Microsoft Excel Objets et dans Modules de classe
Code:

1 2 3 4 5 Private Sub Workbook_Open() ..... End sub
Une fois sous ThisWorkbook et une 2ème sous ThisWorkbook1

A quoi correspond cette notion de "Modules de classe"?

Merci pour ton aide
05/10/2008, 15h07
Montor

http://www.developpez.net/forums/d62...r/#post3667871
Pour ecrire dans le classeur ouvert utiliser ActiiveWorkbook
05/10/2008, 17h58
Daejung

Pas compris ce que tu voulais me dire
05/10/2008, 19h55
Daejung
Citation:

Envoyé par myDearFriend!

Bonjour jlgcf,

Pour ne pas te tromper, le moyen le plus sûr est encore d'utiliser systématiquement la propriété ThisWorkbook, comme ceci :

Code:

ThisWorkbook.Sheets(1).Range("A1").Value = LaValeur

La propriété ThisWorkbook renvoie toujours le classeur dans lequel le code s'exécute.

Cordialement,

Dans ton exemple c'est une procédure de la macro complémentaire qui va écrire dans une feuille du classeur xla.

Si je veux aussi pouvoir écrire dans cette feuille du classeur xla à partir du d'une macro classeur xls, comment dois je faire référence à cette feuille de la macro complémentaire? Comme ceci ? :
Code:

1 2 3 4 5 6 Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("Macro.xla").Worksheets(1).Range("A1").Value= _ ActiveWorkbook.Worksheets("Feuil1").[A1].Value End Sub
Merci
05/10/2008, 20h16
myDearFriend!

Re,

Oui, ça me parait une façon de faire tout à fait correcte, mais le mieux est toujours de tester, qu'en penses-tu ?

Attention toutefois à ActiveWorkbook : si tu fermes ton classeur xls par macro notamment, l'ActiveWorkbook ne sera pas forcément celui qui contient tes instructions (tout dépend de ce que l'utilisateur aura ouvert dans Excel). Je réitère donc mon conseil plus haut (n'en déplaise à delphidelphi ;)), il vaut mieux utiliser ThisWorkbook si tu veux faire référence au classeur contenant le code en cours.

Il convient également de veiller à ce que la xla soit installée sur le poste de l'utilisateur, sinon.... plantage assuré !

Par ailleurs, pour ma part, je ne suis pas très fan du mélange de notation Range("A1") et [A1] dans la même instruction. Pourquoi faire un mélange ? Soit tu optes pour l'un ou pour l'autre, mais mélanger les deux, je ne vois pas trop l'intérêt...

Cordialement,
Didier_mDF

ce code permts d'executer des actions achaque ouverture d'un fichier
le code de class nomme class1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Explicit
Public WithEvents App As Application
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If Wb.Name <> ThisWorkbook.Name Then
  With Wb
'faire quelque chose a chaque ouverture d'un fichier
.ActiveSheet.Cells(1) = Wb.Name 'ecrit le nom de fichier dans sa cellule1
MsgBox "Actionner"
End With
End If
End Sub

Code:

1
2
3
4
5
6
 
Option Explicit
Dim X As New Classe1
Private Sub Workbook_Open()
Set X.App = Application
End Sub

sinon voici le fichier

05/10/2008, 21h46
Daejung

Citation:

Envoyé par myDearFriend!

Re,

Par ailleurs, pour ma part, je ne suis pas très fan du mélange de notation Range("A1") et [A1] dans la même instruction. Pourquoi faire un mélange ? Soit tu optes pour l'un ou pour l'autre, mais mélanger les deux, je ne vois pas trop l'intérêt...

Didier_mDF

Je ne suis qu'un "amateur", c'est la raison ;-)

Autrement ça marche. Il faut aussi sauvegarder la macro après écriture, aucun message ne rappelle de le faire

Merci

Citation:

Envoyé par delphidelphi

ce code permts d'executer des actions achaque ouverture d'un fichier
le code de class nomme class1

Ok merci mais je ne sais pas ce qu'est un "module de classe" ou un "code de classe" ni à quoi sert ce code
07/10/2008, 17h29
Montor

Bonjour
Pour le bon déroulement de la discussion il est mieux que te nous donne plus de détails sur ton problème que commenter mes postes

:mouarf: