|
|
|
|
Bonjour, j'essaie de générer un tableau sous excel a partir de données sous access.
J'ai donc 3 champs (semaine, tache, Travail_effectuer) que j'ai filtrer grace a une requete et j'ai créer un formulaire d'apres cete requete ou j'affiche tous les enregistrements.
J'ai fait aussi un bouton que j'ai programmer pour générer un tableau sous excel en fonction de ces 3chamsp.
Concretement j'arrive a créer un tableau sous excel mé j'ai un probleme au niveau d données.
En fait pour un même champ plusieurs valeur doivent être inserer sur la même ligne d'un classeur et que la boucle le fasse pour tous les enregistrement dont des données sont existantes....
je m'explique j'obtien le tableau créer sous excel :
(de la forme semaine
tache effectuer )
J'obtien ceci : semaine1 semaine15 32
entretien UPS oui
entretien UPS oui
changement "" oui
et je voudrais : 1 15 32
entretie, UPS oui oui
changement "" oui
(je ne veux pas de dédoublement de valeur)
La boucle de mon code est la suivante :
DoCmd.GoToRecord , , acLast
Cmpt = Forms![MaTable].Recordset.RecordCount
DoCmd.GoToRecord , , acFirst
For Boucle = 1 To Cmpt
xlRange.Cells((Boucle + 1), 1).Value = Forms![MaTable].[Tache]
DoCmd.GoToRecord , , acNext
Next Boucle
DoCmd.GoToRecord , , acFirst
For Boucle = 1 To Cmpt
xlRange.Cells(1, (Boucle + 1)).Value = Forms![MaTable].[Semaine]
DoCmd.GoToRecord , , acNext
Next Boucle
DoCmd.GoToRecord , , acFirst
For Boucle = 1 To Cmpt
xlRange.Cells((Boucle + 1), (Boucle + 1)).Value = Forms![MaTable].[Travail_Effectuer]
DoCmd.GoToRecord , , acNext
Next Boucle
DoCmd.GoToRecord , , acFirst
Quelqu'un peut-il m'aider a corriger(pluto ameliorer) mon code (ma boucle) pour que j'arrive au résultat souhaiter?
Merci d'avance
Configuration: access 2000
;-) Oui, on peux t'aider ;-)
DoCmd.GoToRecord , , acLast Cmpt = Forms![MaTable].Recordset.RecordCount DoCmd.GoToRecord , , acFirst For Boucle = 1 To Cmpt xlRange.Cells((Boucle + 1), 1).Value = Forms![MaTable].[Tache] xlRange.Cells(1, (Boucle + 1)).Value = Forms![MaTable].[Semaine] xlRange.Cells((Boucle + 1), (Boucle + 1)).Value = Forms![MaTable].[Travail_Effectuer] DoCmd.GoToRecord , , acNext Next DoCmd.GoToRecord , , acFirst Un truc de ce style... Déjà plus simple à lire ;-) Ensuite, pour le reste, c'est vrai que ce serait plus facile de bosser sur le mdb... Quoiqu'il en soit, je te conseillerais d'utiliser des variables, quand tu lis tes enregistrements, c'est plus facile à "bidouiller" à ta sauce pour écrire dans les cellules... ;-) Wild and Free
|
Animal crossing ds code ami Code gta sur ds code argent Code vba excel 2003 chaine connection sql Code vba excel activer dernier fichier utilisé Code vba excel fermer toutes fenetres windows explorer Code vba excel pour définir un nom Code vba pour imprimer un onglet excel Code vba qui permet d'exporter les données d'une table vers excel Créer un formulaire pour excel avec code vba Excel application checkbox1 "vba access" Exécuter requête sql selection access via code vba Importation des données access vers excel en code vba Jeux ds code lyoco fall of xana Ouverture fichier excel code vba mode non exclusif Où ajouter code vba dans excel Quel est le code vba qui me permet d'importer les donnés d'une table vers excel Tableau gratuit excel budget Vba access excel erreur 462
