[VBA] Rapatriement d'une requête ! [Resolu]
Rapatriement d'une requête ! [Resolu] [VBA] - VB/VBA/VBS - Programmation
Marsh Posté le 22-09-2003 à 13:44:26
Il n'y a vraimant personne pour m'aider 
Aidez moi SVP c vraimant important ! 
Sir
Marsh Posté le 24-09-2003 à 10:09:37
Avec beaucoup d'archarnement, j'ai trouvé enfin la solution à mon problème !
Pas sympa de m'avoir aider !![[:atog]](https://forum-images.hardware.fr/images/perso/atog.gif "[:atog]")
Marsh Posté le 08-11-2005 à 18:25:46
| sirshogun a écrit : Avec beaucoup d'archarnement, j'ai trouvé enfin la solution à mon problème ! |
Salut,
J'ai exactement le meme pb, si tu pouvais m'aider, ca serait super cool.
Merci d'avance.
Tux
Sujets relatifs:
- [Delphi] Stockage d'un mot de passe. [Résolu]
- [resolu] Synchroniser un texte descriptif et des images en float
- une requete sur les resultats d'une autre requete ??? [résolu]
- [resolu] [html] IE fait un passage à la ligne apres un <form>
- l'équivalent d'un type record en vb [résolu]
- Requête SQL sous SQL Serveur (conversion d'une requête access..) HELP!
- [résolu] Problème de reconnaissance des nouveaux messages ...
- Modifier une vidéo en temps réel [ Résolu .. en partie]
- Question sur gestion clavier avec TP [résolu]
Marsh Posté le 22-09-2003 à 09:11:00
Bonjour à tous,
Je me permet de poster ce message car j’ai besoin d’aide sous VBA.
Je souhaiterai écrire une petite macro qui me permet de récupérer des données sur Excel venant d’une base de donnée SQL. Ma table que j’appellerai « matable » est composé d’une cinquantaine de champ dont une fait référence à la date .J’arrive à me connecter sans problème mais j’ai un souci dans le rapatriement des données. L’objectif de ce petit outils, c’est de récupérer certaines données pour une date données (exemple : 17 sept 2003)
Voici le code de ma requête :
Dim ReqSQL As String
ReqSQL = "SELECT Champ_2,champ45 FROM dbo.matable WHERE dbo.matable.date>='20030917' "
Pas de faute signaler ici mais est ce que ma requête est rédigé correctement ?
Ensuite je souhaite que le resultat de ma requete s’affiche dans une feuille Excel
With ActiveSheet.QueryTables.Add(Connection:=Maconnection, Destination:=Range("A1" ), Sql:= ReqSQL)
.Refresh
End With
......
La ca plante :
Erreur d'execution '1004'
Erreur definie par l'application ou par l'objet
Qui pourrait m'aider,SVP, à resoudre mon problème ?
Ma solution n'est peut être pas la meilleur ! qui en aurrai une autre ?
Merci d'avance à celui ou à ceux qui pourront m'aider !!
Veuillez m'excuser peut etre de mon ignirance mais je suis auto ditacte et donc novice dans cette matiere....
@+ Sir
Message édité par sirshogun le 24-09-2003 à 10:10:39