Bonjour,

Je suis bloqué lors de la selection de celulle.

Il faut que je sélectionne l'ensemble des valeur colonnes en enlevant la première lignes.

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
31
32
33
34
35
36
37
Sub RecuperationDesDonnees()
        Dim Chemin As String, Fichier As String, Nom As String
        Dim NewLig As Long, N As Long
        Dim Repertoire As FileDialog
        Dim Wb As Workbook
        Dim Plage
         
        Application.ScreenUpdating = False
        Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
        Repertoire.Show
        Chemin = Repertoire.SelectedItems(1)
         
        Fichier = Dir(Chemin & "\" & "*.xls")
        Do While Fichier <> ""
            Set Wb = Workbooks.Open(Chemin & "\" & Fichier)
            With Wb.Worksheets(1)
                ActiveSheet.UsedRange.Select
                N = .Cells(.Rows.Count, 1).End(xlUp).Row
                Plage = .Range("A1").Resize(N, 7)
            End With
         
            Nom = Wb.Name
            Wb.Close False
            Set Wb = Nothing
         
            With ThisWorkbook.Worksheets("Feuil1")
                NewLig = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
                .Range("D" & NewLig).Resize(N, 7).Value = Plage
                .Range("A" & NewLig).Resize(N) = Mid(Nom, 1, 14)
                .Range("B" & NewLig).Resize(N) = Mid(Nom, 16, 8)
                .Range("C" & NewLig).Resize(N) = Mid(Nom, 27, 2)
            End With
            Fichier = Dir()
        Loop
        Set Repertoire = Nothing
        MsgBox "Terminé"
        End Sub
Je pense que le problème ce situe dans:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
N = .Cells(.Rows.Count, 1).End(xlUp).Row
Comment lui dire d'enlever la première ligne.

Merci d'avance pour vos réponses.

Lyndils