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

5 réponses

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)
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
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+
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+
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