Copier plage cellules d'un classeur vers un autre classeur [Résolu/Fermé]

Signaler
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
 -
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
 -
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
Afficher la suite

5 réponses

Réponse 1 / 5
Messages postés
15289
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 septembre 2020
 1 336
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)
Réponse 2 / 5
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
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
Réponse 3 / 5
Messages postés
15289
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 septembre 2020
 1 336
Bonjour,

Je regarde la chose.

A+
Réponse 4 / 5
Messages postés
15289
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 septembre 2020
 1 336
Re,

Fichier classeur_DEMANDE_ENGAGEMENT.xls modifie Sub DEMANDEversREFAIT()

https://www.cjoint.com/c/DGEpouFKpDx

A+
Réponse 5 / 5
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
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
Posez votre question