Copier plage cellules d'un classeur vers un autre classeur

Résolu/Fermé
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
- 28 juil. 2014 à 23:45
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
- 30 juil. 2014 à 17:58
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

f894009
Messages postés
16603
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
30 juin 2022
1 647
29 juil. 2014 à 16:03
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)
0
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015

Modifié par pijaku le 30/07/2014 à 08:10
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
0
f894009
Messages postés
16603
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
30 juin 2022
1 647
30 juil. 2014 à 13:09
Bonjour,

Je regarde la chose.

A+
0
f894009
Messages postés
16603
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
30 juin 2022
1 647
30 juil. 2014 à 15:14
Re,

Fichier classeur_DEMANDE_ENGAGEMENT.xls modifie Sub DEMANDEversREFAIT()

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

A+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015

30 juil. 2014 à 17:58
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
0