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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 24 036 fois - Téléchargée 58 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

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

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

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

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

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.