Copie de plage entre classeurs

Bonjour à tous

Lorsque je copie une plage de cellule d'un classeur dans un autre classeur la réponse des cellules copiées comportent la valeur "Vrai"

Voici l'écriture de ma macro

Sub copie_affilies()

Dim valeursrecup As String

ActiveWorkbook.Sheets("Feuil1").Select

valeursrecup = ActiveSheet.Range("A4:F103").Select

Workbooks.Open ActiveWorkbook.Path & "\Joueurs_Adhérents.xls"

ActiveWorkbook.Sheets("F1").Select

ActiveSheet.Range("B4:G103").Value = valeursrecup

End Sub

A bientôt de vous lire

Annette

nb: comment puis mettre en résolu le message précédent?

Merci Annette

Bonjour annette,

Essaie avec cette macro :

Sub copie_affilies()
    Sheets("Modèle").Select
    Range("A4:F103").Copy
    Workbooks.Open ActiveWorkbook.Path & "\Joueurs_Adhérents.xls"
    Sheets("F1").Select
    ActiveSheet.Paste Destination:=Range("B4")
End Sub

Pour le résolu :

Bonsoir à tous,

en doublon

Sub copie_affilies()
'de Claude pour Annette 23/02/10
Dim WbK$, WbK2$
    WbK = ActiveWorkbook.Name
    Workbooks.Open ActiveWorkbook.Path & "\Joueurs_Adhérents.xls"
    WbK2 = ActiveWorkbook.Name
    Workbooks(WbK).Activate
    Range("A4:F103").Copy Destination:=Workbooks(WbK2).Sheets("F1").Range("b4")
End Sub

Amicalement

Bonsoir et merci vba-new et Claude,

Ca marche.

Je suis satisfait du résultat, j'ai rajouté (est ce la meilleur méthode?):

Windows("Joueurs_Adhérents.xls").Activate

ActiveWorkbook.Save

ActiveWorkbook.Close

Dim WbK$, WbK2$

WbK = ActiveWorkbook.Name

Workbooks.Open ActiveWorkbook.Path & "\Joueurs_Adhérents.xls"

WbK2 = ActiveWorkbook.Name

Workbooks(WbK).Activate

Range("A4:F103").Copy Destination:=Workbooks(WbK2).Sheets("F1").Range("b4")

Windows("Joueurs_Adhérents.xls").Activate

ActiveWorkbook.Save

ActiveWorkbook.Close

End Sub

pour fermé le fichier ouvert pour la mise à jour.

Bonsoir rt bonne nuit

Annette

Bonjour annette,

Tu peux remplacer :

Windows("Joueurs_Adhérents.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close

par

Workbooks("Joueurs_Adhérents.xls").Close True

Bonjour à tous

merci vba-new pour cette écriture

Je change dans l'instant

Annette