Davhippo a écrit :
Bonjour,
apres de multiple recherche je me demande quel est la différence entre
ThisComponent et CurrentComponent?
Certains expliquent que tous les deux se rapportent au document actif et que la
différence réside dans le fait que ThisComponent représente le fichier
contenant la macro...
Jusque maintenant j'utilisais uniquement thisComponent, que la macro se
trouve ou non dans le document actif.
Mais j'ai décidé de remplacer toutes références à "thisComponent" par
"documentCourant", et de mettre en ligne les macros suivantes, que je
n'ai pas encore complètement testées.
A+
Ph.
--
-------------------------------------------------------
'
' Gestion du document courant au travers d'une pile.
' la fonction "documentCourant" renvoi le document
' au sommet de la pile
' les sous-pogrammes "nouveauDocumentCourant" et
' "abandonnerDocumentCourant" ajoutent et retirent un
' document au sommet de la pile.
' Ces deux sous-programmes doivent OBLIGATOIREMENT
' être utilisés de pair dans une même séquence
' ininterruptible
'
Private taillePileDocuments as Integer
Private pileDocuments(10) as object
Function documentCourant() as Object
if taillePileDocuments = 0 then
documentCourant = thisComponent
else
documentCourant = pileDocuments(taillePileDocuments)
end if
End Function
Sub NouveauDocumentCourant(unDocument as Object)
taillePileDocuments = taillePileDocuments + 1
pileDocuments(taillePileDocuments) = unDocument
end sub
sub AbandonnerDocumentCourant()
taillePileDocuments = taillePileDocuments -1
end sub