Copie d'une cellule dans un autre classeur

[BOBIE]

bonjour a tous,
Je suis novice en VBA et je cherche a copier une cellule (B8) d'un classeur dans une autre cellule (B3) de plusieurs classeur.
seulement voila le programme que j'ai fait ne marche pas
[cpp]
Sub CopierDonnees()

Dim Entree As Workbook, Sortie As Workbook

Nomfichierentree = Application.GetOpenFilename("PLAN DE CHARGE vierge (*.xls), *.xsl")
' On verifie que l'on a selectionné un nom de classeur
If Nomfichierentree <> False Then
' On ouvre le classeur
Set Entree = Workbooks.Open(PLAN DE CHARGE vierge)


NomFichierSortie = Application.GetOpenFilename("OE vierge (*.xls), *.xsl")
If NomFichierSortie <> False Then
Set Sortie = Workbooks.Open(OE vierge)

' Ici tu mets la copie de la cellule de la feuille d'entrée vers la feuille de sortie
Sortie.Worksheets("Feuil1").Range ("B3") = Entree.Worksheets("Feuil1").Range ("B8")
[/cpp]
si quelqu'un a une idée de mes erreurs ou une meilleur solution à mon problème toute idée est la bienvenue
merçi d'avance

 

[zeb]

Hum, c'est presque ça !
Allez, avoue, tu l'as eu sur quel autre forum ce bout de code.

Ligne 5, tu te casses la nénette à récupérer le nom du fichier d'entrée. Ben ligne 9 tu t'en sers.

Ligne 12, tu te re-casses la nénette à récupérer le nom du fichier de sortie. Ben ligne 14 tu t'en sers.

[:spamafote]

 

[BOBIE]

j'avoue tous n'est pas de moi mais j'ai trouvé beaucoup plus simple comme solution merçi quand meme.
[cpp]
Sub CopierDonnees()
Workbooks("OE VIERGE.xls").Sheets("Feuil1").Range("B3") = Workbooks("PLAN DE CHARGE vierge.xls").Sheets("PLAN DE CHARGE").Range("B8").Value
End sub
[/cpp]
a+

 

[zeb]

Bon là, tu mets tout en dur. C'est pas terrible.
Et comme ça :

Option Explicit

Sub CopierDonnees()
    Dim Entree As Workbook, Sortie As Workbook
    Dim Nomfichierentree As String, NomFichierSortie As String

    Nomfichierentree = Application.GetOpenFilename("PLAN DE CHARGE vierge (*.xls), *.xsl")
    
    If Nomfichierentree <> False Then
        Set Entree = Workbooks.Open(Nomfichierentree)
        NomFichierSortie = Application.GetOpenFilename("OE vierge (*.xls), *.xsl")
        If NomFichierSortie <> False Then
            Set Sortie = Workbooks.Open(NomFichierSortie)
            Sortie.Worksheets("Feuil1").Range ("B3") = Entree.Worksheets("Feuil1").Range ("B8")
        End IF
    End IF
End Sub