Deux fichiers excel

f-a-t-i f-a-t-i
18 contributions
Membre depuis le 04/11/2011
Envoyé le 08/03/2012 à 12:08

Bonjour,
à vous tous
baaa j'ai une question un peu bizare mais c'est selon mon besoin
[:Z] je veux savoir est ce que je peux faire un lien entre deux fichier excel de telle sorte si j'ouvre l'un l'aute s'ouvre automatiquement
explication : dans mon travail à chaque fois quand on passe une commande je dois l'enregistrée sur deux fichiers différents mais souvent je fais les changement sur l'un et j'oublie l'autre [:o]
alerter un modérateur
La vraie souffrance c'est quitter ce monde Sans avoir compris Le pourquoi et le comment des choses de la vie La connaissance est cette lumière qui éclaire Une parcelle de ce monde et ses mystères
Pegase Pegase
3 493 contributions
Membre depuis le 07/02/2002
Envoyé le 09/03/2012 à 00:17 Modifié par Pegase

Bonjour,

C'est tout à fait possible, il faut utiliser une macro
Hypothèses 1er fichier
Chemin E:MonBoulotFichier_1.xls
Hypothèses 2e fichier
Chemin E:MesCommandesFichier_2.xls

Macro dans Fichier_1.xls
A adapter suivant tes chemins bien sur
Dans l'éditeur de macro, dans ThisWorkBook tu mets le code suivant

Private Sub Workbook_Open()
Chemin = "E:MesCommandesFichier_2.xls"
Workbooks.Open (Chemin)
End Sub


Macro dans Fichier_2.xls

Private Sub Workbook_Open()
Chemin = "E:MonBoulotFichier_1.xls"
Workbooks.Open (Chemin)
End Sub


Ainsi dès que tu ouvres un des deux fichiers l'autre s'ouvre automatiquement et vice versa.
J'ai fait simple, je ne traite pas les cas où les chemins seraient erronnés ou les fichiers inexistants.
Si tu ne sais pas comment ouvrir l'éditeur de macros, je peux t'expliquer
Bon courage
alerter un modérateur
Moi, le jour où j'aurai vraiment mon âge, je mourrai (Léo Ferré)
f-a-t-i f-a-t-i
18 contributions
Membre depuis le 04/11/2011
Envoyé le 09/03/2012 à 19:15 Modifié par f-a-t-i

Bonsoir,
merci Pegase pour votre réponse
j'ai essayé avec ce code mais ça marche pas , il y a une erreur du chemin je ne sais pas si ma procédure est correcte ou non pour ça j’espère que vous m'explique comment je vais faire pour déboguer ce code ^_^
alerter un modérateur
La vraie souffrance c'est quitter ce monde Sans avoir compris Le pourquoi et le comment des choses de la vie La connaissance est cette lumière qui éclaire Une parcelle de ce monde et ses mystères
Pegase Pegase
3 493 contributions
Membre depuis le 07/02/2002
Envoyé le 10/03/2012 à 13:49 Modifié par Pegase

Bonjour,

Je viens de me rendre compte que dans mon copier/coller des chemins il y avait une erreur
Il faut lire par exemple

Chemin = "E:\MesCommandes\Fichier_2.xls"

et

Chemin = "E:\MonBoulot\Fichier_1.xls"

Il manquait les \
Mais c'était un peu évident...
N'oublie pas les "
Avec cette correction ça fonctionne, je le confirme

Pour Niko
Je viens de trouver une anomalie
Voulant modifier mon message, après avoir cliqué sur Modifier dans la fenêtre Modifier cette contribution tous les \ antislash ont disparu, il a fallut que je les retape.
Tu as surement une idée Grand Chef
Bon courage
alerter un modérateur
Moi, le jour où j'aurai vraiment mon âge, je mourrai (Léo Ferré)
f-a-t-i f-a-t-i
18 contributions
Membre depuis le 04/11/2011
Envoyé le 12/03/2012 à 11:22

Bonjour,
merci Pegase pour votre réponse c'est gentil de ta part (+)
j'ai Remarqué l'erreur des antislash
mais je pense que mon probléme est à cause de cette partie
[Hypothèses 1er fichier
Chemin E:MonBoulotFichier_1.xls
Hypothèses 2e fichier
Chemin E:MesCommandesFichier_2.xls ]
ou je vais mettre cette partie du code [;(]
c'est honteux n'est c pas
[:o]
alerter un modérateur
La vraie souffrance c'est quitter ce monde Sans avoir compris Le pourquoi et le comment des choses de la vie La connaissance est cette lumière qui éclaire Une parcelle de ce monde et ses mystères
Pegase Pegase
3 493 contributions
Membre depuis le 07/02/2002
Envoyé le 12/03/2012 à 11:50

Bonjour,

Pas de honte rassure toi [;)]
Seul le code suivant est à copier dans ThisWorkBook du fichier Fichier_1.xls pour ouvrir le fichier Fichier_2.xls à partir du Fichier_1.xls (et vice versa)

Private Sub Workbook_Open()
Chemin = "E:\MesCommandes\Fichier_2.xls"
Workbooks.Open (Chemin)
End Sub

Quand j'ai écrit :


Hypothèses 1er fichier
Chemin E:\MonBoulot\Fichier_1.xls
Hypothèses 2e fichier
Chemin E:\MesCommandes\Fichier_2.xls

c'était juste pour cadrer et situer le problème. Comme en mathématique, on commence par "fixer" les hypothèses...
alerter un modérateur
Moi, le jour où j'aurai vraiment mon âge, je mourrai (Léo Ferré)
f-a-t-i f-a-t-i
18 contributions
Membre depuis le 04/11/2011
Envoyé le 13/03/2012 à 11:06 Modifié par f-a-t-i

Bonjour,
merci, merci,merci Pegase 10000000000.............. fois pour votre aide

:sourire: ,ça marche bien , hhh mon probléme était à cause de l'enregistrement et l'activation des macro (+)
alerter un modérateur
La vraie souffrance c'est quitter ce monde Sans avoir compris Le pourquoi et le comment des choses de la vie La connaissance est cette lumière qui éclaire Une parcelle de ce monde et ses mystères
Pegase Pegase
3 493 contributions
Membre depuis le 07/02/2002
Envoyé le 13/03/2012 à 11:59 Modifié par Pegase

Bonjour,



mon probléme était à cause de l'enregistrement et l'activation des macro

Bon sang mais c'est bien sur...
La difficulté quand on essaie de communiquer ce que l'on sait, c'est de ne pas oublier de dire ce qui pour soit est un prérequis évident !

Content de t'avoir aidé et merci pour le retour
Pégase
alerter un modérateur
Moi, le jour où j'aurai vraiment mon âge, je mourrai (Léo Ferré)

Discussion trop ancienne

Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.

Nous vous suggérons de créer un nouveau message

« Retour sur la liste des messages de ce forum