copie donnée

[Adrianne]

Bonjour forum,

pourquoi la methode Range('A:A, B:B').Select ne marche pas

je voudrais copier des données de 2 fichiers excels.
d'ailleur c'est aprés recherche sur le forum j'ai vu qu'on a utilisé Range('A:A, B:B').Select
avec moi ca ne marche pas
mes si je fait range('A:A') ca marche alors maoi je voudrais copier la colonne A et B
merci

 

[porcinet82]

salut Adrianne,

Pour faire la sélection sur une feuille, de 2 colonnes le code est :

Range('A:B').Select

j'espère que c'est ce que tu voulais

@+

 

[Adrianne]

Salut porcinet82,
bonjour forum

j'ai tester ça marche. merci pour votre aide
mé aulieu de copier toute les lignes est ce que vous savez comment on fait pour copier quelques ligne?
merci

 

[fraille]

Voila pour selectionner que quelques lignes.

Range('$F$2:$G$17')

 

[Adrianne]

salut fraille

j'ai essayer le Range('$F$2:$G$17')

mais pour le coller colums ('$F$2:$G$17').select ca marche pas
est ce que t'as une idée?
merci

 

[Creepy]

Hello all,

Voici un petit exemple à adapter en fonction de tes besoins !

Range('C9:E19').Select
    Selection.Copy
    Range('H9').Select
    ActiveSheet.Paste

++

Creepy

 

[Adrianne]

Bonjour forum

j'ai réalisé ce programme pour copier des données d'un fichier execl vers un autre


Private Sub Command1_Click()

Set XL = New Excel.Application 'ouvre excel
XL.Visible = True
XL.Workbooks.Add 'ouvre un nouveau classeur
Sheets('Feuil1').Select
Sheets('Feuil1').Name = 'coucou'

XL.Range('A1').Value = 'gre'
XL.Range('C1').Value = 'score'
XL.Range('D1').Value = 'fre'
XL.Range('E1').Value = 'score'
XL.Range('F1').Value = 'dre'
XL.Range('G1').Value = 'score'

' ouverture du fichier source
Workbooks.Open FileName:= _
'C:\\Nouveau dossier\\tata.xls'
Sheets(1).Select
Selection.Copy

Sheets(coucou).Select
Sheets(coucou).Activate
Sheets(coucou).Paste

Windows('tata.xls').Activate
ActiveWorkbook.Close

end sub

mais quand j'exécute il me dit Erreur d'execution'9', Indice en dehors de la plage

Est ce que quelqu'un a une idée?
merci d'avance