Copier cellule excel d'un fichier à un autre
mad
-
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.
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.
Configuration: Windows XP Internet Explorer 7.0
A voir également:
- Copier cellule excel d'un fichier à un autre
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Trier un tableau excel - Guide
- Comment ouvrir un fichier 7z - Guide
- Comment réduire la taille d'un fichier - Guide
1 réponse
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
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
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