Discussion :

[rossemma]

bonjour,

Dans le code ci-dessous :

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
Private Sub CBImport_Click()
 
    Dim chemin, fichier, folder As String
    Dim wb As Workbook
 
    'Définit le répertoire contenant les fichiers
    chemin = ThisWorkbook.Path & Application.PathSeparator
    folder = "VAK_12xxxx1112xx\"
    fichier = Dir(chemin & folder & ListeCSV.Value)
 
    Do While fichier <> ""
        sh_visavak.Range("b2" & ":O" & ActiveSheet.UsedRange.Rows.Count - 1).ClearContents
 
        Application.ScreenUpdating = False
        Application.EnableEvents = False
 
        Set wb = Workbooks.Open(chemin & folder & fichier, local:=True, ReadOnly:=True)
 
        Range("a2:n" & ActiveSheet.UsedRange.Rows.Count).Copy
        ThisWorkbook.Worksheets("sh_visavak").Range("b1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, operation _
            :=xlNone, skipblanks:=False, Transpose:=False
 
        Call ClearClipboard
 
        wb.Close True
        Set wb = Nothing
        fichier = Dir
    Loop
 
    MsgBox "Import successfull"
    Application.Goto reference:=Range("a1")
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    'thisworkbook.save
 
End Sub

Mon code coince à la ligne 20 et je ne vois pas pourquoi.

help me

Merci

[Theze]

Bonjour,

Peut être avec cette ligne de code :

Code :

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

1
2
 
wb.ActiveSheet.Range("a2:n" & wb.ActiveSheet.UsedRange.Rows.Count).Copy ThisWorkbook.Worksheets("sh_visavak").Range("b1048576").End(xlUp).Offset(1, 0)

à la place de celles-ci :

Code :

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

1
2
3
4
 
Range("a2:n" & ActiveSheet.UsedRange.Rows.Count).Copy
        ThisWorkbook.Worksheets("sh_visavak").Range("b1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, operation _
            :=xlNone, skipblanks:=False, Transpose:=False

mais je n'ai absolument rien testé !

[rossemma]

Merci