Problème selection de données VBA
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:
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:
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
