Extraction données access vers excel déjà existante (ole)

0/5 (7 avis)

Snippet vu 24 728 fois - Téléchargée 61 fois

Contenu du snippet

Ce code permet, à partir d'access 97, d'extraire les données d'un ou plusieurs champs vers un
fichier excel existant et vers des cellules bien précise.
Il vous suffit de créer un bouton Commande1, de remplacer [Text1] par le nom de votre champ.

Copiez-collez le code ci-dessous dans la partie "Evenement" et "Sur Clic"

Source / Exemple :


Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click

Dim Champ1 As String
Dim MonFichier As String

 'Attribue un nom à votre champ, le champ est Text1
Champ1 = [Text1]

'Défini le nom de votre fichier Excel
MonFichier = "nomdevotrefichier.xls"

'Ouvre l'application Excel
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan
MonXL.Visible = True 'Rend Excel visible...
MonXL.UserControl = True

'Ouvre MonFichier
MonXL.Workbooks.Open FileName:="C:\Mes Documents\" & MonFichier

'Copie les valeurs
MonXL.Range("A1").Value =Champ1 'Envoie le contenu du ou des textboxes dans la ou les cellules
      
Exit_Commande1_Click:
    Exit Sub

Err_Commande1_Click:
    MsgBox Err.Description
    Resume Exit_Commande1_Click
    
End Sub

A voir également

Ajouter un commentaire Commentaires
mariuskeith Messages postés 7 Date d'inscription dimanche 18 juillet 2004 Statut Membre Dernière intervention 28 mai 2007
22 mai 2007 à 12:17
codes sources pour l'extraxction des fichiers,les enregistrer et les exploiter par aprés,aidez moi à avoir ce code
cs_mkane Messages postés 3 Date d'inscription vendredi 18 novembre 2005 Statut Membre Dernière intervention 14 novembre 2006
27 févr. 2006 à 15:00
Est-il possible de faire la même chose pour MS Word. Merci...
nagattaque Messages postés 230 Date d'inscription jeudi 29 mai 2003 Statut Membre Dernière intervention 5 juin 2007
18 août 2003 à 15:22
je ne comprens pas... g un message d'erreur me disant :
"variable non définie" sur la ligne
SET MonXL
Une idéé ?
Merci d'avance
esmoh Messages postés 2 Date d'inscription mardi 18 mars 2003 Statut Membre Dernière intervention 19 avril 2003
4 juin 2003 à 17:40
merci pour ce code.j'ai besoin de automation powerpoint vers interf.visual basic .si possible m'envoyer un document concernant cet aspect à l'adresse :esmoh@caramail.com. merci de votre collaboration.
merci pour ce code ,
je veux un code qui réalise l'insertion d'un objet OLE(image) à partir d'un formulaire vba dans une base de données ACCESS(j'ai défini un champs de type OLE)
merci, je suis pressé par le temps SVP
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.