Discussion :

[Aiman.elmachi]

Salut tout le monde,
J'ai mon petite application qui sert à importer des fichiers Excel et les enregistrer dans une BD SQL Server, et je veux arriver à créer un fichier Excel personnalisé .
Je m'explique :
J'ai une BD SQL qui comporte 4 tables "Tab1" "Tab2" "Tab3" "Tab4", et chaque table comporte 4 champs : A, B, C, D.
Maintenant j'importe mon fichier excel qui comporte 4 feuilles(F1,F2,F3,F4) et les memes champs A, B, C, D.
Je veux créer un fichier excel qui comporte une seule feuille, où il existe les 4 champs A, B, C, D, et les valeurs de ces champs dans les 4 feuilles précédentes vont s'ajouter entre eux dans le même champ correspondant dans le fichier excel final (une feuille )! Voilà cette figure qui facilitera la tâche :

Aidez moi SVP et Merci d'avance

[Uranne-jimmy]

Bonjour,
Il y plusieurs solutions pour effectuer cette manip, mais la plus simple reste de rentrer ligne par ligne chaque entrée de chaque table, dans une jolie boucle :
Pour chaque entrée de ma table
Cellule(ligne, colonne) prend la valeur de entrée
ligne + = 1
Suivant
Et tu gardes dans un coin la variable ligne pour entamer à partir de là à la table suivante.
Sinon tu fais une petite méthode qui te cherche les coordonnées de la première cellule vide que tu cherches dans une colonne, afin de reprendre l'enregistrement des données à partir de là.

[Rainui]

Bonjour,

Question bête :

Pourquoi avoir 4 tables qui contiennent les mêmes champs ???

[Aiman.elmachi]

Salut,
Rainui, j'ai les mêmes champs groupés en 6 intervalles. Ce n'est pas assez stupide, si c le cas j'ai dû le remarquer ! Merci
Pour Uranne-jimmy, Est ce que tu peux m'aider à transformer ton commentaire en Code VB.NET ! Merci d'avance

[Uranne-jimmy]

Je veux bien, mais je te laisse la partie BDD, je ne l'ai jamais utilisé.
Mais de base pour faire ce que j'ai dis :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim classeur as workbook
Dim ligne, colonne as integer
ligne = 'première ligne ?
colonne = 'première colonne ?
For each Entree in "ta liste d'entrée dans tel colonne de ta BDD"
classeur.worksheets(1).cells(ligne, colonne).value = Entree
ligne += 1
Next

A partir de là, en concervant la valeur de la variable ligne, tu iras toujours en dessous de la dernière ligne inscrite.

Une autre méthode, auquel je n'avais pas pensé parce que j'aime me compliquer la vie :
Tu ouvres ta bdd, tu crées 4 listes, tu mets dans chaque liste tout les éléments de ta bdd par champs (listechampsA.add(blabla)), tu pars ensuite de cette liste pour compléter ton Excel.