begin process at 2012 02 12 12:07:33
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBA

 > AFFICHER LE CONTENU D'UNE REQUETTE DANS UN SPREADSHEET

AFFICHER LE CONTENU D'UNE REQUETTE DANS UN SPREADSHEET


 Information sur la source

Note :
Aucune note
Catégorie :VBA Classé sous :Decouverte, Exportation excel, Simplicité, formatage, le savoir Niveau :Initié Date de création :16/09/2008 Date de mise à jour :08/04/2010 12:11:12 Vu / téléchargé :4 282 / 214
Auteur : dahbia

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Exécuter une requête SQL, et afficher le contenu de la table dans un SpreadSheet (Excel).
A condition que la dll (OWC11.dll) soit dans le chemin C:\WINDOWS\system32.
Créer un bouton Command et introduire ce code dedans.
l'exemple dans le .zip est different a celui posté dans la source mais le principe est le même.

Source

  • Private Sub Command1_Click()
  • With Spreadsheet1
  • .ToolTipText = "Feuille excel pour l'exporter ,cliquez sur l'icon d'excel et le tour est joué"
  • .ActiveSheet.ConnectionString = cnx.ConnectionString
  • .ActiveSheet.CommandText = "SELECT * from
  • apps.AT_MAJ_RAP_BQE"
  • .DisplayTitleBar = True
  • .TitleBar.Font.Name = "Garamond"
  • .TitleBar.Font.Size = 12
  • .ActiveWindow.DisplayGridlines = True
  • .TitleBar.Caption = Me.Caption
  • .TitleBar.Interior.ColorIndex = 12
  • .Rows(1).Font.Bold = False
  • End With
  • Dim rngCurrentRow
  • For Each rngCurrentRow In Spreadsheet1.Cells
  • (1,1).CurrentRegion.Rows
  • If rngCurrentRow.Row Mod 2 = 0 Then
  • rngCurrentRow.Interior.Color = "Lightcyan"
  • rngCurrentRow.Font.Bold = True
  • End If
  • Next
  • Spreadsheet1.ActiveSheet.ConnectionString = ""
  • Spreadsheet1.ActiveSheet.CommandText = ""
  • End Sub 
Private Sub Command1_Click()
  With Spreadsheet1
  .ToolTipText = "Feuille excel  pour l'exporter ,cliquez sur l'icon d'excel et le tour est joué"
  .ActiveSheet.ConnectionString = cnx.ConnectionString
  .ActiveSheet.CommandText = "SELECT * from 
   apps.AT_MAJ_RAP_BQE"
  .DisplayTitleBar = True
  .TitleBar.Font.Name = "Garamond"
  .TitleBar.Font.Size = 12
  .ActiveWindow.DisplayGridlines = True
  .TitleBar.Caption = Me.Caption
  .TitleBar.Interior.ColorIndex = 12
  .Rows(1).Font.Bold = False
End With
Dim rngCurrentRow
   For Each rngCurrentRow In Spreadsheet1.Cells
       (1,1).CurrentRegion.Rows
       If rngCurrentRow.Row Mod 2 = 0 Then
          rngCurrentRow.Interior.Color = "Lightcyan"
          rngCurrentRow.Font.Bold = True
      End If
   Next
Spreadsheet1.ActiveSheet.ConnectionString = ""
Spreadsheet1.ActiveSheet.CommandText = ""
End Sub

 Conclusion

Vous aurez votre requette sur une grille excel ou vous pourez faire un export, un tri, un filtre, etc... .

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

30 septembre 2008 11:07:36 :
Avant il n'y avait de .zip c'est juste un plus pour cette petite source avec deux exemples differents.
30 septembre 2008 11:19:51 :
Ajout du .zip pour un peu plus de detail.
08 avril 2010 12:11:12 :
Pour la mise en forme des colonnes.

 Sources du même auteur

