envoie de donné dans des tableaux

noir_desir · 3 Juillet 2007

Bonjour tous le monde
J'ai un fichier excel qui doit envoyer quand on clic surla case "envoyer enquete"
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 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:

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

noir_desir · 9 Juillet 2007

Re : envoie de donné dans des tableaux

Un petit up si quelqu'un peut m'aiguiller

yadla · 9 Juillet 2007

Re : envoie de donné dans des tableaux

Bonjour noir_desir,

Si tu pouvais mettre un exemple en fichier joint STP, ce serait plus simple

noir_desir · 10 Juillet 2007

Re : envoie de donné dans des tableaux

Joins les fichiers

Le premier fichier suivis est le fichier qui doit recevoir les informations de suivi affaires.

noir_desir · 10 Juillet 2007

Re : envoie de donné dans des tableaux

Je pense que mon erreur viens du fais que j'utilise set F =application ....

Mais je ne sais pas quoi d'autre utiliser cette commande.

Seul le fichier "suivi" à une adresse fixe le fichier affaire ayant un nom différent suivant chaque affaire.

noir_desir · 11 Juillet 2007

Re : envoie de donné dans des tableaux

bonjour

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

Code:

 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:

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

Pierrot93 · 11 Juillet 2007

Re : envoie de donné dans des tableaux

Bonjour Noir Desir, Yadla

essaye peut être la ligne de code ci dessous :

Code:

Workbooks("suivi.xls").Close SaveChanges:=True

@+

noir_desir · 11 Juillet 2007

Re : envoie de donné dans des tableaux

Ca fonctionne
Mais je vois pas trop pourquoi ma ligne ne fonctionnais pas :'.

Pierrot93 · 11 Juillet 2007

Re : envoie de donné dans des tableaux

Re

si tu veux fermer classeur actif en précisant un nom et chemin, utiliser le code ci dessous :

Code:

ActiveWorkbook.Close True, "C:\MesDocuments\NomUtilisateur\Test\suivi.xls"

bonne soirée
@+

noir_desir · 11 Juillet 2007

Re : envoie de donné dans des tableaux

Ah ok je comprend mieux merci

Je dis comment que mon problème est résolu?

Pierrot93 · 12 Juillet 2007

Re : envoie de donné dans des tableaux

Bonjour Noir desir,

il n'y a pas sur ce forum de "flag" des questions résolues, mais tu l'as dit dans ton dernier post, c'est très bien comme cela.

bonne journée
@+

envoie de donné dans des tableaux

noir_desir

XLDnaute Junior

noir_desir

XLDnaute Junior

yadla

XLDnaute Occasionnel

noir_desir

XLDnaute Junior

Pièces jointes

noir_desir

XLDnaute Junior

noir_desir

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

noir_desir

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

noir_desir

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

Discussions similaires