biddal
XLDnaute Nouveau
Bonjour,
J'ai 2 fichiers excel Perf1 et Perf2 bien différents dont le contenu est un simple tableau! Le même tableau dans les deux avec juste les valeurs à l'intérieur qui différent.
Ex:
Perf1:
Nom: Cooper: Marche course: 100+10m: Tir: Cordes: Abdos:
toto 2700 40 min 157 sec 90 17 sec 55
Perf2:
Nom: Cooper: Marche course: 100+10m: Tir: Cordes: Abdos:
titi 3200 36 min 221 sec 80 12 sec 55
Je voudrais donc faire un copier/coller grâce à une macro dans le 3ème fichier Rslt.
Le tableau serait le même mais je dois copier les 2 tableaux dans celui-ci mais sans écraser les valeurs qu'il pourrait déjà y avoir.
Actuellement j'ai ça: (je ne teste qu'avec un seul fichier pour la copie)
Le souci c'est que cela ne me fait rien du tout ! Si j'enlève la ligne que j'ai mis en rouge ça me fait bien la copie mais ça me la colle dans Perf1 et non dans Rslt !! Je ne gère pas encore le fait qu'il puisse y avoir déjà des données je veux d'abord faire fonctionner le copier/coller le reste je verai par la suite .
Je vous remercie par avance pour votre aide.
J'ai 2 fichiers excel Perf1 et Perf2 bien différents dont le contenu est un simple tableau! Le même tableau dans les deux avec juste les valeurs à l'intérieur qui différent.
Ex:
Perf1:
Nom: Cooper: Marche course: 100+10m: Tir: Cordes: Abdos:
toto 2700 40 min 157 sec 90 17 sec 55
Perf2:
Nom: Cooper: Marche course: 100+10m: Tir: Cordes: Abdos:
titi 3200 36 min 221 sec 80 12 sec 55
Je voudrais donc faire un copier/coller grâce à une macro dans le 3ème fichier Rslt.
Le tableau serait le même mais je dois copier les 2 tableaux dans celui-ci mais sans écraser les valeurs qu'il pourrait déjà y avoir.
Actuellement j'ai ça: (je ne teste qu'avec un seul fichier pour la copie)
Code:
Sub Bouton1_QuandClic()
Dim LigneCopiageFin As Long
Dim LigneCollage As Long
Workbooks.Open Filename:="C:\Documents and Settings\bdu\Bureau\Excel_FSI\Perf1.xls"
LigneCopiageFin = Range("A65535").End(xlUp).Row
Range("A2:G" & LigneCopiageFin).Copy
[COLOR="Red"]Workbooks.Open Filename:="C:\Documents and Settings\bdu\Bureau\Excel_FSI\Rslt.xls"[/COLOR]
LigneCollage = Range("A65535").End(xlUp).Row
LigneCollage = LigneCollage + 1
Range("A" & LigneCollage).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Le souci c'est que cela ne me fait rien du tout ! Si j'enlève la ligne que j'ai mis en rouge ça me fait bien la copie mais ça me la colle dans Perf1 et non dans Rslt !! Je ne gère pas encore le fait qu'il puisse y avoir déjà des données je veux d'abord faire fonctionner le copier/coller le reste je verai par la suite .
Je vous remercie par avance pour votre aide.