Copier/Coller cellules entre fichiers excel
Fermé
Nairolf87
-
14 mai 2009 à 13:06
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 15 mai 2009 à 01:12
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 15 mai 2009 à 01:12
A voir également:
- Copier/Coller cellules entre fichiers excel
- Liste déroulante excel - Guide
- Excel additionner des cellules - Guide
- Copier coller pdf - Guide
- Verrouiller des cellules excel - Guide
- Formule excel - Guide
1 réponse
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
642
15 mai 2009 à 01:12
15 mai 2009 à 01:12
Bonjour,
J'ai l'impression qu'il y a deux problèmes. D'abord des instructions à l'intérieur des With .. End With qui ne doivent pas y être et ensuite la taille de la zone copiée (A2:H65536) qui ne peut être collée que dans un fichier vide sinon la zone de collage n'est pas assez grande. Je propose de limiter la zone copier par exemple (A2:H1000).
J'ai fais les quelques corrections et simplifications :
A+
J'ai l'impression qu'il y a deux problèmes. D'abord des instructions à l'intérieur des With .. End With qui ne doivent pas y être et ensuite la taille de la zone copiée (A2:H65536) qui ne peut être collée que dans un fichier vide sinon la zone de collage n'est pas assez grande. Je propose de limiter la zone copier par exemple (A2:H1000).
J'ai fais les quelques corrections et simplifications :
Private Sub copiecollesave_Click() Application.ScreenUpdating = False Rep = "C:\Documents and Settings\desbfl01\Mes documents\Exemple VBA\" FichD = ActiveWorkbook.Name FichS = "FA.xls" Workbooks.Open Rep & FichS With Workbooks(FichS) .Sheets("Feuil1").Range("A2:H1000").Copy _ Workbooks(FichD).Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) .Close End With Rep = "C:\Documents and Settings\desbfl01\Mes documents\Exemple VBA\" FichS = "SB.xls" Workbooks.Open Rep & FichS With Workbooks(FichS) .Sheets("Feuil1").Range("A2:H1000").Copy _ Workbooks(FichD).Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) .Close End With Rep = "C:\Documents and Settings\desbfl01\Mes documents\Exemple VBA\" FichS = "MJ.xls" Workbooks.Open Rep & FichS With Workbooks(FichS) .Sheets("Feuil1").Range("A2:H1000").Copy _ Workbooks(FichD).Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) .Close End With Workbooks(FichD).Save Application.ScreenUpdating = True End Sub
A+