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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 23 964 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

Merci encore pour ce code mais je galere en ce moment pour effectuer la copie de plusieurs champs :( il me copie qu'une seule valeur kan je met une boucle et si je met plusieurs l'instruction, meme avec des moveNext ect ... il me copie le bon nb de ligne mais tjs la meme valeur (la premiere valeur de ce champ) :(

le movenext ne veut pas marcher :(
Moi je copie au moins 30 champs sans problème !!
Ne pas oublier de nommer chaque champ :
--> Champ1 pour [Text1]
---> Champ 2 pour [text2]
--> etc ....
Ensuite la copie se fait de la façon suivante :
MonXL.Range("A1").Value =Champ1
MonXL.Range("A2").Value =Champ2
etc ...
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
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.
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

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.