R
Rhache
Guest
Bonjour à tous et à toutes,
Je voudrais, pour un cours, utiliser un fichier excel. Il fonctionne parfaitement sur Excel 2000 mais provoque une erreur sur Excel 2003 (seule version que je peux utiliser, bien sûr).
Les données sont entrées dans une feuille "Données" unel'erreur d'éxecution '1004' est provoquée dans les autres feuilles censées utiliser les données. Le débogueur la situe dans la routine suivante
Sub Extraire()
Application.ScreenUpdating = False
Sheets("Menu").Range("Menu").ClearContents
With Sheets("Données")
.Select
.Range("A2:AE474").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=. _
Range("Critères"), CopyToRange:= _
.Range("A1000"), Unique:=False
.Range("a1000:aa1100").Copy
End With
Sheets("Menu").Select
Range("a2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("a1").Select
Sheets("Données").Range("extrait").Clear
bAjour = True
End Sub
à la ligne: .Range("A1000"), Unique:=False
Mes connaissances en VB étant malheureusement proches du zéro absolu, quelqu'un peut-il m'aider ?
Merci d'avance.
Je voudrais, pour un cours, utiliser un fichier excel. Il fonctionne parfaitement sur Excel 2000 mais provoque une erreur sur Excel 2003 (seule version que je peux utiliser, bien sûr).
Les données sont entrées dans une feuille "Données" unel'erreur d'éxecution '1004' est provoquée dans les autres feuilles censées utiliser les données. Le débogueur la situe dans la routine suivante
Sub Extraire()
Application.ScreenUpdating = False
Sheets("Menu").Range("Menu").ClearContents
With Sheets("Données")
.Select
.Range("A2:AE474").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=. _
Range("Critères"), CopyToRange:= _
.Range("A1000"), Unique:=False
.Range("a1000:aa1100").Copy
End With
Sheets("Menu").Select
Range("a2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("a1").Select
Sheets("Données").Range("extrait").Clear
bAjour = True
End Sub
à la ligne: .Range("A1000"), Unique:=False
Mes connaissances en VB étant malheureusement proches du zéro absolu, quelqu'un peut-il m'aider ?
Merci d'avance.