Discussion :

[Methodrone8]

Bonjour,

J'aimerais creer un programme qui fais la chose suivante:

-J'ai créé un lien hypertexte vers le fichier source ou j'utilise mes chiffres.
-Je voudrais creer un bouton, qui lance la macro ciblée sur une case selectionnée (cad ici sur la cellule du lien).

Il y a plusieurs liens par feuilles c'est pour ca que je veux automatiser.

Par exemple ce que j'aimerais obtenir

je maintiens mon clic sur la case de mon lien (pour selectionner la case)
Je clique sur mon bouton, ce qui active la macro, et qui copie certaines données (dans un autre classeur) dans un nouvel onglet de mon classeur

Je ne vous demande pas de faire le programme pour moi, juste de me donner les bonnes commandes afin de faire 2 choses:
faire tourner la macro sur la case active
copier des données d'un autre classeur

merci d'avance!
Guillaume

[jfontaine]

Bonjour,

La cellule active est appelée en utilisant "ActiveCell"

Exemple : pour mettre dans la cellule active la valeur de la cellule A1 de la feuil1 du classeur 2

Code :

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

ActiveCell.Value = Workbooks("Classeur2").Worksheets("Feuil1").Range("A1").Value

[Methodrone8]

je te remercie!

le second classeur doit se trouver dans le même dossier que le premier j'imagine, sinon il faut écrire toute l'arborescence?

[jfontaine]

Dans l'exemple, le classeur doit être ouvert

[Methodrone8]

Merci.
Existe-t-il une méthode pour utiliser un classeur fermé?

[djjilou]

Bonjour,

En l´ouvrant avant j´imagine?

Code :

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

1
2
3
Workbooks.Open(Filename:="C:\chemin\fichieravecdonnées.xls")   'Attention ce classeur devient alors actif
'Puis
Workbooks("fichieraremplir.xls").Sheets("Feuille1").Range("B5").Value = Workbooks("fichieravecdonnées.xls").Sheets("Feuille1").Range("A9")

Pour ouvrir le fichier tu peux aussi faire:

Code :

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

1
2
Workbooks.Open(Filename:=Application.GetOpenFilename) 'ouvrir boite de dialogue pour choisir le fichier (attention a gérer le cas ou aucun fichier n´est choisi)
Workbooks.Open(Filename:=Workbooks("fichieravecdonnées.xls").Worksheets("Feuill1").Range("B3").Text)  'ouvrir fichier ayant pour chemin/nom le contenu de la case B3.