Copier plage cellules d'un classeur vers un autre classeurRésolu/Fermé

Question

BONJOUR à tous

Copier d'un classeur ouvert « classeur_DEMANDE_ENGAGEMENT.xls »  une plage de cellules non adjacente dont certaines fusionnées avec  texte et ou numériques de la 1er feuille  "inscription" 
les cellules sont C9 et B11:J55 puis E63 :E64
pour coller la plage  dans  un autre dossier d'un autre classeur xls  fermée 
dans les même emplacement dans le 1er feuille « inscription« 
Chemin du « classeur_REFAIT_ENGAGEMENT.xl » de réception fermée 
«C:\Users\michel\Desktop\A_COMMENTcaMARCHE\ENGAGEMENT_REFAIT\classeur_REFAIT_ENGAGEMENT.xls »
Après fusion les classeurs restent ouvert
VOICI le cijoint des classeurs
https://www.cjoint.com/?DGCxJWvZGn7
MERCI d'avance
micheleliane

f894009 · Answer

Bonjour,

Après fusion les classeurs restent ouvert   C'est une demande ou un constat (bien que je n'ai pas trouve de code qui fasse la copie)

micheleliane · Answer

BONSOIR  f894009
 C'est bien une DEMANDE que je fait.
J'ai réussi a bricoler une macro "DEMANDEversREFAIT" qui fonctionne mais je ne crois pas dans les normes de programmation et je ne sais que prendre une série C9 ou B11:D55 ou E11:J55 enfin E63 :E64  en supplément par moment elle bogue et vas dans les macros avec  Workbook
Voici cette macro adaptée
Sub DEMANDEversREFAIT()

Range("E11:J55").Select
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Open ("C:\Users\michel\Desktop\A_COMMENTcaMARCHE\ENGAGEMENT_REFAIT\classeur_REFAIT_ENGAGEMENT.xls")
    Workbooks("classeur_REFAIT_ENGAGEMENT.xls").Activate
       Range("E11:J55").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 
End Sub
Je continue a travailler dessus mais je suis nul et travail en copier coller
MERCI de vous penchez sur mon problème
micheleliane

f894009 · Answer

Bonjour,

Je regarde la chose.

A+

f894009 · Answer

Re,

Fichier classeur_DEMANDE_ENGAGEMENT.xls modifie Sub DEMANDEversREFAIT()

https://www.cjoint.com/c/DGEpouFKpDx

A+

micheleliane · Answer

BONSOIR f894009 
BONSOIR et MERCI cela fonctionne parfaitement j'ai ajouté
 N_espece = .Range("B11:B55" 
grâce à vous je comprends un peu mieux les variables
(Je regarde la chose ?)de votre part est un bien petit mot que cela donne t-il
quand vous vous en occupez
Mil MERCI
micheleliane

Copier plage cellules d'un classeur vers un autre classeur

5 réponses

Newsletters