Source avec Zip CONNEXION A UN BASE DE DONNEE ORACLE SOUS UN SERVEUR IBM SYS...
AFFECTER MOT DE PASSE A UNE BASE ACCESS.
Source avec Zip CONVERTIR LES CHIFFRES EN LETTRE
Source avec Zip Source avec une capture COMPACTAGE ET SAUVEGARDE D'UNE BASE DE DONNÉE .MDB
Toutes les sources de dahbia

 Sources de la même categorie

Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Source avec Zip Source avec une capture VBA MASQUE DE SAISIE NUMÉRIQUE par acive
Toutes les sources de la catégorie VBA

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture LANCER L'IDE VB6 EN SAUVEGARDANT/MODIFIANT LE CONTENU DU PRE... par PCPT
Source avec Zip Source avec une capture UTILITAIRE DE SANITIZATION DES DISQUES/FICHIERS (SUPPRESSION... par violent_ken
VBS TRIER DEDOUBLONNER RECUPERER DES ELEMENTS SELECTIONNER D... par toussaim
Source avec Zip FAUX VIRUS QUI SIMULE UN FORMATAGE par Amine
FORMATAGE DISQUES DURS/DISQUETTES par sub-zero

Commentaires et avis

Commentaire de mehdi7604 le 17/09/2008 22:00:15

Tu pouura evoluer ton application pour faire une application ( logiciel ) de gestion de bd personélisée selon les besoins ? parceque là je ne vois pas vraiment l'utilité

Commentaire de dahbia le 20/09/2008 10:51:14

Bonjour,
C'est tout a fait normal il n'y a aucun contrôle qui a été utiliser comme ça au hasard, mon but c'est de partagé avec vous 'tous' un contrôle qui m'aide beaucoup et même ceux qui l'utilise bien sur dans une application (Un petit logiciel).

Alors si vous ne voyer pas l'utilité ne l'utiliser pas.

A mon avis tous ce qui ce poste dans ce site n'est pas vraiment des applications (logiciel),

Merci.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

..FORMATAGE DU TEXTE VERS LA GAUCHE... [ par Daniel ] Bonjour,Développeur débutant, j'ai trouvé dans la littérature de visual basic 6, que l'on pouvais formater du texte avec la commande suivante :_______ Formatage d'une TextBox [ par Nico ] Dans un formulaire, je souhaiterai insérer une textbox dans laquelle on ne pourrait saisir qu'une valeur numérique. Ainsi, toute saisie de caractère ( Urgent. Comment avoir un formatage d'un nombre dans un textbox? [ par fredo ] Comment avoir un formatage d'un nombre dans un texte box.Lorsque j'introduit un nombre dans un textbox j'aimerai que celui ci prend comme format 345. Formatage des nombres dans un Msflexgrid [ par Jean-Claude ] J'ai un Msflexgrid avec des nombres provenant d'une database qui sont au format numérique avec séparateur de milliers et je n'arrive pas à obtenir le Help! Je suis dans le fromage pour le formatage de nombres [ par bailler ] je veux formater des nombres sous le mode suivant:# ##0,00 sous VBA access .J'ai écrit x=format(monnombre,"#,##0.00")je voudrais obtenir 1 180,29mais Formatage avec Datareport [ par blcq ] Lors de l'impression d'un texte avec Datareport, tous les espaces en début de ligne ne sont pas imprimés. Qui peut me donner le bon formatage ?Merci d Formatage avec Datareport [ par blcq ] Lors de l'impression d'un texte avec Datareport, tous les espaces en début de ligne ne sont pas imprimés. Qui peut me donner le bon formatage ?Merci d Formatage avec Datareport [ par blcq ] Lors de l'impression d'un texte avec Datareport, tous les espaces en début de ligne ne sont pas imprimés. Qui peut me donner le bon formatage ?Merci d problème avec les date en VBA et leur formatage !!!!!! URGENT !!!!!! [ par nitocris ] Je suis d'en une application ACCESS 2000Et je veux filtrer un formulaire via le code.Le problème c'est que le filtre agit sur une date.or la date est


Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,889 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)