Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$ba4acef3@reader.news.orange.fr...
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$ba4acef3@reader.news.orange.fr...
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4befce08$0$2956$
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il
fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" a écrit dans le message de news:Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles
:
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4befce08$0$2956$ba4acef3@reader.news.orange.fr...
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il
fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
3BB3E4B4-6FC6-4AB8-B42D-46E5010ECD71@microsoft.com...
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$ba4acef3@reader.news.orange.fr...
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles
:
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4befce08$0$2956$
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il
fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" a écrit dans le message de news:Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles
:
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4befce08$0$2956$
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il
fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" a écrit dans le message de news:Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles
:
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4befce08$0$2956$ba4acef3@reader.news.orange.fr...
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il
fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
3BB3E4B4-6FC6-4AB8-B42D-46E5010ECD71@microsoft.com...
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$ba4acef3@reader.news.orange.fr...
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles
:
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4befce08$0$2956$
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il
fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" a écrit dans le message de news:Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles
:
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Que signifie "Elt" dans "For Each Elt In Sheets(etc....)"
"michdenis" a écrit dans le message de news:Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de groupe de discussion
: 4befce08$0$2956$
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" a écrit dans le message de news:Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Que signifie "Elt" dans "For Each Elt In Sheets(etc....)"
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news: OMuvqtO9KHA.3592@TK2MSFTNGP05.phx.gbl...
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de groupe de discussion
: 4befce08$0$2956$ba4acef3@reader.news.orange.fr...
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
3BB3E4B4-6FC6-4AB8-B42D-46E5010ECD71@microsoft.com...
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$ba4acef3@reader.news.orange.fr...
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Que signifie "Elt" dans "For Each Elt In Sheets(etc....)"
"michdenis" a écrit dans le message de news:Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de groupe de discussion
: 4befce08$0$2956$
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" a écrit dans le message de news:Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles :
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4befce08$0$2956$
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il
fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" a écrit dans le message de news:Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles
:
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4befce08$0$2956$ba4acef3@reader.news.orange.fr...
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il
fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
3BB3E4B4-6FC6-4AB8-B42D-46E5010ECD71@microsoft.com...
Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$ba4acef3@reader.news.orange.fr...
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles
:
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
Bonjour,
Dans la procédure : "InitialiseFichier"
Tu essaies de sélectionner des feuilles qui sont masquées.
Pour pouvoir sélectionner une feuille, cette dernière doit être visible
Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
de la procédure mentionnée, ajoute ceci :
'-----------------------------
For Each Elt In Sheets(Array("Stock", "Mouvements"))
Sheets(Elt.Name).Visible = True
Next
'-----------------------------
Sheets(Array("Stock", "Mouvements")).Select
Le reste de ta macro....
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4befce08$0$2956$
Bjr MichDenis
Voila le lien que tu demandes :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
compléxité, je n'ai pas réussi à faire mieux. Comme je débute, il
fonctionne
avec de petits bouts de code glanés ça et là au fur et à mesure que je
rencontrais des difficultés.
Bonne journée
"michdenis" a écrit dans le message de news:Bonjour,
En théorie, tu ne devrais pas avoir d'erreur.
Si possible, dénude le plus possible ton fichier et publie-le à
cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
l'adresse que tu as obtenue.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
groupe de discussion
: 4beed8ee$0$27588$
Bjr à tous
Je rencontre le problème suivant :
(Excel2003 sous XP Home)
J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Puis sur les deux boutons suivants le code pour ouvrir les deux feuilles
:
Private Sub CommandButton2_Click()
Sheets("Mouvements").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Stock").Select
End Sub
J'obtien en retour une erreur " Erreur d'exécution 1004"
"la méthode select de la classe sheets a échouée"
Où est mon erreur ?
Jak (Débutant)
il s'agit d'une variable, mon fils, que vous pouvez remplacer par
"saucisson" et vous obtiendrez le même résultat
pour ce qui me concerne, j'utilise la variable "ouaille"
Mgr T.B.
"Jaloulou" a écritQue signifie "Elt" dans "For Each Elt In Sheets(etc....)
il s'agit d'une variable, mon fils, que vous pouvez remplacer par
"saucisson" et vous obtiendrez le même résultat
pour ce qui me concerne, j'utilise la variable "ouaille"
Mgr T.B.
"Jaloulou" a écrit
Que signifie "Elt" dans "For Each Elt In Sheets(etc....)
il s'agit d'une variable, mon fils, que vous pouvez remplacer par
"saucisson" et vous obtiendrez le même résultat
pour ce qui me concerne, j'utilise la variable "ouaille"
Mgr T.B.
"Jaloulou" a écritQue signifie "Elt" dans "For Each Elt In Sheets(etc....)
il s'agit d'une variable, mon fils, que vous pouvez remplacer par "saucis son" et vous obtiendrez le même résultat
pour ce qui me concerne, j'utilise la variable "ouaille"
Mgr T.B.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message dene ws: 4bf0140e$0$2984$ba4ac__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z
> Que signifie "Elt" dans "For Each Elt In Sheets(etc....)"
> "michdenis" a écrit dans le message de news:
>> Bonjour,
>> Dans la procédure : "InitialiseFichier"
>> Tu essaies de sélectionner des feuilles qui sont masquées.
>> Pour pouvoir sélectionner une feuille, cette dernière doit être visible
>> Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
>> de la procédure mentionnée, ajoute ceci :
>> '-----------------------------
>> For Each Elt In Sheets(Array("Stock", "Mouvements"))
>> Sheets(Elt.Name).Visible = True
>> Next
>> '-----------------------------
>> Sheets(Array("Stock", "Mouvements")).Select
>> Le reste de ta macro....
>> "Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message d e groupe de discussion
>> : 4befce08$0$2956$
>> Bjr MichDenis
>> Voila le lien que tu demandes :
>>http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
>> A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
>> compléxité, je n'ai pas réussi à faire mieux. Comme je début e, il fonctionne
>> avec de petits bouts de code glanés ça et là au fur et à mesur e que je
>> rencontrais des difficultés.
>> Bonne journée
>> "michdenis" a écrit dans le message de news:
>>
>>> Bonjour,
>>> En théorie, tu ne devrais pas avoir d'erreur.
>>> Si possible, dénude le plus possible ton fichier et publie-le à
>>> cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
>>> l'adresse que tu as obtenue.
>>> "Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
>>> groupe de discussion
>>> : 4beed8ee$0$27588$
>>> Bjr à tous
>>> Je rencontre le problème suivant :
>>> (Excel2003 sous XP Home)
>>> J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
>>> Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
>>> Private Sub CommandButton1_Click()
>>> UserForm1.Show
>>> End Sub
>>> Puis sur les deux boutons suivants le code pour ouvrir les deux feuil les :
>>> Private Sub CommandButton2_Click()
>>> Sheets("Mouvements").Select
>>> End Sub
>>> Private Sub CommandButton3_Click()
>>> Sheets("Stock").Select
>>> End Sub
>>> J'obtien en retour une erreur " Erreur d'exécution 1004"
>>> "la méthode select de la classe sheets a échouée"
>>> Où est mon erreur ?
>>> Jak (Débutant)- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
il s'agit d'une variable, mon fils, que vous pouvez remplacer par "saucis son" et vous obtiendrez le même résultat
pour ce qui me concerne, j'utilise la variable "ouaille"
Mgr T.B.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message dene ws: 4bf0140e$0$2984$ba4ac__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z __@reader.news.orange.fr...
> Que signifie "Elt" dans "For Each Elt In Sheets(etc....)"
> "michdenis" <michde...@hotmail.com> a écrit dans le message de news: OMuvqtO9KHA.3...@TK2MSFTNGP05.phx.gbl...
>> Bonjour,
>> Dans la procédure : "InitialiseFichier"
>> Tu essaies de sélectionner des feuilles qui sont masquées.
>> Pour pouvoir sélectionner une feuille, cette dernière doit être visible
>> Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
>> de la procédure mentionnée, ajoute ceci :
>> '-----------------------------
>> For Each Elt In Sheets(Array("Stock", "Mouvements"))
>> Sheets(Elt.Name).Visible = True
>> Next
>> '-----------------------------
>> Sheets(Array("Stock", "Mouvements")).Select
>> Le reste de ta macro....
>> "Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message d e groupe de discussion
>> : 4befce08$0$2956$ba4ac...@reader.news.orange.fr...
>> Bjr MichDenis
>> Voila le lien que tu demandes :
>>http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
>> A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
>> compléxité, je n'ai pas réussi à faire mieux. Comme je début e, il fonctionne
>> avec de petits bouts de code glanés ça et là au fur et à mesur e que je
>> rencontrais des difficultés.
>> Bonne journée
>> "michdenis" <michde...@hotmail.com> a écrit dans le message de news:
>> 3BB3E4B4-6FC6-4AB8-B42D-46E5010EC...@microsoft.com...
>>> Bonjour,
>>> En théorie, tu ne devrais pas avoir d'erreur.
>>> Si possible, dénude le plus possible ton fichier et publie-le à
>>> cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
>>> l'adresse que tu as obtenue.
>>> "Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
>>> groupe de discussion
>>> : 4beed8ee$0$27588$ba4ac...@reader.news.orange.fr...
>>> Bjr à tous
>>> Je rencontre le problème suivant :
>>> (Excel2003 sous XP Home)
>>> J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
>>> Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
>>> Private Sub CommandButton1_Click()
>>> UserForm1.Show
>>> End Sub
>>> Puis sur les deux boutons suivants le code pour ouvrir les deux feuil les :
>>> Private Sub CommandButton2_Click()
>>> Sheets("Mouvements").Select
>>> End Sub
>>> Private Sub CommandButton3_Click()
>>> Sheets("Stock").Select
>>> End Sub
>>> J'obtien en retour une erreur " Erreur d'exécution 1004"
>>> "la méthode select de la classe sheets a échouée"
>>> Où est mon erreur ?
>>> Jak (Débutant)- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
il s'agit d'une variable, mon fils, que vous pouvez remplacer par "saucis son" et vous obtiendrez le même résultat
pour ce qui me concerne, j'utilise la variable "ouaille"
Mgr T.B.
"Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message dene ws: 4bf0140e$0$2984$ba4ac__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z
> Que signifie "Elt" dans "For Each Elt In Sheets(etc....)"
> "michdenis" a écrit dans le message de news:
>> Bonjour,
>> Dans la procédure : "InitialiseFichier"
>> Tu essaies de sélectionner des feuilles qui sont masquées.
>> Pour pouvoir sélectionner une feuille, cette dernière doit être visible
>> Après la ligne de code ActiveSheet.Shapes("Picture 2").Select
>> de la procédure mentionnée, ajoute ceci :
>> '-----------------------------
>> For Each Elt In Sheets(Array("Stock", "Mouvements"))
>> Sheets(Elt.Name).Visible = True
>> Next
>> '-----------------------------
>> Sheets(Array("Stock", "Mouvements")).Select
>> Le reste de ta macro....
>> "Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message d e groupe de discussion
>> : 4befce08$0$2956$
>> Bjr MichDenis
>> Voila le lien que tu demandes :
>>http://www.cijoint.fr/cjlink.php?file=cj201005/cij9o7vuyn.xls
>> A l'origine ce fichier s'ouvrait sur un fichier "externe" d'où sa
>> compléxité, je n'ai pas réussi à faire mieux. Comme je début e, il fonctionne
>> avec de petits bouts de code glanés ça et là au fur et à mesur e que je
>> rencontrais des difficultés.
>> Bonne journée
>> "michdenis" a écrit dans le message de news:
>>
>>> Bonjour,
>>> En théorie, tu ne devrais pas avoir d'erreur.
>>> Si possible, dénude le plus possible ton fichier et publie-le à
>>> cette adresse cjoint.com ou cijoint.fr et retourne-nous ici
>>> l'adresse que tu as obtenue.
>>> "Jaloulou" <jacnel59arobasewanadoopointfr> a écrit dans le message de
>>> groupe de discussion
>>> : 4beed8ee$0$27588$
>>> Bjr à tous
>>> Je rencontre le problème suivant :
>>> (Excel2003 sous XP Home)
>>> J'ai déssiné avec la "boite à outils" trois boutons sur Feuil1
>>> Le premier j'y ai affecté, pour ouvrir mon USF, le code suivant :
>>> Private Sub CommandButton1_Click()
>>> UserForm1.Show
>>> End Sub
>>> Puis sur les deux boutons suivants le code pour ouvrir les deux feuil les :
>>> Private Sub CommandButton2_Click()
>>> Sheets("Mouvements").Select
>>> End Sub
>>> Private Sub CommandButton3_Click()
>>> Sheets("Stock").Select
>>> End Sub
>>> J'obtien en retour une erreur " Erreur d'exécution 1004"
>>> "la méthode select de la classe sheets a échouée"
>>> Où est mon erreur ?
>>> Jak (Débutant)- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -