Archiver des exports Excel dans une base Access
Résolu/Fermé
AstraLife
Messages postés
98
Date d'inscription
lundi 2 octobre 2017
Statut
Membre
Dernière intervention
1 juillet 2019
-
Modifié le 21 août 2018 à 11:04
AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019 - 23 août 2018 à 07:39
AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019 - 23 août 2018 à 07:39
A voir également:
- Archiver des exports Excel dans une base Access
- Liste déroulante excel - Guide
- Formules excel de base - Guide
- Aller à la ligne dans une cellule excel - Guide
- Déplacer une colonne excel - Guide
- Calculer une moyenne sur excel - Guide
2 réponses
AstraLife
Messages postés
98
Date d'inscription
lundi 2 octobre 2017
Statut
Membre
Dernière intervention
1 juillet 2019
21 août 2018 à 18:01
21 août 2018 à 18:01
J'ai trouvé comment vider la table, :-(
Sub Liste_Fichiers_Exports()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.TableDefs("Liste_Fichiers_Exports").OpenRecordset
While Not oRst.EOF
oRst.Delete
oRst.MoveNext
Wend
End Sub
AstraLife
Messages postés
98
Date d'inscription
lundi 2 octobre 2017
Statut
Membre
Dernière intervention
1 juillet 2019
Modifié le 21 août 2018 à 19:31
Modifié le 21 août 2018 à 19:31
J'y suis pas loin, je ne sais pas comment interpréter la fonction transpose d'Excel sur Access.
Mon code
'Partie d'excel que je n'arrive pas à appliquer en vba Access
feuille.Range("A1").Resize(UBound(base_fichiers, 2), UBound(base_fichiers, 1)) = Application.Transpose(base_fichiers)
Mon code
Sub Liste_Rep_Export()
Dim base_fichiers()
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim Rep_Motam As String
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("R_Repertoire")
Rep_Export = oRst![Rep_Export]
fichier = Dir(Rep_Export)
i = 1
While fichier <> ""
ReDim Preserve base_fichiers(5, i)
If Right(fichier, 9) = "EXPORT.csv" Then
base_fichiers(1, i) = fichier
ma_date = DateSerial(Left(fichier, 4), Mid(fichier, 5, 2), Mid(fichier, 7, 2))
base_fichiers(2, i) = Format(ma_date, "mm/dd/yyyy")
base_fichiers(3, i) = Format(ma_date, "ww", vbMonday, vbFirstFullWeek)
base_fichiers(5, i) = Rep_Export & fichier
'corrige 1ere semaine - de 4 jours
correction = False
If Month(ma_date) = 1 And Format(ma_date, "ww", vbMonday, vbFirstFourDays) > 50 Then
mon_annee_corrigee = Year(ma_date) - 1
correction = True
End If
'corrige 1ere semaine + de 4 jours
If Month(ma_date) = 12 And Format(ma_date, "ww", vbMonday, vbFirstFourDays) < 5 Then
mon_annee_corrigee = Year(ma_date) + 1
correction = True
End If
If correction = False Then mon_annee_corrigee = Year(ma_date)
base_fichiers(4, i) = mon_annee_corrigee
i = i + 1
End If
oRst.Close: Set oRst = Nothing
oDb.Close: Set oDb = Nothing
fichier = Dir
Wend
Set oDb = CurrentDb
Set oRst = oDb.TableDefs("Liste_Fichiers_Exports").OpenRecordset
While Not oRst.EOF
oRst.Delete
oRst.MoveNext
Wend
End Sub
'Partie d'excel que je n'arrive pas à appliquer en vba Access
feuille.Range("A1").Resize(UBound(base_fichiers, 2), UBound(base_fichiers, 1)) = Application.Transpose(base_fichiers)
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
Modifié le 23 août 2018 à 07:14
Modifié le 23 août 2018 à 07:14
Bonjour,
ce sujet a-t-il un rapport avec celui-ci???
https://forums.commentcamarche.net/forum/affich-35538747-probleme-fonction-application-transpose-sur-access
Si oui, pourquoi ne pas avoir continuer ici plutôt que de créer une meme demande????
ce sujet a-t-il un rapport avec celui-ci???
https://forums.commentcamarche.net/forum/affich-35538747-probleme-fonction-application-transpose-sur-access
Si oui, pourquoi ne pas avoir continuer ici plutôt que de créer une meme demande????
AstraLife
Messages postés
98
Date d'inscription
lundi 2 octobre 2017
Statut
Membre
Dernière intervention
1 juillet 2019
>
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
23 août 2018 à 07:39
23 août 2018 à 07:39
Bonjour, oui je pensait avoir mal rédigé ma demande, je ferme celui ci