envoie de donné dans des tableaux

[noir_desir]

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

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]

Re : envoie de donné dans des tableaux

Un petit up si quelqu'un peut m'aiguiller 😛

 

[yadla]

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]

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]

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]

Re : envoie de donné dans des tableaux

bonjour

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

 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

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]

Re : envoie de donné dans des tableaux

Bonjour Noir Desir, Yadla

essaye peut être la ligne de code ci dessous :

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

@+

 

[noir_desir]

Re : envoie de donné dans des tableaux

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

 

[Pierrot93]

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 :

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

bonne soirée
@+

 

[noir_desir]

Re : envoie de donné dans des tableaux

Ah ok je comprend mieux merci 😉

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

 

[Pierrot93]

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
@+