Copie d'un fichier excel vers un autre [Résolu/Fermé]

Signaler
Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016
-
Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016
-
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


1 réponse

Messages postés
15524
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2021
1 437
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016

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
Messages postés
15524
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2021
1 437 >
Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016

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")
Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016
>
Messages postés
15524
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2021

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")
Messages postés
15524
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2021
1 437 >
Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016

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)
Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016
>
Messages postés
15524
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2021

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!