Copie d'un fichier excel vers un autre
Résolu
Feudora
Messages postés
82
Date d'inscription
Statut
Membre
Dernière intervention
-
Feudora Messages postés 82 Date d'inscription Statut Membre Dernière intervention -
Feudora Messages postés 82 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
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
1 réponse
-
Bonjour,
Si vous avez choisi un fichier, quand vous avez l'erreur clic sur debugage,
passez le curseur souris surFichierSource
pour voir son contenu-
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- 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")
-
