Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copie donnée

  • Initiateur de la discussion Adrianne
  • Date de début
A

Adrianne

Guest
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
 
A

Adrianne

Guest
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
 
A

Adrianne

Guest
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
 
A

Adrianne

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…