Connexion entre VBA Excel et acces
Option Explicit
Public cn As Object
Public Sub ConnexionAccess()
Dim cheminAcces As String
' Récupère le chemin complet du fichier Access
cheminAcces = Environ("USERPROFILE") & "\C:\Users\kaid\Desktop\superette2025\BD.accdb"
' Crée un nouvel objet de connexion (Late Binding, pas besoin de cocher ADO)
Set cn = CreateObject("ADODB.Connection")
' Ouvre la connexion
On Error GoTo ErreurConnexion
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & cheminAcces & ";Persist Security Info=False;"
MsgBox "Connexion réussie à la base de données.", vbInformation
Exit Sub
ErreurConnexion:
MsgBox "Erreur de connexion : " & Err.Description, vbCritical
End Sub
il marche pas erreur chemin nom fichier .......c'est bizarre
bonjour,
Option Explicit
' Cher utilisateur de forum VBA,
' Voici un exemple de code... avec un soupçon de savoir-vivre.
Public cn As Object
Public Sub ConnexionAccess()
Dim cheminAcces As String
' Ah, le fameux chemin d’accès mystère... Peut-être un bonjour l’aurait-il aidé à se révéler ?
cheminAcces = Environ("USERPROFILE") & "\C:\Users\kaid\Desktop\superette2025\BD.accdb"
Set cn = CreateObject("ADODB.Connection")
On Error GoTo ErreurConnexion
' Tentative de connexion. Croisons les doigts... et soyons polis avec Mme Base de données.
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & cheminAcces & ";Persist Security Info=False;"
MsgBox "Connexion réussie à la base de données. (Et tout ça sans dire 'Bonjour', incroyable !)", vbInformation
Exit Sub
ErreurConnexion:
MsgBox "Erreur de connexion : " & Err.Description & vbCrLf & _
"Peut-être que si tu disais 'Bonjour', la base serait plus coopérative ?" & vbCrLf & _
"Et un petit 'merci' n’a jamais causé de bug non plus...", vbCritical
End Subje vien de consulter
Merci
le code fonctionne je l'ai modifier j 'ai coche microsoft data 2.8 dans reference
j ai un autre probleme il me lis pas le code barre quand je saisi le code dans txtcodebarre il m affiche pas les donner sur la listbox avec entete
Merci encore
Bonsoir vous pouvez m'aider s'il vous plait je suis perdu
probleme avec connexion ado vers access
Bonjour,
c'est un jeux de piste, je peux suivre l'évolution du code que je te livre en te pistant sur plusieurs forums et même plusieurs poste sur le même forum.
il te faut faire un choie je n'est pas l'intension de jouer!
tu devrais aller sur dvp.com et comment ça marche ça me facilitera tache!
Bonjour
Je viens de consulter et je n'ai pas encore tester
merci