Transfert entre 2 fichiers excel.
Résolu/Fermé
jolestanpi
Messages postés
11
Date d'inscription
jeudi 6 novembre 2008
Statut
Membre
Dernière intervention
19 janvier 2009
-
3 déc. 2008 à 10:52
jolestanpi Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 19 janvier 2009 - 4 déc. 2008 à 17:36
jolestanpi Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 19 janvier 2009 - 4 déc. 2008 à 17:36
A voir également:
- Transfert entre 2 fichiers excel.
- Liste déroulante excel - Guide
- We transfert - Guide
- Formule excel - Guide
- Fusionner 2 fichiers excel - Guide
- Si et excel - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
3 déc. 2008 à 12:06
3 déc. 2008 à 12:06
bonjour,
1°: Va dans ton 1° message et indique'il est annulé en renvoyant sur celui-ci
2 fichiers: Source et Cible tous les 2 ouverts
tableau celules "A1: D8" feuille1
transfert dans feuil2 de cible début tableau en C4
XL<2007
dans fichier source
sub copier
sheets(1).range("A1:D8").copy workbooks("cible.xls").sheets(2).range("C4")
end sub
1°: Va dans ton 1° message et indique'il est annulé en renvoyant sur celui-ci
2 fichiers: Source et Cible tous les 2 ouverts
tableau celules "A1: D8" feuille1
transfert dans feuil2 de cible début tableau en C4
XL<2007
dans fichier source
sub copier
sheets(1).range("A1:D8").copy workbooks("cible.xls").sheets(2).range("C4")
end sub
jolestanpi
Messages postés
11
Date d'inscription
jeudi 6 novembre 2008
Statut
Membre
Dernière intervention
19 janvier 2009
3 déc. 2008 à 14:36
3 déc. 2008 à 14:36
Je t´envoie mon code.
Nom_fichier va me permettre de récupérer le nom de mon fichier à copier.
Le bouton se trouve dans mon fichier cible.
L´ouverture de mon fichier à copier marche sans problème.
Par contre la copie ne se fait pas dans mon fichier cible.
Dim Nom_fichier As String
Nom_fichier = ThisWorkbook.Sheets("Tabelle1").Cells(7, 2).Value + ThisWorkbook.Sheets("Tabelle1").Cells(7, 3).Value
Workbooks.Open (Nom_fichier)
Workbooks(Nom_fichier).Sheets("Platts_Barges FOB R'dam").Range("A7:A37").Copy ThisWorkbook.Sheets("Daten_Medeco").Range("A39")
Merci
Nom_fichier va me permettre de récupérer le nom de mon fichier à copier.
Le bouton se trouve dans mon fichier cible.
L´ouverture de mon fichier à copier marche sans problème.
Par contre la copie ne se fait pas dans mon fichier cible.
Dim Nom_fichier As String
Nom_fichier = ThisWorkbook.Sheets("Tabelle1").Cells(7, 2).Value + ThisWorkbook.Sheets("Tabelle1").Cells(7, 3).Value
Workbooks.Open (Nom_fichier)
Workbooks(Nom_fichier).Sheets("Platts_Barges FOB R'dam").Range("A7:A37").Copy ThisWorkbook.Sheets("Daten_Medeco").Range("A39")
Merci
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
3 déc. 2008 à 16:39
3 déc. 2008 à 16:39
PAs trop compris ton code...
ci joint une démo à adapter à ton appli
et voici le code (pas fait les déclarations)
Pour éviter le scintillement de l'écran, rajoute au dessus de la ligne" Workbooks.Open fichier" cette instruction
Application.screenupdating=false
ci joint une démo à adapter à ton appli
et voici le code (pas fait les déclarations)
Sub copier_source()
chemin = ThisWorkbook.Path 'si source est dans un autre dossier écrire son chemin
cl_source = "source.xls"
fichier = chemin & "\" & cl_source
Workbooks.Open fichier
Sheets("part").Range("C13:F30").Copy ThisWorkbook.Sheets("arrive").Range("D4")
Sheets("part").Range("D8").Copy ThisWorkbook.Sheets("autre").Range("B2")
ActiveWorkbook.Close
End Sub
Pour éviter le scintillement de l'écran, rajoute au dessus de la ligne" Workbooks.Open fichier" cette instruction
Application.screenupdating=false
jolestanpi
Messages postés
11
Date d'inscription
jeudi 6 novembre 2008
Statut
Membre
Dernière intervention
19 janvier 2009
4 déc. 2008 à 17:36
4 déc. 2008 à 17:36
Merci beaucoup,
mon probleme est résolu maintenant.
mon probleme est résolu maintenant.
