Discussion :

[Tequila_PF]

Bonjour à tous,

Je suis toujours sur ma base de données en access 2007 et me revoilà face à un nouveau problème et surtout face à mes compétences limitées en vba .... aussi je viens vers vous afin de savoir si vous avez quelques bonnes idées ...

J'ai besoin à partir d'un formulaire (en mode feuille de données) d'envoyer certaines infos dans des cellules d'un fichier excel ... En gros voilà les données de mon formulaire :

Num | Montant | Bor | Mandat
15 | 5 | a | 1m
15 | 7 | a | 2m
15 | 4 | a | 3m
16 | 7 | b | 4m
16 | 6 | b | 5m

Voici ce que j'ai :

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
 
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
 
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open("C:\Documents and Settings\Administrateur\Bureau\Base projet\ETAT.xls")
 
'appexcel.Sheets "Mand".Select
 
appexcel.Cells(17, 9) = [Num]
appexcel.Cells(17, 2) = [Montant]
appexcel.Cells(17, 5) = [Bor]
appexcel.Cells(17, 6) = [Mandat]
appexcel.Cells(18, 1) = [AdrContact]

Il fonctionne si je n'ai qu'un enregistrement dans mon formulaire par exemple 15 | 5 | a | 1m

Seulement ce que j'aimerai c'est de mettre dans ma premiere feuille excel tous les enregistrements (les uns en dessous des autres) qui ont le même Num et si le Num suivant est different que l'on passe à la feuille 2 d'excel et que l'on copie les infos dans les bonnes cellules toujours les unes à la suite des autres ....

Ben voilà .... je continue ma quête mais je suis ok si vous avez une p'tite idée.
Merci.
Tequila_pf


Merci beaucoup et bon week end à vous.

[ClaudeLELOUP]

Bonjour,

Seulement ce que j'aimerais c'est de mettre dans ma premiere feuille excel tous les enregistrements (les uns en dessous des autres) qui ont le même Num et si le Num suivant est different que l'on passe à la feuille 2 d'excel et que l'on copie les infos dans les bonnes cellules toujours les unes à la suite des autres ....

Une p'tite idée
Au lieu de raisonner sur ton formulaire, te baser plutôt sur la table.
Tu la lis enregistrement par enregistrement (dans l’ordre des Num)

Code :

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

1
2
3
4
5
6
Dim rec As DAO.Recordset
Set rec = CurrentDb.OpenRecordset("Ma table")
Do Until rec.EOF
.......
rec.MoveNext
Loop

Tu contrôles le changement de Num. A la rupture, tu crées une nouvelle feuille.
Pour chaque enregistrement ayant le même NUM, tu alimentes tes cellules et décalant d’une ligne à chaque enregistrement.

[Tequila_PF]

Bonjour et merci pour ta réponse,

En faite, mes données sont issues d'une requête (avec un critere où une date doit etre = a la date du jour) que j'affiche dans un formulaire car l'utilisateur avant de faire l'envoi sur excel doit renseigner un champ ... De plus Num est un numéro que l'utilisateur affecte en fonction d'une "reflexion humaine" et n'est donc pas un champ automatisé.

Je vais essayer de m'appuyer sur ton idée mais je ne nage un peu en code ....

Tu contrôles le changement de Num. A la rupture, tu crées une nouvelle feuille.
Pour chaque enregistrement ayant le même NUM, tu alimentes tes cellules et décalant d’une ligne à chaque enregistrement

Si tu as un peu de temps, aurais tu la gentillesse de développer un peu car je comprend ton explication mais je suis incapable d'ecrire le code.

Merci beaucoup.

[ClaudeLELOUP]

Bonjour,

je veux bien essayer mais cela risque de prendre du temps et ici, il est déjà 21:30.
Je reprends contact à mon réveil si d'autres membres n'ont pas solutionné
Bonne journée à toi.

[ClaudeLELOUP]

Un premier jet.
Vois si ceci peut déjà t’aider.
NB les feuilles Excel s’appellent 1,2 ….
Tu trouves un exemple ici
http://www.wikeo.be/files/4014/exportexcel.rar
Je décroche quelques heures.
A+

[Tequila_PF]

Bonjour,

Merci pour tes explications je suis très contente car cela me permet d'apprendre ...
J'ai regardé ton fichier et moi j'ai un message d'erreur de compilation "Projet ou bibliothèque introuvable" et il s'arrete sur ta ligne

Code :

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

Rs as recordset

A mon avis je dois cocher un truc dans les preferences vba ... je sais pas trop. Est-ce que c'est parce que je suis sur Access2007 ?

Bon dimanche à toi et encore un grand merci.