Communication entre fichier excel

Version imprimable

Bonjour tous le monde
J'ai un fichier excel qui doit envoyer quand on clic sur la case "envoyer enquête"
dans un autre tableau excel (qui n'est pas dans le fichier ni dans le même répertoire).
Certaines données doivent se rajouter à la liste du 2eme tableau.

exemple
tableau 1 information diverse
tableau 2 suivis
tableau 1 on appuie sur la case =>envoie des informations dans le tableau 2
il ne faut pas qu'il vienne écraser les donnée du tableau 2 et qu'il incrémente le numéro référent de 1
les champs "" sont des cellules définit dans le tableau 1
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Enquete_Clic() 'envoient des informations incrémentation du numéro d'enquête mettre "titre" dans le fichier excel tableau 2 mettre "aff" dans le fichier excel tableau 2 mettre "add" dans le fichier excel tableau 2 mettre "cl" dans le fichier excel tableau 2 mettre "resp" dans le fichier excel tableau 2 End Sub

09/07/2007, 11h16
Swiper

Salut

Tu veux transvaser les informations d'un classeur excell vers un autre ou d'une feuille vers une autre ? C'est bien ça ?

Tu ne veux pas que le second classeur s'ouvre ? Je ne comprend pas bien ton problème explique mieux quelles sont les actions que tu veux faire.

Oui c'est bien ca. Je veux mettre des informations de mon premier tableau vers mon second.
Je préfèrerai que le tableau ne s'ouvre pas, mais bon ce n'est pas trop grave du moment que après l'opération il se referme.

suivi affaire est le classeur qui contient mon enquête client , il envoie des données au ficchier suivi
Suivi est le classeur chargé de suivre les enquetes client et de centralise les information du suivi affaire.
2007 est la Feuil2 du classeur suivi

J'ai mis ce code dans le classeur suivi affaire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Option Explicit Dim Plage, F As Worksheet, Adresses, PlageAselectionner Dim DernièreLigne, PremièreLigne As Long, DernièreColonne, PremièreColonne As Integer Sub Enquete_Clic() Application.Workbooks.Open "H:\HNEW\COMMUNICATION\Communication interne\MARCO TEMPO\suivi.xls" Set F = ThisWorkbook.Sheets("2007") Plage = F.Range("ENVOI").CurrentRegion.Address 'F1 sur CurrentRegion Adresses = Split(Plage, ":") 'F1 sur Split DernièreLigne = F.Range(Adresses(1)).Row + 1 DernièreColonne = F.Range(Adresses(1)).Column PremièreColonne = F.Range(Adresses(0)).Column PlageAselectionner = F.Cells(DernièreLigne, PremièreColonne).Address & ":" & F.Cells(DernièreLigne, DernièreColonne).Address Feuil2.Range(PlageAselectionner).Select ActiveCell.FormulaR1C1 = "='H:\HNEW\COMMUNICATION\Communication interne\MARCO TEMPO\[suivi affaire]2007'titre" 'Macro enregistrée le 03/07/2007 par iris End Sub
J'ai un bug à la ligne :

Citation:

Set F = ThisWorkbook.Sheets("2007")

=>erreur indice 9

10/07/2007, 08h39
noir_desir

Quelqu'un pourrait m'aiguiller j'avoue que la je patauge dans la mare :oops:

1 pièce(s) jointe(s)

Communication entre fichier excel

Bonjour tous le monde

J'ai un fichier excel qui doit envoyer quand on clic sur la case "envoyer enquête" =>fichier suivi affaire
dans un autre tableau excel (qui n'est pas dans le fichier ni dans le même répertoire) =>fichier suivi
Le premier fichier n'est pas fixe, il change de répertoire et de nom pour chaque affaire.
Certaines données doivent se rajouter à la liste du 2eme tableau.

exemple
tableau 1 information diverse
tableau 2 suivis
tableau 1 on coche la case =>envoie des info dans le tableau 2
il ne faut pas qu'il vienne écraser les donnée du tableau 2 et qu'il incrémente le numéro référent de 1
les champs "" sont des cellules définit dans le tableau 1
Code:

1 2 3 4 5 6 7 8 9 Sub Enquete_Clic() 'envoient des informations incrémentation du numéro d'enquête mettre "titre" dans le fichier excel tableau 2 mettre "aff" dans le fichier excel tableau 2 mettre "add" dans le fichier excel tableau 2 mettre "cl" dans le fichier excel tableau 2 mettre "resp" dans le fichier excel tableau 2 End Sub
J'ai oublié de mettre les balises :oops:
En faites j'ai ouvert un sujet, mais je pensais mettre trompé de sous forum, donc je l'ai posté ici...
Désolé

10/07/2007, 15h07
zazaraignée

Tu as trouvé comment attacher un fichier à ton message, tu devrais trouver le bouton pour mettre les balises [CODE] ?

Un indice, c'est le bouton http://www.developpez.net/forums/images/editor/code.gif.

Il y a eu une discussion sur le sujet des fichiers attachés récemment. En fesant une recherche, tu devrais pouvoir tomber dessus.
11/07/2007, 17h05
noir_desir
bonjour

à priori cela marche maintenant j'avais un problème indice (il ne retrouvait pas ma feuil).
Code:

1 2 3 Workbooks.OpenText Filename:="H:\HNEW\COMMUNICATION\Communication interne\MARCO TEMPO\suivi.xls" Range("A7").Select Set F = Sheets("2007")
le problème se situé au niveau de l'instruction thisworkbooks

Par contre j'ai un soucis je n'arrive pas à enregistrer mon fichier

J'ai un problème qui me dit lors de l'enregistrement :

Citation:

erreur d'exécution 09 l'indice n'appartient pas la sélection

dans mon instruction

Code:

Workbooks("H:\HNEW\COMMUNICATION\Communication interne\MARCO TEMPO\suivi.xls").Close SaveChanges:=True

Je ne vois pas ou se trouve l'erreur dans cette ligne de code
12/07/2007, 13h45
gargouilleBL

Bonjour,
essaie de supprimer les espaces ou de les remplacer par des _ dans ta chaine "H:\HNEW\COMMUNICATION\Communication interne\MARCO TEMPO\suivi.xls".
Je sais que j'ai déja eu des problèmes de ce genre et ça a marché pour moi.

Si tu ne sais pas changer les noms du répertoire et/ou du fichier, essaie de faire une copie en local sur ton HD du fichier, de le traité puis de l'effacer.

En espérant t'avoir aidé,
Benoît
12/07/2007, 14h35
noir_desir

J'ai mis ce code à la place

Code:

ActiveWorkbook.Close True, "H:\HNEW\COMMUNICATION\Communication interne\MARCO TEMPO\suivi.xlss"