A voir également:
- Copier cellule excel d'un fichier à un autre
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
1 réponse
Utilisateur anonyme
24 juin 2008 à 09:19
24 juin 2008 à 09:19
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
24 juin 2008 à 09:26
24 juin 2008 à 09:44
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