message d'erreur suite import des données
bonjour je suis nouveau sur le forum et débutant dans l’apprentissage du VBA, je sollicite vos lumières afin d'importer des données d'un fichier fermé dans un autre.
j'ai essayé d'écrire le VBA ci-dessous mais à la ligne N° 3 j'ai le message d'erreur
Citation:
erreur d'exécution 9 : l'indice n'appartient pas à la sélection
alors que le nom est correct. Pouvez-vous svp m'aider. merci d'avance.
fichier source = classeur suivi dossiers 16-02.xlsm
feuil source = DOS CLOTURÉS
fichier cible = classeur suivi dossiers.xlsm
feuil cible= BASE
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
| Sub import()
'Bloque l'affichage
Application.ScreenUpdating = False
'Ouvre le fichier
Workbooks.Open Filename:="E:\analyse\classeur suivi dossiers 16-02.xlsm"
Windows("classeur suivi dossiers 16-02.xlsm").Visible = False
Worksheets("DOS CLOTURÉS").Select
ActiveSheet.Range(Range("A2"), Range("A2").End(xlDown)).AutoFilter Field:=1, Criteria1:="CLOTURÉ"
Range(Range("A2").Offset(1, 0), Range("AA2").End(xlDown)).Copy
Windows("classeur suivi dossiers.xlsm").Activate
Sheets("BASE").Select
'Si la cellue A2 est vide
If Range("A2") = "" Then
'Sélectionne A2
Range("A2").Select
Else
'Sinon la première ligne vide
Range("A1").End(xlDown).Offset(1, 0).Select
End If
'Colle les valeurs
Selection.PasteSpecial Paste:=xlPasteValues
Workbooks("classeur suivi dossiers 16-02.xlsm").Save
Workbooks("classeur suivi dossiers 16-02.xlsm").Close
'Réactive l'affichage
Application.ScreenUpdating = True
End Sub |
