Sujet Précédent Sujet Suivant

Copier cellule excel d'un fichier à un autre

mad -  
 mad -
Bonjour,

Je suis novice en VBA.
Je cherche un programme en VBA qui permet de copier une cellule d'un fichier excel vers un autre fichier excel dans une cellule precise.
Merci d'avance de votre aide.
A voir également:

1 réponse

Réponse 1 / 1
Utilisateur anonyme
 
En dur

1. Sub CopierDonnees()
2. Workbooks("OE VIERGE.xls" ).Sheets("Feuil1" ).Range("B3" ) = Workbooks("PLAN DE CHARGE vierge.xls" ).Sheets("PLAN DE CHARGE" ).Range("B8" ).Value
3. End sub

Plus souple

1. Option Explicit
2.
3. Sub CopierDonnees()
4. Dim Entree As Workbook, Sortie As Workbook
5. Dim Nomfichierentree As String, NomFichierSortie As String
6.
7. Nomfichierentree = Application.GetOpenFilename("PLAN DE CHARGE vierge (*.xls), *.xsl" )
8.
9. If Nomfichierentree <> False Then
10. Set Entree = Workbooks.Open(Nomfichierentree)
11. NomFichierSortie = Application.GetOpenFilename("OE vierge (*.xls), *.xsl" )
12. If NomFichierSortie <> False Then
13. Set Sortie = Workbooks.Open(NomFichierSortie)
14. Sortie.Worksheets("Feuil1" ).Range ("B3" ) = Entree.Worksheets("Feuil1" ).Range ("B8" )
15. End IF
16. End IF
17. End Sub
0
mad
 
Merci pour ce programme je l'essaye et je te tiens au courant
0
mad
 
Bonjour Booddha,

Je crée un fichier A que je nomme PLAN DE CHARGE vierge et un fichier B que je nomme OE vierge.
J'ouvre Microsft visual basic et je copier et colle ton programme je le lance et il me donne une erreur incompatible type.

Merci d'avance
0