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
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.