Private Sub CommandButton1_Click()

[MARIE74]

B) Bonjour toutes et a tous

Météo: 12° nuageux leger vent du nord (region Megeve)


Petit probleme

J'ai un commandbutton qui fonctionne bien mais depuis que j'ai changé la feuille de place patatra ca BUG
Avant la feuille etait dans le meme classeur

Alors faut il mettre le chemin complet du genre c:kdjfdk/qgjqjg/calcul divers ou autre chose je ne sais pas faire désolée!

La macro ci dessus

Private Sub CommandButton1_Click()
Sheets('CALCUL DIVERS').Visible = True
Worksheets('CALCUL DIVERS').Activate
End Sub


Merci d'avance pour votre aide

 

[Creepy]

Bonjour le Forum, Marie,

Je ne comprends pas tres bien ta demande, peut être parce que je reviens de vacances et que je suis pas encore reveillé ! lol

Peux-tu mettre ton fichier en exemple stp merci

@+

Creepy

 

[Robert]

Bonjour Marie, bonjour le forum,

Si ta feuille se trouve dans une autre classeur il te faut commencer par activer ce claseur (je présume qu'il est déjà ouvert) puis activer l'onglet en question :

Workbooks('Ton_classeur.xls').Activate
Sheets('Ta_feuille').Activate

Édition

Bonjour Creepy on s'est croisés.

Message édité par: Robert, à: 19/09/2005 13:44

 

[MARIE74]

B) Re a tous

Bien le bonjour Creepy et merci

C'est vrai c'est pas clair

Alors pour faire simple

Dépuis que j'ai deplacé ma feuille dans un autre classeur cela ne fonctionne plus

Message d'erreur:

Erreur d'éxécution 9 l'indice n'appartient pas a la selection

Désolé fichier trop gros pour mettre mettre copie

Merci

 

[Robert]

Bonjour le Marie, Creepy, bonjour le forum,


Heu Marie ! Je sens le pâté ?

 

[MARIE74]

B) Re a tous


Désolé SUPER Robert mais le paté de campagne ??!! bon j'aime bien mais pas trop

Mais non je plaisante je ne t'avais pas vuuuue

Accepte toute mes excuses

Bisou

 

[Robert]

Bonjour le fil, bonjour le forum,

Ha bon j'ai eu peur... j'ai cru que c'était à cause de ma nouvelle eau de toilette 'Fleur d'Anus'. Heu d'anis ! D'anis...

 

[MARIE74]

B) Re a tous

ROBERT au secoure

Je panique j'ai toujours ce message

Message d'erreur:

Erreur d'éxécution 9 l'indice n'appartient pas a la selection

Workbooks('Ton_classeur.xls').Activate
Sheets('Ta_feuille').Activate

Quand tu dis 'Ton classeur.xls' faut il mettre le nom avec .xls

Pour infos
Ce commadbutton doit ouvir un feuille dans un autre classeur
et depuis cet autre classeur je reviens via un commadbutton au classeur initial
comme je l'ai dit d'un classeur a feuille et retour cela marchait bien.

Merci d'avance pour ton aide

 

[Robert]

Bonjour Marie, Creepy, bonjour le foroum,

Comme je te le disais plus haut j'ai considéré que le classeur était déjà ouvert. Est-ce bien le cas ? Sinon ou faut dire au code de l'ouvrir mais il faut connaître le chemin d'accès complet, avec :
Application.Workbooks.Open('Chemin_d'accès_complet \\ nom_du_fichier.xls').

Si tu n'y arrives pas donne-moi les noms et les chemins d'accès complets des deux classeurs. Le classeur source qui contient le bouton et le classeur cible qui est renvoyé par ce bouton.

p.s. oui il y a bien .xls dans le nom du fichier...

 

[MARIE74]

B) Re a tous

Ci joint chemin des classeurs

Chemin du classeur initial d’où je dois ouvrir le classeur « calcul divers »
F:\\Commercial\\DEVIS\\Devis calcul\\Calcul base tarif\\Projet\\Nouveau CPI BK EURO 2005

Chemin du classeur a ouvrir
F:\\Commercial\\DEVIS\\Devis calcul\\Calcul base tarif\\Base de calcul CPI\\calcul divers


Effectivement mon classeur etait ouvert

 

[Robert]

Bonjour Marie, bonjour le forum,

test de chemin d'accès

'C:\\sdfsdfj\\eerthert\\dgfdslgjdlf\\fgkdfg'

Je n'ai pas les antislash dans les chemins que tu me donnes. Il faudrait que tu me les renvoies mais en les sélectionnant et en cliquant sur Quote ou Code.

En fait, je ne comprends plus rien. Si tes deux classeur sont déjà ouverts, tu n'as pas besoin de l'ouvrir et les deux premières lignes que je t'avais envoyées devraient être suffisantes :

Workbooks('Ton_classeur.xls').Activate
Sheets('Ta_feuille').Activate

mets-tu bien les guillemets tant pour le nom du classeur (avec l'extension .xls) que pour l'onglet ?

 

[MARIE74]

B) Re a tous

Merci ROBERT

Je suis tres pressée il faut que je rentre

Je regarde tout ça demain matin et j'te tient au courant

Encore Merci pour le temps que tu passes sur mon probleme


Bonne soirée

A demain


Grosses bisses

 

[MARIE74]

B) Bonjour a toutes et a tous

Météo 10° tres nuageux

Merci a tous

OK Robert c'est parfait cela fonctionne



Merci tout plein

Bonne journée