tomtom0906
XLDnaute Nouveau
Salut
j'essaie en vain depuis hier de selectionner une page de cellule commencant en A2 jusqu'a X2 et ce jusqu'a la derniere ligne qui contient des données
j'applique le code suivant :
Set wk2 = Workbooks.Open(Filename:=CheminExtract & "OPX2-Extract_ressources.xls")
Workbooks("OPX2-Extract_ressources.xls").Activate
Worksheets("Extract").Activate
With Sheets("Extract")
.Range("A2:X2").Select
.Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
End With
le probleme est que certaines cellules sont vides donc j'ai l'impression qu'il ne continue pas la selection, ce qui fait qu'il ne me selectionne pas tout jusqu'a la fin !
voici un exemple de mon probleme lorsque vous cliquer sur le bouton du fichier
comment faire ?
j'essaie en vain depuis hier de selectionner une page de cellule commencant en A2 jusqu'a X2 et ce jusqu'a la derniere ligne qui contient des données
j'applique le code suivant :
Set wk2 = Workbooks.Open(Filename:=CheminExtract & "OPX2-Extract_ressources.xls")
Workbooks("OPX2-Extract_ressources.xls").Activate
Worksheets("Extract").Activate
With Sheets("Extract")
.Range("A2:X2").Select
.Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
End With
le probleme est que certaines cellules sont vides donc j'ai l'impression qu'il ne continue pas la selection, ce qui fait qu'il ne me selectionne pas tout jusqu'a la fin !
voici un exemple de mon probleme lorsque vous cliquer sur le bouton du fichier
comment faire ?