créer une macro, d'un fichier à un autre

job75

XLDnaute Barbatruc

• 3 Février 2009

• #2

Re : créer une macro, d'un fichier à un autre

Bonjour gorfil, le forum,

Voici les 2 fichiers complétés.

Les macros sont dans les codes des feuilles et dans un module.

A+

Edit : télécharger d'abord les fichiers pour que les recherches fonctionnent

 

Pièces jointes

• codes_Book1.xls

  42 KB · Affichages: 81
• codes_Book1.xls

  42 KB · Affichages: 79
• codes_Book1.xls

  42 KB · Affichages: 77
• codes_Book2_2.xls

  23 KB · Affichages: 81
• codes_Book2_2.xls

  23 KB · Affichages: 83
• codes_Book2_2.xls

  23 KB · Affichages: 85

Dernière édition: 3 Février 2009

Vote positif 0 Vote négatif

G

gorfil0041

Guest

• 3 Février 2009

• #3

Re : créer une macro, d'un fichier à un autre

Bonjour JOB75, bonjour tout le monde,

Merci beaucoup pour ton message, c très sympa

mais en fait j'arrive pas à faire ma recherche, je les ai bien téléchargé dans un fichier à part pourtant

ça m'affiche "cannot open the specified file" 🙁

en fait j'arrive pas la macro aussi (la fenêtre est vide).. 🙁

A bientôt!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2009

• #4

Re : créer une macro, d'un fichier à un autre

Re gorfil,

Les fichiers doivent se trouver dans le même dossier (répertoire) ou sur le Bureau et impérativement s'appeler codes_Book1.xls et codes_Book2_2.xls.

Sinon modifiez dans les 2 fichiers la macro du module.

Attention, si vous êtes sur Excel 2007, il faut remplacer dans la macro .xls par .xlsm

A+

 

Dernière édition: 3 Février 2009

Vote positif 0 Vote négatif

G

gorfil0041

Guest

• 3 Février 2009

• #5

Re : créer une macro, d'un fichier à un autre

Re-salut,

ca va toujours pas 🙁
je les ai enregistré ds le même file pourtant, j'ai pas changé de nom..le prob c que j'arrive même pas voir la macro,

voilà ce que j'ai comme message :

"Hyperlinks can be harmful to your computer and date. To protect your computer, click only those hyerlinks from trusted sources, do you want continue? "

je clique sur yes.. ca m'affiche de nouveau "ça m'affiche "cannot open the specified file"

Please Help ...

PS: je suis bien sur Excel 2003, je vois pas ce qui cloche!!,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2009

• #6

Re : créer une macro, d'un fichier à un autre

Re,

Je vois 😉

Dans votre fichier codes_Book2_2.xls, il y a en colonne B des liens hypertextes. Ce n'est pas moi qui les y ai mis et je n'y ai pas touché.

