lien entre classeurs avec un commandbutton

[thomas gorski]

Bonjour le forum,

je n'arrive pas à trouver la formule pour ouvrir un autre classeur grace à un bouton (le choix se fait grâce à une combobox)

merci d'avance pout vos conseils

ps: plus d'explications avec le fichier joint
encore merci

 

[Cruelo]

Bonjour le forum, bonjour thomas,

g pas vu ton fichier mais je pense que c ce que je te met en dessous

Private Sub CommandButton1_Click()
ChDir "C:\Mesfichiers" 'destination du fichier
Workbooks.Open Filename:= _
"Facture.xls" ' nom du fichier a ouvir
End Sub

 

[Cruelo]

re


ah bah apres avoir vu ton fichier je me rend compte que la designation "classeur" n'as pas la meme definition chez toi que chez moi

un classeur contient des feuilles donc pour moi un classeur et un autre fichier et non une autre feuille ..

desoler je pensait pouvoir aider !

 

[Cruelo]

g trouver je te poste ca de suite

 

[Cruelo]

Re bonjour,

Effectivement comme tu le disait c'est une combobox


je savait mm pas faire ca il y as ql minute je devient bon !!

 

[Cruelo]

re me revoila !

celui du dessus qd tu selectionne ds le combox ca vas directement sur la feuille sans cliquer sur le bouton

dans celui ci qd tu selectione ds la liste et que tu clic sur le bouton sur vas sur la page aproprier !

j'espere que ca te vas !

 

[Cruelo]

re !

tu pouras suprimer

Private Sub ComboBox1_Click()
If ComboBox1.Value = "Répartition des emplois salariés par âge et temps de travail" Then
'Application.Sheets("graphique").Select
ActiveSheet.Range("a1").Select
ElseIf ComboBox1.Value = "Répartition des emplois non-salariés par âge et statut" Then
'Application.Sheets("graphique").Select
ActiveSheet.Range("a2").Select
ElseIf ComboBox1.Value = "Répartition des emplois par âge" Then
'Application.Sheets("graphique").Select
ActiveSheet.Range("a3").Select
ElseIf ComboBox1.Value = "Répartition des emplois par âge (en%)" Then
'Application.Sheets("graphique").Select
ActiveSheet.Range("a4").Select
ElseIf ComboBox1.Value = "Répartition des emplois par âge et statut" Then
'Application.Sheets("graphique").Select
ActiveSheet.Range("a5").Select
End If
End Sub

j'avait mis des ' pour eviter qu'il y aille !!

desoler que cela n'as pas ete parfait des le premier coup

 

[Cruelo]

re re Bonjour,

Bon en fait je croit que g eu les idees embrouiller et que g mal compris

tu veus vraiment qu'il ouvre un autre classeur g enfin compris c ca :

Private Sub CommandButton2_Click()
If ComboBox2.Value = "Répartition des emplois salariés par âge et temps de travail" Then
ChDir "c:\MesFichiers" 'destination du fichier
Workbooks.Open Filename:= _
"source.xls" 'nom du fichier a ouvrir
Application.Sheets("Feuil2").Select 'nom de la feullie que tu veus ouvrir
ActiveSheet.Range("a1").Select
ElseIf ComboBox2.Value = "Répartition des emplois non-salariés par âge et statut" Then
Application.Sheets("graphique").Select
ActiveSheet.Range("a2").Select
ElseIf ComboBox2.Value = "Répartition des emplois par âge" Then
Application.Sheets("1").Select
ActiveSheet.Range("a3").Select
ElseIf ComboBox2.Value = "Répartition des emplois par âge (en%)" Then
Application.Sheets("2").Select
ActiveSheet.Range("a4").Select
ElseIf ComboBox2.Value = "Répartition des emplois par âge et statut" Then
Application.Sheets("3").Select
ActiveSheet.Range("a5").Select
End If
End Sub

 

[thomas gorski]

Bonjour au forum et tout particulièrement à cruelo

merci pour tes conseils, je n'étais pas là hier donc pas le temps de bosser dessus

je vois si je réussis à me dépatouiller avec tout ça et e te tiens au courant

encore merci

 

[thomas gorski]

Re bonjour,

Cruelo, Bravo

ça marche,

je cherche de mon côté mais j'ai un autre soucis

en fait, je ne peux pas déplacer le fichier.
je m'explique.
j'ai mon fichier principal avec la combobox et le button
et les autres fichiers-liens

donc si je mets les fichiers liens dans le bureau ou ailleurs je crée les liens en fonction ex:

If ComboBox2.Value = "Répartition des emplois salariés par âge et temps de travail" Then
ChDir "c:\Documents and Settings\PC\Bureau" 'destination du fichier
Workbooks.Open Filename:= _
"tom.xls" 'nom du fichier a ouvrir

Mais si je déplace tom.xls du bureau alors logiquement les liens ne marchent plus

ce que j'aimerais faire: un dossier BASE avec le fichier doctom.xls et dans ce même dossier les dossiers liens comme tom.xls

le but serait de chercher le lien dans le dossier afin de pouvoir déplacer le dossier BASE d'un endroit à un autre sans refaire les liens.

Merci d'avance, tom

ps: ce forum est une mine de savoirs
j'espère que l'on va réussir à trouver une solution

 

[CHti160]

Salut "Thomas"
bonjour le "FORUM"
en pièce jointe un dossier qui contient(doctom et un dossier BASE) tu les places à l'endroit que tu veux et tu modifies dans le code le chemin ou alors plus simple tu enregistre ce chemin, avec l'enregistreur de macro et tu colles.
je ne sais pas si j'ai bien compri mais du fichier doctom tu ouvres 3 fichiers differents qui se trouvent dans le classeur BASE et qui comportent chacun une feuille Graph et sur cette feuille je t'ai mis des liens vers deux fichiers qui eux aussi se trouve dans BASE
donc cela pourra peut être t'aider
n'hésite pas à revenir dans la limite de mes petites compétences
A+++
Jean Marie

 

[thomas gorski]

Re bonjour le forum, cruelo et jean marie

je vous ai mis un dossier, pour bien comprendre ce que je voudrais faire

il faut prendre les 2 fichiers xls du dossier et les placer dans le bureau

à partir de là, le dossier doctom permet de faire un choix grâce à la combobox

lorsque le choix est effectué, on utilise le button qui ouvre un autre classeur

ici lors du premier choix dans la combobox (désolé, je n'ai pas fait tous les liens)
on ouvre le classeur tom

le problème: si je déplace le dossier doctom et/ou tom du bureau, les liens ne marchent plus

ce qu'il faudrait, c'est trouver une formlule qui permet d'associer les liens à un dossier précis que l'on pourrait déplacer d'un ordi à un autre.

merci pour vos conseils

tom

 

[thomas gorski]

Bonjour le forum,

Je reviens à la pêche aux infos et conseils.

En fait je ne trouve pas de solution à mon problème.

C'est à dire créer un lien entre des fichiers xls et pouvoir les déplacer ensuite sans modifier ces mêmes liens.

Merci d'avance pour vos conseils, tom