Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

access->excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion toubib
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

toubib

Guest
bonjour à tous,

j'aimerais pouvoir copier les données résultant de requêtes access dans un fichier excel et ce avec une MAJ automatique une fois par mois?
comment puis-je faire sachant que je ne maîtrise ABSOLUMENT PAS les liaisons access et excel?

ps: j'ai regardé le super post de michel xld, cependant comme je ne comprends rien au code, je n'ai pas réussi à transposer sur mon cas :s

merci pour vos réponses 🙂
 
Trier par date Trier par votes
Bonjour toubib et tous le monde sur le forum,

Je pense que le mieux d'utiliser Excel uniquement avec un import basé sur ta requête Access.

Ouvrir un classeur Excel :
Données/Données Externes->Importer des données...

Là tu as une boite de dialogue et dans type de fichiers, tu choisi bases de données Access ou tous les fichiers.

Tu séléctionne ta base de données.

Puis dans une autre fenêtre du séléctionne ta requête...

Puis l'emplacement des données dans ton classeur Excel

Et normalement (ça fait quelque temp que je n'ai pas utilisé cette fonction) dès que tu ouvre ton classeur Excel il se met automatiquement à jour.

Voilà

A+
 
Vote positif 0 Vote négatif
je n'ai pas cette possibilité, voila ce que j'ai:

exécuter une réquête
créer une requete sur le web
créer une requête
importer un fichier text
...

je suis un peu perdu la, toute aide sera la bienvenue :s
 
Vote positif 0 Vote négatif
J'ai fait tourner l'enregistreur de macro en suivant la procédure décrite précédement, ce qui donne le code suivant (je suis pas certain que ça marche mais tu peux toujour essayer) :

Code: 
Sub Macro4()
'

'
    With ActiveSheet.QueryTables.Add(Connection:=Array( _
        'OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password='''';User ID=Admin;Data Source=[color=#FF0000]C:\\Documents and Settings\\Bureau\\Travail_du_sol.mdb[/color]' _
        , _
        ';Mode=Share Deny Write;Extended Properties='''';Jet OLEDB:System database='''';Jet OLEDB:Registry Path='''';Jet OLEDB:Database Passwo' _
        , _
        'rd='''';Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transa' _
        , _
        'ctions=1;Jet OLEDB:New Database Password='''';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Do' _
        , _
        'n't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False' _
        ), Destination:=Range('A1'))
        .CommandType = xlCmdTable
        .CommandText = Array('[color=#0000FF]qryAzoteParTraitements[/color]')
        .Name = '[color=#FF6600]Travail_du_sol[/color]'
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = _
        '[color=#FF0000]C:\\Documents and Settings\\Bureau\\Travail_du_sol.mdb[/color]'
        .Refresh BackgroundQuery:=False
    End With
    ActiveWindow.SmallScroll Down:=54
End Sub

Les champs en couleur sont a modifier en adaptant avec les caractéristiques de ta base de données :
rouge : chemin d'accès à la BDD.
orange : Nom de la BDD sans l'extension (.mdb)
Bleu : nom de la requête

je réfléchi a une autre méthode avec access qui devrai fonctionner mais sans mettre à jour les données d'excel donc nécessité de lancer la macro depuis Access pour les MAJ

a+
 
Vote positif 0 Vote négatif
Les couleurs ont pas marché comme prévu, je ressai :

Sub Macro4()
'
'

'
With ActiveSheet.QueryTables.Add(Connection:=Array( _
'OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password='''';User ID=Admin;Data Source=C:\\Documents and Settings\\Bureau\\Travail_du_sol.mdb' _
, _
';Mode=Share Deny Write;Extended Properties='''';Jet OLEDB:System database='''';Jet OLEDB:Registry Path='''';Jet OLEDB😀atabase Passwo' _
, _
'rd='''';Jet OLEDB:Engine Type=5;Jet OLEDB😀atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transa' _
, _
'ctions=1;Jet OLEDB:New Database Password='''';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB😀o' _
, _
'n't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False' _
), Destination:=Range('A1'))
.CommandType = xlCmdTable
.CommandText = Array('qryAzoteParTraitements')
.Name = 'Travail_du_sol'
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = _
'C:\\Documents and Settings\\Bureau\\Travail_du_sol.mdb'
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=54
End Sub


Les champs en couleur sont a modifier (enfin d'après ce que j'ai compris du code) en adaptant avec les caractéristiques de ta base de données :
rouge : chemin d'accès à la BDD.
Vert : Nom de la BDD sans l'extension (.mdb)
Bleu : nom de la requête
 
Vote positif 0 Vote négatif
Je pense que c'est une incompatibilité de version alors soit tu passe à Excel 2002 où + si affinité ou tu passe par Access où je peu pas te donner de réponse dans l'état actuel de mes connaissances.

Voici la méthode que je t'ai promis en passant par access (je part du principe que tu connait un minimum cette petit merveille)

Tout d'abord, tu créé un formulaire où tu insère un boutton
dans les propriété du boutton, onglet Autre, ligne Nom (normalement la première, tu tape cmd_Export (nom qui correspond à mon exemple, mais tu peux écrire autre chose pour la cohérence de ta base).

puis tu attribu à ton boutton un évènement sur clic

et tu ajoute le code suivant :

Code: 
Private Sub cmd_Export_Click()

Dim xl As New Excel.Application
Dim i As Byte

    'Rend visible l'appli EXCEL
    xl.Visible = True

    'Création d'un nouveau classeur EXCEL
    xl.Workbooks.Add

Qteglypho:
    Set DBA = Application.CurrentDb

    'Ouverture des enregistrements de la requête NOM A MODIFIER
    Set rs = DBA.OpenRecordset('qryQteGlyphosate')
    If rs.RecordCount = 0 Then
        Exit Sub
    End If
    'Ajoute 1 feuille QteGlypho NOM A MODIFIER
    xl.Worksheets.Add
    xl.ActiveSheet.Name = 'QteGlypho'

    With xl.ActiveWorkbook.Worksheets('QteGlypho')
        'Copie les intitulés de colonnes
        For iCols = 0 To rs.Fields.Count - 1
            .Cells(6, iCols + 1).Value = rs.Fields(iCols).Name
        Next
        'Copie le jeu d'enregistrements
        .Range('A7').CopyFromRecordset rs
    End With
 
    Call MiseEnForme
   
    
End Sub

Voilà sur mon PC sous Acess 2002 ça fonctionne

si tu as des soucis demande, j'essairai de répondre
 
Vote positif 0 Vote négatif
Je pense que c'est une incompatibilité de version alors soit tu passe à Excel 2002 où + si affinité ou tu passe par Access où je peu pas te donner de réponse dans l'état actuel de mes connaissances.

Voici la méthode que je t'ai promis en passant par access (je part du principe que tu connait un minimum cette petit merveille)

Tout d'abord, tu créé un formulaire où tu insère un boutton
dans les propriété du boutton, onglet Autre, ligne Nom (normalement la première, tu tape cmd_Export (nom qui correspond à mon exemple, mais tu peux écrire autre chose pour la cohérence de ta base).

puis tu attribu à ton boutton un évènement sur clic

et tu ajoute le code suivant :

Code: 
Private Sub cmd_Export_Click()

Dim xl As New Excel.Application
Dim i As Byte

    'Rend visible l'appli EXCEL
    xl.Visible = True

    'Création d'un nouveau classeur EXCEL
    xl.Workbooks.Add

Qteglypho:
    Set DBA = Application.CurrentDb

    'Ouverture des enregistrements de la requête NOM A MODIFIER
    Set rs = DBA.OpenRecordset('qryQteGlyphosate')
    If rs.RecordCount = 0 Then
        Exit Sub
    End If
    'Ajoute 1 feuille QteGlypho NOM A MODIFIER
    xl.Worksheets.Add
    xl.ActiveSheet.Name = 'QteGlypho'

    With xl.ActiveWorkbook.Worksheets('QteGlypho')
        'Copie les intitulés de colonnes
        For iCols = 0 To rs.Fields.Count - 1
            .Cells(6, iCols + 1).Value = rs.Fields(iCols).Name
        Next
        'Copie le jeu d'enregistrements
        .Range('A7').CopyFromRecordset rs
    End With
 
    Call MiseEnForme
   
    
End Sub

Voilà sur mon PC sous Acess 2002 ça fonctionne

si tu as des soucis demande, j'essairai de répondre
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

T
  • Résolu(e)
XL 2016 Problème sécutité Microsoft Office dans Excel 2016
Réponses
6
Affichages
196
TooFatBoy
D
  • Question Question
Microsoft 365 convertir un fichier access en excel avec les formules de calcul
2
Réponses
22
Affichages
1 K
Daniel200666
D
D
  • Question Question
Access access vers Excel avec formule de calcul Excel
Réponses
4
Affichages
994
Daniel200666
D
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
887
picc
P
G
  • Résolu(e)
Microsoft 365 Consolidation données depuis des feuilles
Réponses
2
Affichages
517
gpion
G
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
2 K
dysorthographie
R
  • Question Question
Microsoft 365 Liaison entre Excel et Access
Réponses
3
Affichages
1 K
chris
H
  • Résolu(e)
Microsoft 365 Archivage automatique sous condition (Macro)
Réponses
2
Affichages
685
HugoLaChips
H
C
  • Question Question
Microsoft 365 Bouton VBA
Réponses
4
Affichages
495
camille37
C
R
  • Question Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
555
rh.finances
R
  • Question Question
Microsoft 365 Qui a rejoint ce club des ennuis : "microsoft respecte votre vie privée" ?
Réponses
5
Affichages
715
oguruma
A
  • Question Question
Microsoft 365 Fichier de statistique et roulement
Réponses
0
Affichages
593
Aurel’Byylieve
A
L
  • Résolu(e)
Power Query Comment conserver les liens hypertexte suite a une Requêtes Powerquery
2
Réponses
26
Affichages
3 K
lennyg
L
M
  • Question Question
XL 2016 Excel/Access : document partagé
Réponses
2
Affichages
1 K
MiaouLeLion
M
P
  • Résolu(e)
XL 2016 Masquer les caractères dans une boîte de dialogue de saisie de mot de passe Excel
Réponses
8
Affichages
1 K
AR MOR
A
  • Question Question
Autres [RÉSOLU] Excel pour gérer une base de données ?
Réponses
10
Affichages
1 K
dysorthographie
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
983
Dock91
D
POWERQUERY :: Importation et optimisation des étapes - Table.TransformColumns - Table.TransformRows - Record.AddField - Record.TransformFields
Réponses
0
Affichages
558
oguruma
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
888
Lu76Fer
C
  • Question Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
941
Chatron
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…