Discussion :

[dreloman]

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



Toujour en vous remercient d'avance

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dreloman]

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

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

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

[ouskel'n'or]

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 ?

[dreloman]

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.

Voila

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JackOuYA]

Voir AppActivate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AppActivate "Reflection", True

[dreloman]

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

[JackOuYA]

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?

[dreloman]

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? et encore merci pour votre pacience

[dreloman]

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