XL 2013 Copier Données D'un Classeur à Un Autre (résolue)

Dranreb

XLDnaute Barbatruc

• 11 Août 2016

• #2

Bonjour.
Je ne sais pas faire en laissant le classeur source fermé.

 

Vote positif 0 Vote négatif

Y

yassinovski2016

Guest

• 11 Août 2016

• #3

Bonjour dranreb,
tu peux ouvrir le classeur source sans que l'action ne soit visible
j'attends ta proposition

Merci d'avance

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Août 2016

• #4

C'est que vos cellules jaunes et vertes couvrent l'ensemble des 2 tableaux respectivement sauf certaines formules
Vous voulez dire les lignes entière contenant ces cellule ou seulement ces colonnes là ?
Le nombre de ligne peut-il changer entre les deux classeurs ?
Peut-être devriez vous faire un brouillon à l'aide de l'enregistreur de macros qui répondrait plus complètement à ce que vous voulez faire. Je vous indiquerai comment l'optimiser.

 

Vote positif 0 Vote négatif

Y

yassinovski2016

Guest

• 11 Août 2016

• #5

non juste la colonne Q et le nombre de ligne et variable

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Août 2016

• #6

Bon, variable d'accord, mais pareil dans les deux classeur ?
Ne pourriez vous donner des noms aux plages dans Ven 1 pour que ce soit plus facile qu'en repérant des contenus incertains ?

 

Vote positif 0 Vote négatif

Y

yassinovski2016

Guest

• 11 Août 2016

• #7

oui pareil dans les deux classeurs
donner des noms au plages ce n'est pas une bonne idées parce que chaque jours les lignes s'ajouteent et s'effacent

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Août 2016

• #8

Et si vous les mettiez sous forme de tableau ? Leurs références et leurs positions s'ajusteraient automatiquement

 

Vote positif 0 Vote négatif

Y

yassinovski2016

Guest

• 11 Août 2016

• #9

ce n'est pas une bonne idée la forme de mon tableau ne doit changer je veux juster importer les données de la colonne Q du premier fichier vers la colonne Q du 2ème

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Août 2016

• #10

Essayez déjà comme ça alors :

VB:

Sub Macro1()
Dim Plg As Range
'application screenupdating=false
Workbooks.Open ThisWorkbook.Path & "\ven 1.xLsx", ReadOnly:=True
Set Plg = ActiveWorkbook.Worksheets("MO 1").[Q12:Q1000000]
Set Plg = Intersect(Plg.Worksheet.UsedRange, Plg)
Plg.Copy Destination:=ThisWorkbook.Worksheets("MO 2").[Q12]
ActiveWorkbook.Close
End Sub

 

Vote positif 0 Vote négatif

Y

yassinovski2016

Guest

• 11 Août 2016

• #11

le code fonctionne bien mais j'ai un message dérangeant
voulez-vous enregistrer les modifications que vous avez apportées ...

comment l'éviter ??

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Août 2016

• #12

Ajoutez False derrière ActiveWorkbook.Close

 

Vote positif 0 Vote négatif

Y

yassinovski2016

Guest

• 11 Août 2016

• #13

Merci beaucoup dranreb pour votre aide c'est exactement ce que je voulais
En plus c'est rapidos

Cordialement
Yassinovski

 

Vote positif 0 Vote négatif