Discussion :

[meuah]

Après avoir écrit mon message dans le forum VBA Access, je me redirige ici.

je dispose d'un classeur Excel de plus de 50 feuilles, comportant toutes le même nombre de colonnes et les mêmes informations. Cependant le nombre de lignes varient d'un fichier à l'autre. Je souhaite récupérer les informations de toutes ces feuilles Excel et de les mettre dans une seule et unique table Access. J'ai éventuellement pensé à passer vers un fichier intermédiaire, mais le problème, c'est que je ne sais pas comment les mettre dans un seul et unique fichier.
Et faire des copier-coller manuels; non merci, sur plus de 50 feuilles (ce qui n'est pour le moment qu'un échantillon) lol
Merci de votre aide

[ouskel'n'or]

Déjà, pour créer une feuille unique, peut-être peux-tu t'inspirer de ça.
Pour l'export, fais une recherche sur ce forum avec Access pour mot clé. Il y a de fortes chances que la réponse ait déjà été donnée (par Starec, Cafeine ou tout autre )
Bonne chance

[meuah]

ok, je vais regarder ça, merci

[meuah]

je viens de me rendre compte que je ne peux pas réaliser ce qu'il y a dans "ça" car l'ensemble de mes données dépasse les capacités d'une feuille Excel...

[mayekeul]

Je ferais un ti truc dans le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub copyyyy()
Dim sh As Worksheet
Dim cr As Range
Dim mySheet As Integer
 
For mySheet = 2 To ThisWorkbook.Worksheets.Count
    Set cr = Sheets(mySheet).Cells(1, 1).CurrentRegion
    If cr.ListHeaderRows > 0 Then
        cr.Offset(1, 0).Resize( _
            cr.Rows.Count - 1, cr.Columns.Count).Copy
    Else
        cr.Copy
    End If
    Sheets(1).Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
Next
 
End Sub

[mayekeul]

oups, je viens de voir ta réponse.

tu pourrais créer une feuille csv non?

[meuah]

kézako csv?

[mayekeul]

un fichier texte "Comma Separated Value"
Mais ton export vers accès est manuel ou doit etre automatique??

[meuah]

bah j'aimerais qu'il soit automatique car j'ai trop de feuilles Excel. Sinon, j'ai récupérer le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub transfer()
'
' transfer Macro
'
' Touche de raccourci du clavier: Ctrl+e
 
'   Declaration variables
    Dim i, j, nl, nc As Integer
    Dim t As String
 
'   Ouverture fichier
    Open ".\compos.txt" For Output As #1
        nc = Selection.Columns.Count
        nl = Selection.Rows.Count
 
'       On boucle sur la selection
        For i = 1 To nl
            t = ""
            For j = 1 To nc
'               ajout de la tabulation comme separateur
                If t <> "" Then t = t & Chr(9)
                t = t & ActiveWindow.RangeSelection.Next(i, j - 1)
            Next j
'           Ecriture de la ligne dans le fichier si non vide
            Print #1, t
        Next i
 
'   Fermeture fichier
    Close #1
End Sub

Mais comme j'ai 50 feuilles, sur la première ça fonctionne mais exécuter le code sur une deuxième feuille écrase les données de la première exécution.
Peut-être rajouter une boucle for l'exécuter pour chaque feuille et éviter l'écrasement...