Documents liés excel

[jeromeN95]

Bonjour,
j'ai 2 classeurs Excel.
DDE.xls
Audit.xls

Audit.xls doit donné un contenu à DDE.xls

Les 2 fichiers ce trouve sur mon bureau (mais peut être également sur le bureau d'un autre PC).

La cellule source de Audit.xls est : F6
La cellule destinatrice DDE.xls est B18

Comment faire SVP.
Je précise que la macro est mise sur un bouton de commande = CmdPAU

Pour le moment j'ai fait ceci avec l'éditeur mais ca ne fonctionne pas.

Sub DDE_transfert()

Application.WindowState = xlMinimized
ActiveWindow.LargeScroll Down:=-1
Range("B18").Select
Windows("Audit V3-2.xls").Activate
Sheets("Page de garde").Select
Range("F6:H6").Select
Selection.Copy
Windows("DDE DE MISE EN LOC Avril 2010 Diversey.xls").Activate
Windows("Audit V3-2.xls").Activate
Range("F6:H6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "JPµ"
Range("C16😀16").Select
Windows("DDE DE MISE EN LOC Avril 2010 Diversey.xls").Activate
Range("B18").Select
ActiveCell.FormulaR1C1 = "JPµ"
Range("B20").Select
End Sub

 

[Hippolite]

Re : Documents liés excel

Bonsoir,

Workbooks("Audit.xls").Sheets("Page de garde").Range("F6").Copy _
Destination:=Workbooks("DDE.xls").Sheets("?????").Range("B18")

A+

 

[jeromeN95]

Re : Documents liés excel

OK la fonction fonctionne.
Merci.
Tu sais quelle est la formule magique pour ouvrir le fichier qui se trouve sur le bureau avant de lancer la copie de cellule?

Merci en tout cas et qu'Excel te garde !

En faite j'ai aussi une autre question la dessu :
Voici le code avec les "vrai" dénomination de feuille et onglet manquant lors du 1er post :
Workbooks("Audit V3-2.xls").Sheets("Page de garde").Range("F6").Copy _
Destination:=Workbooks("DDE DE MISE EN LOC Avril 2010 Diversey.xls").Sheets("cuisine 010410").Range("B18")

Par contre j'ai plussieurs (30) cellules à copier répartie dans le fichier, comment puisje faire?
Est-ce que je doit taper en entier le code a chaque fois ou alors puis-je faire autrement?

Merci.