Bonjour,
Je fais des essais avec getobject() pour attaquer une feuille non ouverte.
Le code: valeur=getobject("essai.xls").sheets(1).cells(1,2) fonctionne trés
bien ,je voudrais le faire en boucle.
Je crée une variable:
Dim Myxl as object
Set Myxl=getobject("essai.xls")
Myxl.sheets(1).cells(1,2) ne fonctionne pas erreur de propriétés sur
l'objet.
Comment utiliser l'objet Myxl...?
Merci d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Bruno,
Voici un exemple utilisant les 2 syntaxes :
A = GetObject("c:classeur1.xls").Worksheets(1).Range("A1")
OU
'Déclaration du type de l'objet Dim Wk As Workbook 'Instancier l'objet : Set Wk = GetObject("c:atravailclasseur1.xls") 'Revoici ta ligne de code... A = Wk.Worksheets(1).Range("A1")
Maintenant, tu peux te permettre d'utiliser la variable Wk en lieu et place de "GetObject("c:atravailclasseur1.xls")" dans ta procédure. Si tu as déclaré Wk au niveau du module ou comme une variable Public, elle sera valide dans toutes tes procédures... il ne faut pas cependant oublier de l'instancier !
Salutations!
"Bruno" a écrit dans le message de news: % Bonjour, Je fais des essais avec getobject() pour attaquer une feuille non ouverte. Le code: valeur=getobject("essai.xls").sheets(1).cells(1,2) fonctionne trés bien ,je voudrais le faire en boucle. Je crée une variable: Dim Myxl as object Set Myxl=getobject("essai.xls") Myxl.sheets(1).cells(1,2) ne fonctionne pas erreur de propriétés sur l'objet. Comment utiliser l'objet Myxl...? Merci d'avance.
Bonjour Bruno,
Voici un exemple utilisant les 2 syntaxes :
A = GetObject("c:classeur1.xls").Worksheets(1).Range("A1")
OU
'Déclaration du type de l'objet
Dim Wk As Workbook
'Instancier l'objet :
Set Wk = GetObject("c:atravailclasseur1.xls")
'Revoici ta ligne de code...
A = Wk.Worksheets(1).Range("A1")
Maintenant, tu peux te permettre d'utiliser la variable
Wk en lieu et place de "GetObject("c:atravailclasseur1.xls")"
dans ta procédure. Si tu as déclaré Wk au niveau du module
ou comme une variable Public, elle sera valide dans toutes tes
procédures... il ne faut pas cependant oublier de l'instancier !
Salutations!
"Bruno" <bphesans@infonie.fr> a écrit dans le message de news: %23lg72H09FHA.3560@TK2MSFTNGP12.phx.gbl...
Bonjour,
Je fais des essais avec getobject() pour attaquer une feuille non ouverte.
Le code: valeur=getobject("essai.xls").sheets(1).cells(1,2) fonctionne trés
bien ,je voudrais le faire en boucle.
Je crée une variable:
Dim Myxl as object
Set Myxl=getobject("essai.xls")
Myxl.sheets(1).cells(1,2) ne fonctionne pas erreur de propriétés sur
l'objet.
Comment utiliser l'objet Myxl...?
Merci d'avance.
A = GetObject("c:classeur1.xls").Worksheets(1).Range("A1")
OU
'Déclaration du type de l'objet Dim Wk As Workbook 'Instancier l'objet : Set Wk = GetObject("c:atravailclasseur1.xls") 'Revoici ta ligne de code... A = Wk.Worksheets(1).Range("A1")
Maintenant, tu peux te permettre d'utiliser la variable Wk en lieu et place de "GetObject("c:atravailclasseur1.xls")" dans ta procédure. Si tu as déclaré Wk au niveau du module ou comme une variable Public, elle sera valide dans toutes tes procédures... il ne faut pas cependant oublier de l'instancier !
Salutations!
"Bruno" a écrit dans le message de news: % Bonjour, Je fais des essais avec getobject() pour attaquer une feuille non ouverte. Le code: valeur=getobject("essai.xls").sheets(1).cells(1,2) fonctionne trés bien ,je voudrais le faire en boucle. Je crée une variable: Dim Myxl as object Set Myxl=getobject("essai.xls") Myxl.sheets(1).cells(1,2) ne fonctionne pas erreur de propriétés sur l'objet. Comment utiliser l'objet Myxl...? Merci d'avance.
