Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0 ")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0 ")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0 ")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JB
Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JB
Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JB
Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même d onnées
Merci!Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage ]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même d onnées
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JB
Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage ]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même d onnées
Merci!Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage ]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Ce qui suit ... je n'ai pas eu l'occasion de le tester avec DAO,
Si dans ta table de données Access, tu modifies la propriété
du champ sur lequel tu ne veux pas de doublons( clé primaire
par exemple) lorsque l'on fait une requête directement dans Access,
Access refuse automatiquement (de lui-même) de transgresser
les propriétés de la table, et il crée une table d'erreur dans laquelle
il insère les doublons laissant passer les enregistrements qui ne
constituent pas un doublon.
As-tu essayé cette astuce sur le champ dont tu veux éviter les doublons ?
En utilisant le même code ?
"remigo" a écrit dans le message de news:
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même données
Merci!Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Ce qui suit ... je n'ai pas eu l'occasion de le tester avec DAO,
Si dans ta table de données Access, tu modifies la propriété
du champ sur lequel tu ne veux pas de doublons( clé primaire
par exemple) lorsque l'on fait une requête directement dans Access,
Access refuse automatiquement (de lui-même) de transgresser
les propriétés de la table, et il crée une table d'erreur dans laquelle
il insère les doublons laissant passer les enregistrements qui ne
constituent pas un doublon.
As-tu essayé cette astuce sur le champ dont tu veux éviter les doublons ?
En utilisant le même code ?
"remigo" <remigo@discussions.microsoft.com> a écrit dans le message de news:
951F88D7-89B0-4DE1-B3E8-C92C1B87E450@microsoft.com...
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même données
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JB
Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Ce qui suit ... je n'ai pas eu l'occasion de le tester avec DAO,
Si dans ta table de données Access, tu modifies la propriété
du champ sur lequel tu ne veux pas de doublons( clé primaire
par exemple) lorsque l'on fait une requête directement dans Access,
Access refuse automatiquement (de lui-même) de transgresser
les propriétés de la table, et il crée une table d'erreur dans laquelle
il insère les doublons laissant passer les enregistrements qui ne
constituent pas un doublon.
As-tu essayé cette astuce sur le champ dont tu veux éviter les doublons ?
En utilisant le même code ?
"remigo" a écrit dans le message de news:
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même données
Merci!Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Ce qui suit ... je n'ai pas eu l'occasion de le tester avec DAO,
Si dans ta table de données Access, tu modifies la propriété
du champ sur lequel tu ne veux pas de doublons( clé primaire
par exemple) lorsque l'on fait une requête directement dans Access,
Access refuse automatiquement (de lui-même) de transgresser
les propriétés de la table, et il crée une table d'erreur dans laquelle
il insère les doublons laissant passer les enregistrements qui ne
constituent pas un doublon.
As-tu essayé cette astuce sur le champ dont tu veux éviter les doublons ?
En utilisant le même code ?
"remigo" a écrit dans le message de news:
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même données
Merci!Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Ce qui suit ... je n'ai pas eu l'occasion de le tester avec DAO,
Si dans ta table de données Access, tu modifies la propriété
du champ sur lequel tu ne veux pas de doublons( clé primaire
par exemple) lorsque l'on fait une requête directement dans Access,
Access refuse automatiquement (de lui-même) de transgresser
les propriétés de la table, et il crée une table d'erreur dans laquelle
il insère les doublons laissant passer les enregistrements qui ne
constituent pas un doublon.
As-tu essayé cette astuce sur le champ dont tu veux éviter les doublons ?
En utilisant le même code ?
"remigo" <remigo@discussions.microsoft.com> a écrit dans le message de news:
951F88D7-89B0-4DE1-B3E8-C92C1B87E450@microsoft.com...
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même données
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JB
Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Ce qui suit ... je n'ai pas eu l'occasion de le tester avec DAO,
Si dans ta table de données Access, tu modifies la propriété
du champ sur lequel tu ne veux pas de doublons( clé primaire
par exemple) lorsque l'on fait une requête directement dans Access,
Access refuse automatiquement (de lui-même) de transgresser
les propriétés de la table, et il crée une table d'erreur dans laquelle
il insère les doublons laissant passer les enregistrements qui ne
constituent pas un doublon.
As-tu essayé cette astuce sur le champ dont tu veux éviter les doublons ?
En utilisant le même code ?
"remigo" a écrit dans le message de news:
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même données
Merci!Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savoir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "excel 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Plage]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Merci MichDenis,
Ça fonctionne, sauf que j'aimerais savoir si j'ai déjà exporter mes données,
et si je veux les remplacer
Merci encore une foisCe qui suit ... je n'ai pas eu l'occasion de le tester avec DAO,
Si dans ta table de données Access, tu modifies la propriété
du champ sur lequel tu ne veux pas de doublons( clé primaire
par exemple) lorsque l'on fait une requête directement dans Access,
Access refuse automatiquement (de lui-même) de transgresser
les propriétés de la table, et il crée une table d'erreur dans la quelle
il insère les doublons laissant passer les enregistrements qui ne
constituent pas un doublon.
As-tu essayé cette astuce sur le champ dont tu veux éviter les doub lons ?
En utilisant le même code ?
"remigo" a écrit dans le message d e news:
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même données
Merci!Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savo ir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "exc el 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Pla ge]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Merci MichDenis,
Ça fonctionne, sauf que j'aimerais savoir si j'ai déjà exporter mes données,
et si je veux les remplacer
Merci encore une fois
Ce qui suit ... je n'ai pas eu l'occasion de le tester avec DAO,
Si dans ta table de données Access, tu modifies la propriété
du champ sur lequel tu ne veux pas de doublons( clé primaire
par exemple) lorsque l'on fait une requête directement dans Access,
Access refuse automatiquement (de lui-même) de transgresser
les propriétés de la table, et il crée une table d'erreur dans la quelle
il insère les doublons laissant passer les enregistrements qui ne
constituent pas un doublon.
As-tu essayé cette astuce sur le champ dont tu veux éviter les doub lons ?
En utilisant le même code ?
"remigo" <remigo@discussions.microsoft.com> a écrit dans le message d e news:
951F88D7-89B0-4DE1-B3E8-C92C1B87E450@microsoft.com...
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même données
Merci!
Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JB
Bonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savo ir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "exc el 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Pla ge]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!
Merci MichDenis,
Ça fonctionne, sauf que j'aimerais savoir si j'ai déjà exporter mes données,
et si je veux les remplacer
Merci encore une foisCe qui suit ... je n'ai pas eu l'occasion de le tester avec DAO,
Si dans ta table de données Access, tu modifies la propriété
du champ sur lequel tu ne veux pas de doublons( clé primaire
par exemple) lorsque l'on fait une requête directement dans Access,
Access refuse automatiquement (de lui-même) de transgresser
les propriétés de la table, et il crée une table d'erreur dans la quelle
il insère les doublons laissant passer les enregistrements qui ne
constituent pas un doublon.
As-tu essayé cette astuce sur le champ dont tu veux éviter les doub lons ?
En utilisant le même code ?
"remigo" a écrit dans le message d e news:
Je crois que je me suis mal exprimé.
Je voulais dire comment faire pour ne pas exporter deux fois les même données
Merci!Bonjour,
Il faut utiliser l'option Group By:
Sql = "INSERT INTO TAnalyseTest IN 'xxx.MDB' SELECT
champ1,champ2,champ3,.. FROM [Plage] Group BY champ1,champ2,champ3,.. "
Cordialement JBBonjour,
maintenant que mon exporte vers access fonctionne, je voudrais savo ir
comment exporter mes données sans doublons
Voici le code que j'utilise:
_________________________________
Sub ExporterVersAccess()
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
nomfeuille = ActiveCell.Worksheet.Name
With Worksheets(nomfeuille)
.Range("H1:A" & .Range("A65536").End(xlUp).Row).Name = "Plage"
End With
Set bd = OpenDatabase(ActiveWorkbook.FullName, False, False, "exc el 8.0")
bd.Execute "INSERT INTO TAnalyseTest IN
'P:geologiedocstatistiquesstatistiques.mdb ' SELECT * FROM [Pla ge]"
ActiveWorkbook.Names("Plage").Delete
bd.Close
Set bd = Nothing
End Sub
_____________________________________________
Merci!