Voir Script ?

Rebonjour le forum c'est encore moi avec d'est question parfois (ou toujour lol) stupide ,je place un scrip qui vient du programme de mon usine je voudrais juste savoir comment on pourrais lancer non pas exel etant donnee qu'il est déjas mais simplement lui dire d'aller a tel feuille et tel cellule :roll:

http://apu.mabul.org/up/apu/2008/07/...30415f0lq5.jpg

Toujour en vous remercient d'avance ;)

Code:

---

Worksheets("NomDeLaFeuille").range("Adresse de la cellule").select

---

Ex :

Code:

---

Worksheets("Feuil1").range("C15").select

---

ou

Code:

---

Worksheets("Feuil1").Cells(NoLig, NoCol).select

---

Excuse moi ouskel'n'or tu as du ecrire la réponce en meme temp que moi :D je te remerci et je teste sa quand je reprendrais le boulot , Bon dimange a tous :king::yaisse2:

Si je comprend bien c'est du visual basic simple alors :roll:

y a t il un autre moyen que alt_tab pour selectionner un autre prog car si j'ai 3 prog allumer il me selectionne l'autre programme et pas celui que je veut :cry:

Citation:

---

y a t il un autre moyen que alt_tab pour selectionner un autre prog car si j'ai 3 prog allumer il me selectionne l'autre programme et pas celui que je veut

---

Que veux-tu faire ? Lancer une macro placée dans un autre Classeur ? Sélectionner une feuille placée dans un autre classeur ?

Comme t'as pus voir le scrip plus haut sa vient d'un programme de mon usine je ne peut aller plus loin que se scritp donc avec exel j'ai fais une macro avec des sendkeys qui me selectionne le programme pour ecrire quelque chose dedant je ne sais faire que des copier coller( je join une photo du programme ) mais si un autre programme est allumer il ecrit dans l'autre donc je ne dois avoir que exel et l'autre prog ouvert.
http://apu.mabul.org/up/apu/2008/07/...23352v47es.jpg
Voila :roll:

Le problème est sans doute que la procédure proposée par ton usine utilise ActiveWorkbook au lieu de nommer le classeur concerné. Ainsi chaque fois qu'elle est exécutée, la procédure s'applique au fichier actif.
Pour pallier le problème, tu dois placer le classeur d'usine en première position et nommer le classeur dans lequel tu veux effectuer une copie dans ton code.

Code:

---

1 2 3

Windows("Classeurdusine").Activate 'puis ton code Workbooks("Classeur2").worksheets("feuil1").range("C15").copy Workbooks("Classeur2").worksheets("feuil2").range("B12")

---

Pour simplifier le code, et si tu as plusieurs opérations à effectuer, tu peux instancier tes classeurs :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim CL1 as workbook 'Classeurdusine Dim CL2 as workbook 'Ton classeur Dim FL1 as worksheet 'Une feuille de ton classeur Dim FL2 as worksheet 'Une autre feuille de ton classeur Set CL1 = Workbook("Classeurdusine.xls") Set CL2 = Workbook("TonClasseur.xls") Set FL1 = CL2.worksheets("Feuil1") Set FL2 = CL2.worksheets("Feuil2") CL1.activate 'Copie de C15 de feuil1 de "ton classeur" sur B12 de feuil2 de "ton classeur" FL1.range("C15").copy FL2.range("B12")

---

Bonne suite ;)

Voir AppActivate :

Code:

---

AppActivate "Reflection", True

---

Je viens d'essaier cette solution il designe bien le progamme que je veus afficher mais ne l'affiche pas

Citation:

---

Envoyé par dreloman

Je viens d'essaier cette solution il designe bien le progamme que je veus afficher mais ne l'affiche pas

---

Qu'appelle tu designe ? l'active ? tu ne peu pas ensuite utiliser une commande du menu windows de ton logiciel pour l'agrandir?

Re salut JackOuYA je voulais dire active mais ne l'agrandis pas je pence que comme c'est du basic je peut essaier avec exel pour le moment et le faire ensuite avec le script var la je travail pas avant mercredi, la fonction fais comme si j'appuiais sur le programme en bas dans la barre des tache mais ne l'affiche pas?:roll: et encore merci pour votre pacience:oops:

Je comprend plus rien sa fonctionne maintenent :oops: sans rien avoir bouger :question: il selectionne le programme designe malgre qu'il en as plusieur et l'affiche , c'est impecable ,JackOuYA tu est le :roi: je te :hola::king::merci: