bonjour à tous
lorsque j'importe d'une base access vers excel, les champs vides deviennent automatiquement des 0 alors que dans la DB elle même, les champs vide et les champs avec un 0 sont bien différents.
y a t il un moyen, lors de l'importation d'une table, de faire faire le distingo à excel entre les champs vides et les champs nuls.
voici mon code de base pour l'un des tables:
seb
lorsque j'importe d'une base access vers excel, les champs vides deviennent automatiquement des 0 alors que dans la DB elle même, les champs vide et les champs avec un 0 sont bien différents.
y a t il un moyen, lors de l'importation d'une table, de faire faire le distingo à excel entre les champs vides et les champs nuls.
voici mon code de base pour l'un des tables:
merciSub Import_calcul()
Dim conn As ADODB.Connection
Dim req_divers As ADODB.Recordset
Dim Fichier As String, requete_name As String
Fichier = "c:\DBmodule.accdb"
requete_name = "Query_projet_calcul"
Sheets("Calcul").Range("A133:V5001").ClearContents
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Fichier & ";"
Set req_divers = New ADODB.Recordset
With req_divers
.ActiveConnection = conn
.Open "SELECT * FROM " & requete_name, , adOpenStatic, adLockOptimistic, adCmdText
End With
Sheets("calcul").Range("A133").CopyFromRecordset req_divers
req_divers.Close
Set req_divers = Nothing
conn.Close
Set conn = Nothing
End Sub
seb