Discussion :

[noir_desir]

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 :

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

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

[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.

[noir_desir]

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 :

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

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 :

Set F = ThisWorkbook.Sheets("2007")

=>erreur indice 9

[noir_desir]

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

[noir_desir]

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 :

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

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
En faites j'ai ouvert un sujet, mais je pensais mettre trompé de sous forum, donc je l'ai posté ici...
Désolé

[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 .

Il y a eu une discussion sur le sujet des fichiers attachés récemment. En fesant une recherche, tu devrais pouvoir tomber dessus.

[noir_desir]

bonjour

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

Code :

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

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 :

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

dans mon instruction

Code :

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

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

[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

[noir_desir]

J'ai mis ce code à la place

Code :

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

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