Collection par variableRésolu

Question

Bonjour

Je cherche depuis plusieurs &#224; faire passer une variable dans une collection.

Mon projet va chercher dans une BDD le type de document &#224; ouvrir. Workbooks pour Excel et Documents sir c'est Word.
Je souhaite que ce projet &#233;volutif par lui m&#234;me et que donc, si un nouveau type est utilis&#233;, il soit simplement ajout&#233; &#224; la BDD sans que personne ne soit oblig&#233; de rentrer dans le code.

Dim fctapp as Object
Dim fctfichier as Object

Set fctapp = CreateObject(strapplication)  'strapplication renvoi Excel.Application ou Word.Application
    
Set fctfichier = fctapp.workbooks.Open(strvierge & strtype & " Vierge" & strextension)

'strvierge --> renvoi une partie du chemin d'adresse
'strtype --> renvoi une autre partie du chemin d'adresse
'strextension --> renvoi .xls ou .doc

Je souhaiterais trouver un moyen pour que Workbooks ici en rouge, soit remplacer par une variable qui irait chercher dans la BDD soit, Workbooks, soit Documents.

J'ai essay&#233; pas mal de chose, la cr&#233;ation d'une nouvelle collection, passer par un objet mais rien y fait ...

Quelqu'un aurait il une id&#233;e et/ou une solution ????

Merci

rvblog · Accepted Answer

Salut 742589 Teoftene, salut =941 Willi, salut 9517 JMO, Teoftene, ce qu'il te manque, c'est la fonction CallByName (méconnue, mais VB quand même). Cela donnera, dans ton cas : Dim fctApp As Object' notes: la casse Chameau, c'est plus lisible Dim objConteneur as Object Dim fctFichier as Object Set fctApp = CreateObject(strApplication) 'strApplication renvoi Excel.Application ' ou Word.Application 'récupère la collection et affecte sa référence dans objConteneur Set objConteneur = CallByName (fctApp, _ strNomObjetConteneur, _ VbGet)'strNomObjetConteneur contient soit ' "Documents" soit "WorkBooks" 'et ensuite on appelle la méthode que l'on veut 'soit comme ça (bôf) Set fctFichier = objConteneur.Open(strVierge & strType & " Vierge" & strExtension) 'soit comme ça (ah, yes!) Set fctFichier = CallByName(objConteneur, _ "Open", _ VbMethod, _ strVierge & strType & " Vierge" & strExtension) PS : n'oublies pas d'accepter la réponse, si c'est celle que tu attendais depuis longtemps, et surtout, si tu l'as testée et validée! à+ rvblogn^{Je veux ton bien... et je l'aurais}

cs_Willi · Answer

Bonsoir,
Je n'ai pas trop compris.
Avant l'appel de l'instruction: Set fctfichier = fctapp.workbooks.Open(strvierge & strtype & " Vierge" & strextension)
Quelles sont les valeurs de strvierge, strtype et strextension ?

cs_JMO · Answer

Bonsoir,

var = "workbooks"
msgbox "Set fctfichier = fctapp." & var &  ".Open

Teoftene · Answer

Sur mon projet, j'ai plusieurs type de fichier. Pour plus de clart&#233;, disons qu'il y aura un type A, un B, un C et un D.

strvierge = "c:\monprojet"
strtype = "B"
strextension = ".xls"

Donc cela ouvre le fichier "B Vierge.xls" se trouvant dans le dossier "c:\monprojet"

JMO j'ai essay&#233;, ca m'affiche bien ce que je recherche, mais impossible de d'assigner une variable dans l'objet fctfichier.
L'erreur qu'il ressort : "Objet requis"

Je cherche &#224; ce que cela donne :

var ="Workbooks"
Set fichier = fctapp.var.Open(strvierge & strtype & " Vierge" & strextension)

Mais ca veut po

Teoftene · Answer

O&#249; se trouve le temple dans lequel je dois t'aduler ???

=)

Grand merci

Collection par variable

5 réponses

Discussions similaires