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

[yassinovski2016]

Bonjour à tous,

je cherche à copier les données de la colonne Q de l'onglet MO 1 (classeur : Ven 1) vers la colonne Q de l'onglet MO 2 (classeur : Ven 2) mais à condition ne copier que les données des celules qui sont en jaune et celles qui sont en vert, tout en gardant le classeur Ven1 fermé

Merci

 

[Dranreb]

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

 

[yassinovski2016]

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

Merci d'avance

 

[Dranreb]

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.

 

[yassinovski2016]

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

 

[Dranreb]

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 ?

 

[yassinovski2016]

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

 

[Dranreb]

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

 

[yassinovski2016]

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

 

[Dranreb]

Essayez déjà comme ça alors :

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

 

[yassinovski2016]

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

comment l'éviter ??

 

[Dranreb]

Ajoutez False derrière ActiveWorkbook.Close

 

[yassinovski2016]

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

Cordialement
Yassinovski