Copier une feuille dans un autre classeur

bonjour,

j ai deux feuilles dans deux fichiers différents et je voudrais copier la 1ere feuille sur la 2eme dans l autre fichier mais j ai fait une macro qui donne aucun résultat que se soit message d'erreur ou restitution du tableau, j ai du mal l'écrire avec mon peu de connaissances, espérant avoir été clair.

ne pouvant joindre le 1er fichier(trop lourd) j en fait une copie:

plage A2-I8

pole service trx conso vol cai ete CPV

emma 30 10 5 0 10 10 0 10

joelle 167 72 28 34 64 36 24 42

jclaude 84 45 25 23 27 45 52 62

delphine 103 25 35 42 36 35 41 65

celine 111 23 45 52 32 62 41 66

je joins le 2eme fichier

https://www.excel-pratique.com/~files/doc2/RDP.xls.

merci de votre aide

Bonjour,

Ton lien concernant le fichier ne fonctionne pas. Peux-tu le replacer ?

Mest-y aussi ta macro et donne le nom de l'autre fichier dans lequel tu veux copier la feuille.

A te relire

Dan

re bonjour

le lien

https://www.excel-pratique.com/~files/doc2/IHjdmRDP.xls

la macro

Sub Selectrecopie()

'   Workbook("moncapoctobre08.xls").Activate
'   Sheets("recapoctobre").Select
'   Range("A2:I8").Select
'   Workbook("RDP.xls").Activate
'   Copy Sheets("rdp-t4").("A1")

End Sub

le nom du fichier rdp-t4 pour la copie

le nom du fichier recapoctobre pour la source

merci de ton aide

bonjour,

est ce que des formules dans le tableau a1:i8 ( comme celles-ci (=emma!E98+emma!F98+emma!G98)(=C7) peuvent empêcher une macro de fonctionner

merci

bonjour

j ai essayé une autre macro mais il ne trouve pas le chemin de la feuille

l adresse compléte est :

boutique\equipeboutique.xls\ventes\moncapoctobre08.xls, la feuille recapoctobre

boutique\equipeboutique.xls\RDP.xls, lafeuille rdpt4

j ai essayé diverses combinaisons et chaque fois la même réponse.

Sub Macro4()

Dim SourceFile, DestinationFile
SourceFile = "moncapoctobre08.xls""recapoctobre"
DestinationFile = "RDP.xls""rdpt4"

FileCopy SourceFile, DestinationFile

End Sub

merci de votre aide

Re,

le nom du fichier rdp-t4 pour la copie

le nom du fichier recapoctobre pour la source

dans ta macro le nom du fichier est RDP.xls. Sur cette base essaie ce code :

Sub Selectrecopie()
Workbooks("moncapoctobre08.xls").Sheets("recapoctobre").Range("A2:I8").Copy Destination _
:=Workbooks("RDP.xls").Sheets("rdp-t4").Range("A1")
End Sub

Macro à mettre dans le fichier que tu as placé dans ton fil.

Amicalement

Dan

bonjour,

j ai essayé

réponse "erreur exécution 9" : l indice n appartient pas à la sélection, ce qui donne :

flèche jaune indique cette ligne :=Workbooks("RDP.xls").Sheets("rdp-t4").Range("A1")

merci de ton aide

re,

Dans le code que je te propose, on copie de "moncapoctobre08.xls" vers le fichier RDP, c'est bien cela que tu veux faire ?

Quelques précisions :

• tes deux fichiers sont ouverts ?
• Sont-ils bien nommé "moncapoctobre08.xls" et "RDP.xls" (majuscules ou minuscules ??)
• Vérife les noms des feuiles concernées (Majuscules ou minuscules ??)
• Dans quel fichier as-tu placé le code que je t'ai donné ?
• C'est bien une plage (ici A1 à I8 ) que tu veux copier d'un classeur vers l'autre ? Car ta demande dans le sujet du fil parle d'une feuille et le code que je te propose est basé sur ton code posté le Ven Juin 12, 2009 2:19 pm.

Essaie aussi en mettant le code sur une seule ligne (supprime le caractère souligné) pour avoir ceci :

..... Copy Destination:=Workbooks("RDP.xls")....

A te relire

Dan

bonjour,

il y avait une erreur de ma part sheets (rdpt4) et non (rdp-t4)

excuse moi

grand merci pour ta persévérance