Ouvrir excel et classeur à partir d'un bouton controle

[bichon]

Hello a tous c'est bichon comme tous les soirs qui pose une question
Voila aujourd'hui cela concerne l'ouverture d'excel
je m'explique
en fait j'ai une application vba sous excel
j'ai plusieurs userform qui contienne des listes des optionsbuttons et des boutons de la barre d'outils controle de vb
plusieurs boutons servent a ouvrir des classeurs excels grace a workbook open filename:= ..........
et je suis obligé soit de cacher la userform soit d'utiliser le mode modal
vu que je bosse sur excel 97 j'ai utilisé un code qui fait appel a des API mais quelques bugs subsistes
j'en viens enfin a ma question (rires ..)
au lieu d'ouvrir des classeurs dans le "meme" excel que mon application j'aimerai pouvoir ouvrir un "nouveau" excel avec le classeur
qui lui attriburer
tout le monde a compris en gros j'espere
merci d'avance
bonne surf

bichon

 

[renato]

salut bichon et le forum
j'ai pas tout saisi mais essai ceci





Sub explor()
'
' explor Macro
'
Dim retval As Double
'

retval = Shell("C:\Program Files\Microsoft Office\Office\excel.exe", 4)
'
End Sub


bien entendu si tu est sous windows 95 98 Millenium
et attache cette macro à un bouton

bonne chance
renato

 

[bichon]

ok renato
merci
et apres ca je met le chemin du classeur a ouvrir c ca?
je fais comment?

 

[renato]

de deux choses l'une ou le classeur est invariable ou il est variable.
La palice arrive....
si il est invariable tu l'ajoute à la macro comme suit :


retval = Shell("C:\Program Files\Microsoft Office\Office\excel.exe c:\MES\classeur.xls", 4)

si il est variable tu peu le rajouter comme ca en remplaçant le texte par une variable

dim chemin as string ::::
dim clas as string :::: = nom du classeur

chemin ="C:\Program Files\Microsoft Office\Office\excel.exe " & clas

retval = Shell(chemin,4)

bons test @+
renato

 

[bichon]

ok je testerai ca
je te renvoie un message demin soir pour te dire ok
bonne soirée

 

[bichon]

salut renato comme promi je reviens ce soir pour te laisser le resultats de mes tests lol
ben alors j'ai essayé un peu tout et il ouvre le nouveau excel sans problème par contre
le classeur ne se charge pas je comprend pas pourquoi
voici mon code

dim chemin as string
dim clas as string = "F:\Metachut 2003\Optmet\fiches\essai.xls

chemin ="C:\Program Files\Microsoft Office\Office\excel.exe " & clas

retval = Shell(chemin,4)

il m'as mis des erreurs sur le chemin du classeur
et sur les :::: que tu ma mis c'est quoi ca ::::?

j'ai egalement essayé la methode invariable mais il ouvre excel mais pas le classeur
pourtant le chemin est bon
est ce parce que quand on ouvre excel un nouveau classeur se charge automatiquement ou autre chose?
merci pour ton aide c'est tres important pour moi
aide moi stp

merci

jp

 

[Jean-Marie]

Bonsoir à vous toutes et tous

Bichon, essaye en enlevant l'espace indiqué entre Metachut et 2003, comme par exemple "F:\Metachut2003\Optmet\fiches\essai.xls

Tiens-nous au courant

Jean-Marie

 

[bichon]

ok jean marie jessayerai mais tu pense que ca vient de la
moi je pense pas
le code te parait bon?

 

[Jean-Marie]

Re

Le code VBA est inconnu pour moi, je t'ai donné cette info en fonction de ma propre expérience sur une plateforme de développement-SGBD.

A+

Jean-Marie

 

[renato]

bonsoir bichon jean marie et tutti quanti,
désolé du retard, j'etais absent.
Bichon, jean marie a partiellement raison il serait bon de supprimer l'espace
entre metachut&2003 mais il serait bon de le supprimer aussi dans le répertoire du disque F: sinon il ne le trouvera pas non plus. un espace parasite peu en effet causer des perturbations au niveau des paths. Ceci
dit, excuse moi des :::::: ils ne servaient que de séparation et d'explications.
La syntaxe exacte serait, et en fonction de tes données :

dim chemin as string
dim clas as string

clas= "F:\Metachut2003\Optmet\fiches\essai.xls

chemin ="C:\Program Files\Microsoft Office\Office\excel.exe " & clas

retval = Shell(chemin,4)

mefie toi de windows NT il n'apprecie pas du tout les espaces dans les noms de répertoire, mais dans windows 95 98 millenium cela ne l'ennui pas.

le non fonctionnement viendrait de la non initialisation du nom : clas

puisque tu lui indique ="F:........" juste derrière la déclaration et non en fixant une donné a une variable clas="F/......."

j'espere que maintenant cela fonctionne correctement
A bientôt a tous

renato

 

[bichon]

ok renato merci
ben je supprimer l'espace et jespere que ca ira
merci

 

[bichon]

merci beaucoup renato je bosser avec windows nt et c'est vrai que les espaces il aime pa ca
maintenant ca marche bien je tenais a te remercier
merci
bye