Discussion :

[Daejung]

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

[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 :

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

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

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

Cordialement,

[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 :

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

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

[Montor]

http://www.developpez.net/forums/d62...r/#post3667871
Pour ecrire dans le classeur ouvert utiliser ActiiveWorkbook

[Daejung]

Pas compris ce que tu voulais me dire

[Daejung]

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 :

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

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 :

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

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

[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

[Montor]

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

Code :

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

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 :

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

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

[Daejung]

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

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

[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