rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

Problème Access et Excel

gaudian, le jeudi 5 juillet 2007 à 14:12:13
Bonjour,

Je vais vous expliquer mon problème. Je travaille sous VB 6.0 avec une base Access.

Mon objectif est à partir de ma base Access afficher les informations contenues dans cette base sur une feuille Excel tout marche sauf pour 3 colonnes.

Mes 3 dernières colonnes ont des champs de type "Mémo" sous Access, il affiche le contenu du champ sur plusieurs lignes, la première se met correctement dans ma colonne N et les autres valeurs du champ se mettent sous la colonne A, je les voudrais :
soit sur une seule ligne,
soit sur plusieurs lignes mais sur la même colonne (colonne N dans mon exemple)

Merci à vous
Configuration: Windows XP
Internet Explorer 7.0
Répondre à gaudian  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
khalido_ccm, le vendredi 6 juillet 2007 à 15:33:28
Je te passe une idée qui m'a servi tellement :

Ouvre une nouvelle macro sous Excel, fait manuellement tout ce que tu vx.
Tape Alt + F11 pour voir l'éditeur VB, dans le dossier modules ouvre module1.
Tu trouvera une procédure de la macro créée.Et là tu as tout le code que peut t'aider énormément dans votre application VB, il suffit de le paramétrer un peu.

Bonne chance.
   
Répondre à khalido_ccm

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
gaudian, le vendredi 6 juillet 2007 à 15:44:32
En fait, mon code marche et ma mise en page fonctionne, cela vient je pense de ma BDD car mes 3 dernières colonnes sont du type "Mémo".

Je prend un exemple j'ai une colonne qui s'intitule MATCONF, ce champ contient plusieurs lignes comme ci-dessous :

MatConf:
Commentaire 1
Commentaire 2
Commentaire 3

Si j'enleve le retour à la ligne (Commentaire1Commentaire2Commentaire3) cela fonctionne correctement, voici mon bout de code qui fonctionne sans le retour à la ligne. 

Chaine = Chr(34) & Trim(Data1.Recordset.Fields("Famille")) & """;" & """" & Trim(Data1.Recordset.Fields("IdentArt")) & """;" & """" & Trim(Data1.Recordset.Fields(("MatConf")))



Si quelqu'un peut m'en dire plus
   
Répondre à gaudian

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
khalido_ccm, le vendredi 6 juillet 2007 à 16:14:10
Voilà approximativement ce que je fais moi :

'---------------------
Dim ApplExcel As Excel.Application
Dim WBExcel As Excel.Workbook
Dim WSExcelAs Excel.Worksheet

Set ApplExcel = New Excel.Application 'on crée une nouvelle app Excel
Set WBExcel = objXL.Workbooks.Add 'On lui ajoute un classeur
Set WSExcelAs = objWB.Worksheets(1) 'On sélectionne la feuille 1


for i=0 to rs1.recordcount
'-------On charge le s1ers chams ds la feuille Excel
WSExcelAs .Cells(i, 9) = rs2![Descripción]= Trim(Data1.Recordset.Fields(("MatConf"))) '9 =>colonne N
rs1.movenext
next
'--------------------
De cette façon je contrôle bien les cellules de ma feuille
   
Répondre à khalido_ccm

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
gaudian, le lundi 9 juillet 2007 à 09:09:23
Ca ne fonctionne pas
   
Répondre à gaudian

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
gaudian, le mercredi 11 juillet 2007 à 11:35:27
C'est j'ai trouvé une solution,

Le principe est le suivant j'effectue une boucle sur mon enregistrement et à chaque passage j'utilise la méthode Replace.

Voilà ça fonctionne c'est cool
   
Répondre à gaudian

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 khalido_ccm, le lundi 16 juillet 2007 à 16:49:56
Félicitation
   
Répondre à khalido_ccm
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger OpenOffice.org 2.4.1OpenOffice.org - OpenOffice est une suite bureautique complète entièrement gratuite, compatible avec la suite Microsoft Office. Elle...Catégorie: Suite bureautique
Licence: Open Source
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Ms Word Excel Cracker 2.2Ms Word Excel Cracker - Ms Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls...Catégorie: Suite bureautique
Licence: Freeware/gratuit
Télécharger MOREFUNC (Macro complémentaire EXCEL) 5.06MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...Catégorie: Tableur
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Problème Access et Excel »