Copier coller deplacer macro

Fermé
aussie - 10 févr. 2009 à 09:36
 aussie - 17 févr. 2009 à 05:10
Bonjour à tous,

je connais la fonction deplacer dans excel mais en macro ????
je m'explique.
j'ai deux fichiers et j aimerai copier coller feuil1 du fichier 1 vers le feuil1 du fichier 2 tous les deux trois jours
jusqu'à la pas de probleme...
le souci est que ça fonctionne une fois mais la seconde fois le 2 eme copier coller efface le 1°. normal quoi !
est t il possible de coller dans le fichier 1 mes données du fichier 2 MAIS en dessous des valeurs deja coller de la veille..??
Je vous joint un fichier mais attention il n'y a qu'un fichier et non pas deux pour des raisons pratique. je pense qu'il ne faudra que modifier les adresses de la macro.

pas simple à expliquer désolé...

https://www.cjoint.com/?cmjJO1tywa

MERCI

6 réponses

wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 240
10 févr. 2009 à 09:47
bonjour

tu dois avoir un code de ce type

Workbooks(1).sheets("Feuil1").cells.copy destination:=workbooks(2).sheets("Feuil1").range("A1")


essaye ce code : (c'est une seule ligne)
workbooks(1).sheets("Feuil1").range("A1").currentregion.copy destination:=workbooks(2).sheets("Feuil1").range("A1").end(xldown).offset(1,0)

0
g'day mate,

No sorry i don't have the first pin..:o)

Pour etre sincère j'ai juste le fichier que j'ai joint. J'ai bien essayer de bidouiller ces nouveaux codes mais sans succès....

Merci TA
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 240
10 févr. 2009 à 12:27
re:

ta macro modifiée
Ton fichier en retour
0
Merci bcp Wilfried,

Ce code fonctionne le souci est que je dois faire un collage spécial avec juste les valeurs et non pas les formules.

Est il possible de copier se qu'il y a en jaune et de le coller dans Feuil1fichier1 à la fin (dans ce cas ligne 14)sous forme de "valeur" uniquement . IMPORTANT la hauteur et la longueur change à chaque fois!

https://www.cjoint.com/?cqb1eQRuX4

Merci d'avance
0

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

Posez votre question
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 240
14 févr. 2009 à 07:12
re:
remplace la precedente
Sub Macro1()
    Sheets("Feuil1fichier2").Range("A1").CurrentRegion.Copy
    Sheets("Feuil1fichier1").Range("A65535").End(xlUp).Offset(1, 0).PasteSpecial xlValues
End Sub
0
Hello,

Super ça marche sauf qu'il me copie toute la page et pas ma selection.
Ma selection en jaune varie tout le temps en nombre de lignes et de colonnes à copier....
J ai bien essayé de bidouiller mais la je coince..

https://www.cjoint.com/?ctfjdOOwnn

Merci Wilfried
0