Discussion :

[uti2012]

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

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 :

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
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

[Thautheme]

Bonjour Uti et bienvenu, bonjour le forum,

j'ai essayé d'écrire le VBA ci-dessous mais à la ligne N° 3

Si je copie/colle ton code dans VBE, la ligne 3 correspond à 'Bloque l'affichage. Il eut donc été plus malin de nous dire la ligne exacte que son numéro...
Toutefois l'erreur 9 est coutumière quand un nom spécifié dans le code ne correspond pas, à la virgule près, au nom du fichier ou de l'onglet.
Vérifie caractères par caractère ces trois lignes :

Code :

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

1
2
3
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

Il doit y avoir une différence qui génère l'erreur. Parfois c'est juste un espace au début ou à la fin...

[uti2012]

Bonjour Thautheme et merci pour votre réponse,

J'ai déjà bien vérifié les noms à plusieurs reprises et pour être sûr que l'erreur ne vient pas d'un espace oublier ou une lettre en plus j'ai renommé le fichier "A" et le feuil source en "B" et malgré la simplicité des noms, j'ai toujours le même message d'erreur.
Cordialement

[Thautheme]

Re,

Sur quelle ligne (pas le numéro mais la ligne écrite) !???

[uti2012]

bonjour Thautheme

Je viens de trouver mon erreur, je la partage pour les débutants comme moi .

Je viens de me rendre compte que la macro est enregistrée dans ThisWorbook est non dans MODULES. D'où l'erreur.