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

 

[Hulk]

Re : Programmation d'un bouton Traitement

Hello Forum, Gimli,

Vois le classeur joint.

Deux méthodes possibles !

 

[gimli]

Re : Programmation d'un bouton Traitement

Merci Hulk c'est gentil 🙂

 

[gimli]

Re : Programmation d'un bouton Traitement

J'ai réussi à programmer le bouton, grâce à Hulk 😉 . Pourriez vous m'expliquer la manière à suivre pour que lorsque je clique sur le bouton Traitement, il ouvre le document chargé dans un autre onglet ? Et le summum serait de pouvoir renommer en même temps le nouvel onglet (facultatif).
Merci 🙂

 

[Ubot303]

Re : Programmation d'un bouton Traitement

Bonjour Gimli et Hulk,

Tu veux ouvrir ton classeur cible, copier son contenu dans un nouvel onglet de ton classeur courant et renommer l'onglet?
L'enregistreur de macros peut aider pour la syntaxe manquante 😉

 

[gimli]

Re : Programmation d'un bouton Traitement

D'accord , mais je suis pas très à l'aise avec les macros 🙁
En gros je dois faire quoi ? merci de ton aide 😉

j'ai essayé avec l'enregistreur de macros, j'y arrive pas, je suis pas doué

 

[Ubot303]

Re : Programmation d'un bouton Traitement

Les réponses de l'enregistreur de macro 🙂

Ton_fichier_source.open
Sheets("Sheet1").Select
Selection.Copy
Windows("Ton_fichier_cible.xls").Activate
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Gimli"

Il ouvre ainsi "Ton fichier_source" et copie le contenu de l'onglet sheet1 dans ton onglet sheet2 de "Ton_fichier_cible" et renomme l'onglet Sheet2 en Gimli 😀

Tu peux évidemment copier l'onglet directement sans passer par un ctrl c / ctrl v du contenu de l'onglet 🙂

 

[gimli]

Re : Programmation d'un bouton Traitement

Super ! Merci énormément 🙂
Pour le "fichier_cible" je met le nom de la cellule ou il y a le chemin relatif ?


😛

 

[gimli]

Re : Programmation d'un bouton Traitement

la feuille qui comporte le bouton traitement s'appelle FeuilleTraitement.xls donc je remplace "Ton_fichier_source.open" par "FeuilleTraitement.xls.open" ? ça me paraît bizarre :$
et comment je fais pour sélectionner le contenu d'une cellule (le chemin relatif du fichier a ouvrir dans le nouvel onglet se trouve dans une cellule nommée CheminSource) ?

merci 🙂

 

[Ubot303]

Re : Programmation d'un bouton Traitement

Je suis allé un peu vite sur l'ouverture d'un fichier 😉

Workbooks.Open "c:\Perso\Base de données.xls" devrait mieux fonctionner...
Tu peux évidemment remplacer le chemin par ta cellule B2 qui contient le chemin :

cells(2,2).value & "\Base de données.xls"

 

[gimli]

Re : Programmation d'un bouton Traitement

Bonjour Ubot303,bonjour le forum,

désolé je n'ai pas pu venir sur le forum hier. Je ne comprend pas très bien en fait, pourrais-tu modifier ton code avec les données que j'ai fourni dans mon dernier post ? :

la feuille qui comporte le bouton traitement s'appelle FeuilleTraitement.xls donc je remplace "Ton_fichier_source.open" par "FeuilleTraitement.xls.open" ? ça me paraît bizarre :$
et comment je fais pour sélectionner le contenu d'une cellule (le chemin relatif du fichier a ouvrir dans le nouvel onglet se trouve dans une cellule nommée CheminSource) ?

merci

EDIT:
j'ai une erreur à la première ligne (et sans doute à d'autres lignes aussi ^^), voici le code de mon bouton :

Private Sub BtnTraitement_Click()

Range("CheminSource").Value.Open
Sheets("Feuil1").Select
Selection.Copy
Windows(Range("CheminSource").Value).Activate
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "Brut"

End Sub

merci 🙂

 

[gimli]

Re : Programmation d'un bouton Traitement

Quelqu'un peut m'aider ? 🙁
merci 😱

 

[gimli]

Re : Programmation d'un bouton Traitement

Je me permet de mettre un petit Up 😱

 

[gimli]

Re : Programmation d'un bouton Traitement

up, help me please 🙁

 

[Macpoy]

Re : Programmation d'un bouton Traitement

bonsoir le forum, gimli,

Workbooks.Open Filename:="C:\"& Range("CheminSource") & ".xls"

à mettre à la place de :

Range("CheminSource").Value.Open

@plus