Copie d'un fichier excel vers un autre

Résolu/Fermé

Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016 - Modifié par Feudora le 18/07/2016 à 17:05
Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016 - 19 juil. 2016 à 11:01

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:

Copie d'un fichier excel vers un autre
Fichier rar - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide
Liste déroulante excel - Guide
Fichier host - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 19/07/2016 à 07:58

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

Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016
19 juil. 2016 à 09:45

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016
Modifié par f894009 le 19/07/2016 à 10:09

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")

Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
19 juil. 2016 à 10:41

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")

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)

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!

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters