Programmation d'un bouton Traitement

[gimli]

Bonjour le forum, bonjour à tous,

je vous expose mon soucis, j'ai comme objectif de créer une page excel dans laquelle il y aura,entre autre , un bouton "Traitement" et dans des cellules l'utilisateur entrera le chemin qui mène au fichier qu'il souhaite traiter (ex: C:\toto\titi.xls). Comment faire pour que le bouton aille chercher les documents en suivant le chemin relatif ?
Est il possible que le bouton traitement fasse que la page créée fabrique des graphes avec les données de la page traitée ?

Merci d'avance et bonne journée à tous

Gimli

 

[gimli]

Re : Programmation d'un bouton Traitement

Bonjour,

merci Macpoy j'ai essayé ta méthode et j'ai donc enlevé le "Windows... .Activate" par ta proposition. Le problème c'est que ça ouvre la feuille dans un autre classeur, je souhaiterai que la feuille ouverte soit ouverte sur l'onglet 2 (appelé Brut) du classeur qui comprend la feuille traitement. 😉
En plus j'ai une erreur :" '9' l'indice n'appartient pas à la selection" 🙁
merci

Gimli

 

[gimli]

Re : Programmation d'un bouton Traitement

J'ai trouvé comment faire
🙂
au cas ou d'autres personnes se poseraient la question, je met le code 🙂

Sheets("Brut").Cells.Delete xlShiftUp
' on remplit la feuille Brut
Workbooks.Open ThisWorkbook.Sheets("Traitement").Range("Chemin").Value
Sheets("Tous contrats").Cells.Copy
Windows("FeuilleTraitement.xls").Activate
Sheets("Brut").Select
ActiveSheet.Paste
Windows("FeuilleTraitement.xls").Activate

 

[gimli]

Re : Programmation d'un bouton Traitement

Pardon pour le triple post mais j'ai tout petit soucis, le code marche bien a condition d'avoir cliqué auparavant sur la cellule A1 dans l'onglet ou sera collée la feuille. Dans le cas contraire ça ne fonctionne pas.
J'ai essayé Range("A1").Select et .Activate mais ça me met "la méthode select (ou activate) de la classe range a échoué"

quelqu'un saurait pourquoi ? merci encore 🙂

 

[Ubot303]

Re : Programmation d'un bouton Traitement

Désolé ca fait un moment que je ne suis passé sur le forum...

Si tu écris "Range("A1").Select", comment Excel peut savoir sur quel fichier et sur quel onglet es-tu positionné?

Je mettrais :

Sheets("Brut").Cells.Delete xlShiftUp
' on remplit la feuille Brut
Workbooks.Open ThisWorkbook.Sheets("Traitement").Range("Chemin"). Value
Sheets("Tous contrats").Cells.Copy
Windows("FeuilleTraitement.xls").Activate
Sheets("Brut").cells(1,1).Select
ActiveSheet.Paste
Windows("FeuilleTraitement.xls").Activate

 

[gimli]

Re : Programmation d'un bouton Traitement

Merci Ubot303 😉
mais je suis passé à un autre projet depuis la semaine dernière 🙂