A mon avis ils ne servent à rien et vous devriez donc les supprimer (ce n'est pas mon problème).

Par contre dans votre 1er post vous avez bien écrit :

1. Au doubleclick dans la colonne A...

Cliquez pour agrandir...

et c'est donc ce qu'il faut faire pour lancer la recherche !

Pour accéder à VBA et aux macros touches Alt+F11.

A+

 

Vote positif 0 Vote négatif

G

gorfil0041

Guest

• 3 Février 2009

• #7

Re : créer une macro, d'un fichier à un autre

Mais ouii .. ça marche super bien!! je suis conne 😉 Merci JOB

je te tienderais au courant de mon avancement, mais ca l'air bien foutu la programmation derrière 🙂 je vais essayer de déchifrer pour comprendre,

c'est mes premiers pas dans VBA, désolée 😉

Schüss

 

Vote positif 0 Vote négatif

G

gorfil0041

Guest

• 4 Février 2009

• #8

Re : créer une macro, d'un fichier à un autre

Bonjour Tous le monde,🙂

Voilà, je suis très satisfaite du travail proposé par JOB75, mille merci encore une fois à toute l'équipe XLD

Maintenant, j'aimerais apporter une petite amélioration, donc j'aimerais faire ceci :

- Double cliquer sur la colonne B
-recupere le contenu de la cellule, Faire une boucle de recherche dans le Database, pour trouver le fichier Word correspendant
-s'il existe : ouvrir ce doc Word.
- s'il n'existe pas : dire que le spec n'a pas encore été réalisé.

Remarque: Le nom du Fichier Word correspond au code dans la colonne A.

je ne sais pas si c'est claire pour vous. Mais est-ce que cela vous semble réalisable?!

Merci beaucoup pour toute aide 🙂

 

Pièces jointes

• codes_Book2_2.xls

  31 KB · Affichages: 68
• codes_Book1.xls

  39 KB · Affichages: 59
• codes_Book2_2.xls

  31 KB · Affichages: 68
• codes_Book1.xls

  39 KB · Affichages: 62
• codes_Book2_2.xls

  31 KB · Affichages: 69
• codes_Book1.xls

  39 KB · Affichages: 56

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Février 2009

• #9

Re : créer une macro, d'un fichier à un autre

Bonjour gorfil,

Les FAQ de MichelXld répondent à la question :

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

et la macro qu'il propose, à adapter :

Code:

Sub openWordV02()
thisWorkbook.followHyperlink "C:\Documents and Settings\michel\dossier\general\excel\test.doc"
End Sub

Vous devriez parvenir à faire ça, en paramétrant le nom du fichier Word.

A+

Edition : il faut évidemment qu'en colonne A (ou même B, ce serait plus simple) de votre fichier se trouve le nom d'un fichier Word, ou quelque chose qui permette de le retrouver...

 

Dernière édition: 4 Février 2009

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Février 2009

• #10

Re : créer une macro, d'un fichier à un autre

Re,

Voilà par exemple ce que l'on peut faire.

Le fichier Word doit être ici dans le même dossier que le fichier Excel, mais on peut faire ce que l'on veut en adaptant la macro.

A+

 

Pièces jointes

• gorfil.zip

  12.3 KB · Affichages: 30
• gorfil.zip

  12.3 KB · Affichages: 31
• gorfil.zip

  12.3 KB · Affichages: 31

Dernière édition: 4 Février 2009

Vote positif 0 Vote négatif

G

gorfil0041

Guest

• 4 Février 2009

• #11

Re : créer une macro, d'un fichier à un autre

Bonjour JOB, bonjour la communauté 🙂

je suis vraiment gênée de dire que je n'y arrive toujours pas 🙁

je résume encore une fois ce que j'aimerais faire :

1. double-clic sur colonne B (qui doit pointé sur colonne A, vu que le double clic sur A est utilisé par l'autre macro) pour lancer la recherche

2. chercher un doc Word dans le database correspondant (les doc portent le même nom)

3.Afficher le document Word.

J'ai parcouru le site, j'ai trouvé des fonctions semblables, mais je ne sais pas comment les intégrer en un seul module pour y arriver au résultat!?

Merci d'avance..

 

Vote positif 0 Vote négatif

G

gorfil0041

Guest

• 4 Février 2009

• #12

Re : créer une macro, d'un fichier à un autre

excuser... je n'ai pas vue ton dernier message avec le zip, bug chez moi 😉
je vais vite essayer, et je te redis..

danke 🙂

 

Vote positif 0 Vote négatif

G

gorfil0041

Guest

• 4 Février 2009

• #13

Re : créer une macro, d'un fichier à un autre

Re-salut,

J'ai quelques soucis..
voici le module que vous l'avez créer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B:B")) Is Nothing Then
Call Recherche(Target)
Else
Call FichWord(Target)
End If
Cancel = True
End Sub

1. où est-ce que dois-je introduire la boucle de recherche .. (thisWorkbook.followHyperlink "C:\Documents and Settings..etc) ?

2. peut on conserver la première macro (Book1) tout en gardant la nouvelle, qui pointe sur la même colonne A? si oui comment? parce qu'on les mettant dans le même module, ça bug!

3. puis dans le module ci-dessus, je vois pas le nom de doc, comment il savait que c'etait bien le doc "forum"?

ca te parait bêtes comme questions, mais j'ai vraiment envie de comprendre ces astuces..

Merci infiniment..

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Février 2009

• #14

Re : créer une macro, d'un fichier à un autre

Re,

Faudrait peut-être Gorfil aller voir la macro FichWord dans le module...

Et puis ensuite essayer de comprendre la macro. Pas trop difficile, le niveau d'anglais est celui de la classe de 6ème...

Si l'on veut faire référence à la colonne A, il suffit de remplacer dans le chemin d'accès Target par Target.Offset(0, -1).

Ah mais, faut avancer Gorfil.

A+

 

Vote positif 0 Vote négatif

G

gorfil0041

Guest

• 4 Février 2009

• #15

Re : créer une macro, d'un fichier à un autre

oui oui cela je l'ai bien comprise, mais je vois toujours pas où il faudrait introduire ma boucle de recherche pour aller ouvrir un tel ou tel spec

thisWorkbook.followHyperlink "C:\Documents and Settings..etc

probablement à la place de target, si je t'ai bien compris!? mais ça donner rien

voici ton module :

Sub FichWord(Target As Range)
If Target = "" Then End
On Error Resume Next
SendKeys "o" ' ferme le message d'avertissement - mettre "y" pour la version anglaise d'Excel
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & Target & ".doc"
If Err Then MsgBox "Fichier Word introuvable", 48
End Sub


désolée si je suis pénible, mais je vais y arriver 🙁

 

Vote positif 0 Vote négatif