cabsen
XLDnaute Junior
Bonsoir le forum,
Je rencontre des difficultés pour intégrer cette macro dans un environnement "Option Explicit"
J'ai eu des erreurs type :
• indices hors de la plage
• impossible d'affecter au tableau
J'ai tenté de donner une dimension à bcopier dans le code :
• bcopier(107,22) et autres tentatives mais pas plus de résultat…
C'est le morceau bcopier = qui est mis en surbrillance lors du debug.
Si quelqu'un voit où se trouve le problème, je lui serai mille fois reconnaissant.
D'avance merci.
Je rencontre des difficultés pour intégrer cette macro dans un environnement "Option Explicit"
Code:
Private Sub TransfertAccueil()
'pour le transfert dans 1 page
Dim bcopier() As Variant
Dim n As Integer
Application.ScreenUpdating = False
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
bcopier = Array("B27", "C27", "C102", "C128", "E27", "F22", "O35", "O37", "W35", "W37")
For n = 0 To UBound(bcopier) - 1
Workbooks("source.xls").Sheets("accueil").Range(bcopier(n)).Copy Destination:=Workbooks("version_new.xls").Sheets("accueil").Range(bcopier(n))
Next n
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
Application.ScreenUpdating = True
End Sub
J'ai eu des erreurs type :
• indices hors de la plage
• impossible d'affecter au tableau
J'ai tenté de donner une dimension à bcopier dans le code :
• bcopier(107,22) et autres tentatives mais pas plus de résultat…
C'est le morceau bcopier = qui est mis en surbrillance lors du debug.
Si quelqu'un voit où se trouve le problème, je lui serai mille fois reconnaissant.
D'avance merci.