importation excel pas de rapport

Le
MAGALIE
Re bonjour

Lorsque j'importe des donnes excel et qu'il y a des
doublons Acces ne me fais pas de rapport d'erreur !

Manque t'il une option ?

Mille merci tous ces chefs Access
Mag
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #5032971
Bonjour magalie.

il n'y a pas d'options à ma connaissance. Il faut gérer toi-même la
situation:

1- lier la feuille excel
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "tablex",
"fichierexcel.xls", True

2- contrôler les doublons par une requête
If DCount("corr_nom", "requête3") > 0 Then
MsgBox "il y a des doublons"
Exit Sub
End If
sql de la requête:
SELECT table1.Lenom
FROM table1 INNER JOIN Tablex ON table1.Lenom = Tablex.Lenom;

3- importer le fichier si pas de doublons
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "table1",
"fichierexcel.xls", True

en espérant ne rien avoir oublié.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"MAGALIE" news:1ce1001c422e7$09696b70$

Re bonjour

Lorsque j'importe des données excel et qu'il y a des
doublons Acces ne me fais pas de rapport d'erreur !

Manque t'il une option ?

Mille merci à tous ces chefs Access
Mag
Raymond [mvp]
Le #5032941
.../...
Lire
If DCount("Lenom ", "requête3") > 0 Then
au lieu de :

If DCount("corr_nom", "requête3") > 0 Then
excuses.


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" news:
Bonjour magalie.

il n'y a pas d'options à ma connaissance. Il faut gérer toi-même la
situation:

1- lier la feuille excel
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "tablex",
"fichierexcel.xls", True

2- contrôler les doublons par une requête
If DCount("corr_nom", "requête3") > 0 Then
MsgBox "il y a des doublons"
Exit Sub
End If
sql de la requête:
SELECT table1.Lenom
FROM table1 INNER JOIN Tablex ON table1.Lenom = Tablex.Lenom;

3- importer le fichier si pas de doublons
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "table1",
"fichierexcel.xls", True

en espérant ne rien avoir oublié.


Publicité
Poster une réponse
Anonyme