Copie d'un fichier excel vers un autre

Résolu
Feudora Messages postés 81 Date d'inscription   Statut Membre Dernière intervention   -  
Feudora Messages postés 81 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un fichier excel dans lequel j'utilise les infos d'un autre fichier excel, j'ai écrit le code suivant :

Sub CopieDeValeur()


Dim Var_Chemin
Dim FichierCible As String
Dim FichierSource As String

Var_Chemin = Application.GetOpenFilename("Database File (*.xlsm), *.xlsm")

FichierCible = ActiveWorkbook.Name
Workbooks.Open Var_Chemin, 0, ReadOnly:=False

FichierSource = ActiveWorkbook.Name

Workbooks(FichierSource).Sheets("results").Columns("B:B").Copy Workbooks(FichierCible).Sheets("Train Aller").Colums("A:A")
Workbooks(FichierSource).Sheets("results").Columns("D:D").Copy Workbooks(FichierCible).Sheets("Train Aller").Colums("B:B")
Workbooks(FichierSource).Sheets("results").Columns("C:C").Copy Workbooks(FichierCible).Sheets("Train Aller").Colums("C:C")
Workbooks(FichierSource).Sheets("results").Columns("A:A").Copy Workbooks(FichierCible).Sheets("Train Aller").Colums("D:D")


Range("A1").Select
Sheets("2 - Data 1").Select
End Sub

mais excel me sors une erreur quand je le lance et me dit que wbsource est vide. Si queslqu'un peu m'aider !
Merci d'avance


A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

Si vous avez choisi un fichier, quand vous avez l'erreur clic sur debugage,
passez le curseur souris sur 
FichierSource
pour voir son contenu
1
Feudora Messages postés 81 Date d'inscription   Statut Membre Dernière intervention  
 
Cela venait bien de mon fichier source qui avait un bug, cependant maintenant en lancant ma Macro cela me mets: "erreur 438 : erreur ou méthode non gérée par cet objet"
Quand je Debug cela me surligne
Workbooks(FichierSource).Sheets("results").Columns("B:B").Copy Workbooks(FichierCible).Sheets("Train Aller").Colums("A:A")

si quelqu'un connait cette erreur
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715 > Feudora Messages postés 81 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

probleme de syntaxe 

'soit
    Workbooks(FichierSource).Sheets("results").Range("B:B").Copy Workbooks(FichierCible).Sheets("Train Aller").Range("A:A")
'ou
    Workbooks(FichierSource).Sheets("results").Columns("B").Copy Workbooks(FichierCible).Sheets("Train Aller").Columns("A")
0
Feudora Messages postés 81 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Super!! ca marche bien avec la première méthode!!

Et si je veux que ca copie a partir ce la ligne10 dans mon fichier results et que ca le mette a partir de la ligne 2 dans la ficheir que j'ai nommé "train Aller" ca marche avec cette formulation :

Workbooks(FichierSource).Sheets("results").Range("B10:B").Copy Workbooks(FichierCible).Sheets("Train Aller").Range("A2:A")
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715 > Feudora Messages postés 81 Date d'inscription   Statut Membre Dernière intervention  
 
Re, 

derlig = Workbooks(FichierSource).Sheets("results").Range("B" & Rows.Count).End(xlUp).Row
Workbooks(FichierSource).Sheets("results").Range("B10:B" & derlig).Copy Workbooks(FichierCible).Sheets("Train Aller").Range("A2").Resize(derlig - 10)
0
Feudora Messages postés 81 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Un grand merci c'est super!! C'est tout à fait ça!! J'ai plus qu'à remplacer pour mes autres colonnes !

Merci beaucoup ça marche super bien!
0