AS400 vers Excel par macro
nounours
-
ibibihimself Messages postés 38 Statut Membre -
ibibihimself Messages postés 38 Statut Membre -
Bonjour,
puis je lancer un transfert automatique d'une Base AS400 vres mon PC à partir d'un fichier excel par une macro VBA (a partir d'une requete type .dtf).
En fait j'ai un feuille de calcul excel sur laquelle je recupère des information par des formule sur une seconde feuille que j'alimente par une table AS400 qui je transfere à chaque fois (pour des raisons de mises à jour), Je souhaiterai que cette table AS400 remonte automatiquement à l'ouverture de mon classeur Excel. J'envisage donc une macro.
Merci à tous d'avance
puis je lancer un transfert automatique d'une Base AS400 vres mon PC à partir d'un fichier excel par une macro VBA (a partir d'une requete type .dtf).
En fait j'ai un feuille de calcul excel sur laquelle je recupère des information par des formule sur une seconde feuille que j'alimente par une table AS400 qui je transfere à chaque fois (pour des raisons de mises à jour), Je souhaiterai que cette table AS400 remonte automatiquement à l'ouverture de mon classeur Excel. J'envisage donc une macro.
Merci à tous d'avance
A voir également:
- As400 macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Actiona macro - Télécharger - Divers Utilitaires
2 réponses
En fait ton problème est juste que tu utilises un fichier intermédiaire qui est ton fichier que tu descends depuis l'AS400
Au lieu de faire cela utilise plutot le pilote ODBC de Excel
Sous Excel tu fais "Données" "Données Externes" "Importer des données"
Tu créé ensuite ta base de données en mettant les bonnes Bibliothèques et après tu ramène le ou les fichiers
En fait Excel se base sur MS Query (composant Caché de Office). MS Query permet de faire des jointure et des tests c'est très puissant
Je l'ai utilisé énormément dans mon boulot ou je me suis beaucoup occupé de l'interfacage et de l'interprétation des données issues de notre 400
Dis moi si besoin de + d'infos
A+
Au lieu de faire cela utilise plutot le pilote ODBC de Excel
Sous Excel tu fais "Données" "Données Externes" "Importer des données"
Tu créé ensuite ta base de données en mettant les bonnes Bibliothèques et après tu ramène le ou les fichiers
En fait Excel se base sur MS Query (composant Caché de Office). MS Query permet de faire des jointure et des tests c'est très puissant
Je l'ai utilisé énormément dans mon boulot ou je me suis beaucoup occupé de l'interfacage et de l'interprétation des données issues de notre 400
Dis moi si besoin de + d'infos
A+
bonjour,
je suis débutant et... :
je sais créer et lancer un QUERY dans notre système AS400 grâce à un code VB. d'autre part, grâce à la macro complémentaire cwbtfxla.xll iseries (fournie par IBM avec l'interface AS400) je sais récupérer les données dans un fichier excel...
ma problematique est d'automatiser le "download" (ou l'exécution de la macro complémentaire) de façon à ce que l'utilisateur n'ai pas besoin d'intervenir pour télécharger les résultats du QUERY.
le code ci-dessous fonctionne très bien mais je n'arrive pas à indiquer l'emplacement précis du fichier Excel (par exemple worksheets("results").range("B6")) où j'aimerai que les valeurs soient téléchargées :
Dim dt As New cwbx.DatabaseTransfer
dt.Download "192.168.240.1", "galfn/test_tools", chemin, cwbdtBIFF5
pour le moment, je suis obligé de passé pas un fichier EXCEL "tampon" et je trouve ça très lourd et plutôt "laid" !
merci de me donner un coup de pouce...
a+
tramber
je suis débutant et... :
je sais créer et lancer un QUERY dans notre système AS400 grâce à un code VB. d'autre part, grâce à la macro complémentaire cwbtfxla.xll iseries (fournie par IBM avec l'interface AS400) je sais récupérer les données dans un fichier excel...
ma problematique est d'automatiser le "download" (ou l'exécution de la macro complémentaire) de façon à ce que l'utilisateur n'ai pas besoin d'intervenir pour télécharger les résultats du QUERY.
le code ci-dessous fonctionne très bien mais je n'arrive pas à indiquer l'emplacement précis du fichier Excel (par exemple worksheets("results").range("B6")) où j'aimerai que les valeurs soient téléchargées :
Dim dt As New cwbx.DatabaseTransfer
dt.Download "192.168.240.1", "galfn/test_tools", chemin, cwbdtBIFF5
pour le moment, je suis obligé de passé pas un fichier EXCEL "tampon" et je trouve ça très lourd et plutôt "laid" !
merci de me donner un coup de pouce...
a+
tramber
