Discussion :

[hajjar3]

Bonjour,

Je solicite votre aide pour un problème que je n'arrive pas à résoudre après plusieurs heures de réflexion.

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
Sub MACROTOURNE1()
Dim c As Integer
Dim v As Integer
Dim k As Integer
c = 5
v = c
Do Until Cells(2, 8).Value = c
Windows("ABCD.xls").Activate
Sheets("6B").Select
nom = Cells(c, 4).Value
days = Format(Date, "yyyy-mm-dd")
fichier = nom & days & ".xls"
If Cells(c, 4).Value <> "ABCD" And Cells(c, 4).Value <> "Interne" And Cells(c, 4).Value <> "" Then
Rows(c).Select
    Selection.copy
Windows(fichier).Activate
Sheets("6B").Select
  Rows(v).Select
ActiveSheet.Paste
'Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End If
c = c + 1
v = v + 1
Loop
End Sub

Le programme se bloque à la ligne Windows(fichier).Activate et affiche
L'erreur:

erreur d'execution'9'
l'indice n'appartient pas à la selection

Merci d'avance pour vos réponses.

[decondelite]

Utilise plutôt la collection Workbooks.

[Invité]

Bonjour,

Compte tenu du fait que :

Code :

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

Windows("ABCD.xls").Activate

fonctionne avez-vous vérifié que la variable "fichier" contient exactement le nom de ce fichier ?
Ce fichier est ouvert à l'origine dans une autre procédure ?
Car dans celle-ci il n'y a pas d'instruction correspondante !

[Godzestla]

Bonjour,

j'en déduis que ce fameux "fichier" n'est tout simplement pas ouvert.