Exporter / Enregistrer sur Excel

Version imprimable

30/01/2008, 10h37
Manou34

Bonjour à tous,

Sa fait plusieurs jours maintenant que je travaille dessus mais je ne m'en sors pas !

Voilà mon projet :
- je travaille sur un Intranet, composé entre autre d'un Annuaire de l'entreprise, sur celui-ci il y a un bouton générer qui génére une feuille en csv.
- ensuite j'ai un classeur excel avec une feuille Annuaire, CSV et LDAP avec des macros pour les alimenter.

le CSV reprend l'annuaire qui est sur l'Intranet auparanvant générer, l' Annuaire compare les données provenant du CSV et du LDAP (la vraie base de donnée de l'annuaire) et mets en rouge les informations à supprimer et en vert les nouvelles données qui ne figurées pas sur l'Intranet.

Maintenant ce que je voudrais faire c'est enregistrer cette feuille "Annuaire" de façon que celà soit ces données qui apparaisssent sur l'annuaire de l'Intranet.

J'espère que vous m'avez compris ... si vous avez des questions pour plus de renseignements, n'hésitez pas, je vous répondré avec plaisir afin que vous puissiez m'aider

N'hésiter pas à me poser des questions ...

Ou à me redemander ce que je veux ...

Avez-vous besoin du classeur Excel sur lequel je travaille ??

Merci

Je n'ai toujours pas trouvé comment faire.
Ce que je désire est fesable au moins non ? Il me semble que oui car on me le demande ...

Je vous remercie des conseils que vous pourriez m'apporter .

Bonne journée
30/01/2008, 15h38
Lou Pitchoun

Salut,

Ton annuaire : c'est quoi ? Une appli Office ou développée dans un langage particulier ?

Dans le 1er cas : c'est faisable.
Dans le second, si tu ne sais pas développer dans le langage du programme, t'es foutu.

Enfin je pense...

Citation:

Ce que je désire est fesable au moins non ? Il me semble que oui car on me le demande ...

Dis toi bien qu'il n'y a rien d'impossible. Il suffit juste de se donner les moyens de le faire.
30/01/2008, 15h42
Manou34

Bonjour Lou Pitchoun !

merci de me répondre !!

L'annuaire sur l'intranet est dévelopé en php, alimenté par une base de données MySql.

Je répond à ta question ??
30/01/2008, 15h48
Lou Pitchoun

Et bien oui.

Recherche sur le forum Access 'Connection MySQL'.
Tu pourras certainement créer un recordset sur ta feuille Annuaire. Recordset qui te permettra de mettre à jour ta base MySQL.

;)
30/01/2008, 15h57
Manou34

Oulala je suis perdue ... :piou:

je ne sais pas comment je dois faire, je n'ai pas trés bien compris...

Je dois écrire le code dans ma macro 'Enregistrer' ??
30/01/2008, 16h17
Lou Pitchoun

Il va te falloir aller plus loin que ça...

L'enregistreur de macro ne te permettra pas de te connecter à ta base MySQL.
:?

Exemple de code :
http://www.developpez.net/forums/sho...nnection+mysql

Des articles à lire :
http://access.developpez.com/cours/?page=courstuto#ado

;)
31/01/2008, 10h57
Manou34

1 pièce(s) jointe(s)

Ci - joint un exemple de mon classeur
31/01/2008, 14h41
Lou Pitchoun

Tu as fait une fonction (Import_LDAP) pour importer les données dans Excel.
Tu devrais pouvoir faire celle qui exporte non ??

Je n'ai pas compris ce que tu n'arrives pas à faire à la vue de ton fichier.
:koi:
31/01/2008, 14h58
Manou34

Ben pourtant c'est bien vrai, je ne sais pas comment faire pour exporter !!

En faite, une fois ma feuile "Annuaire" mise à jour par rapport au LDAP, ce que je veux c'est l'enregistrer.

Ensuite, il faudrait que l'annuaire qui est sur l'Intranet corresponde aux même données (celles sur la feuille "Annuaire") !!

Merci pour vos conseils

Dans ta fonction d'importation tu as :

Code:

1
2
3
4
5
6
7
8
    While Not Recordset.EOF ' Parcours le tableau jusqu'à ce qui'il n'y ait plus d'enregistrement
        ActiveSheet.Range("A" & i).Value = Recordset.fields(0).Value
        ActiveSheet.Range("B" & i).Value = Recordset.fields(1).Value
        ActiveSheet.Range("C" & i).Value = Recordset.fields(2).Value
        ActiveSheet.Range("E" & i).Value = Recordset.fields(3).Value
        i = i + 1
        Recordset.MoveNext 'Passe à la ligne suivante
    Wend

Il te suffit pour faire l'inverse de faire :

Code:

Recordset.Fields(0) = ActiveSheet.Range("A" & i)

31/01/2008, 15h23
Manou34

Merci, ;)

mais je pense pas que celà soit ceci car je ne veut pas exporter des informations qui proviennent du LDAP sur le LDAP (...) :?

Cela serait plus sur le CSV non ?? Sur la table adressbook ??? :cry:

Je ne sais pas en faite ... je crois que je vais tout abandonner .... :piou: