Sujet Précédent Sujet Suivant

[Excel] Probleme macro

Fermé
TiMaZe Messages postés 88 Date d'inscription mercredi 18 mai 2011 Statut Membre Dernière intervention 28 août 2019 - Modifié par TiMaZe le 8/06/2011 à 10:59
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 8 juin 2011 à 15:29
Bonjour,

J'ai écris récemment une macro Excel qui permet de copier des données d'un fichier excel vers un autre fichier excel.
Je dois simplement copier des colonnes. Le probleme c'est que je pense que je n'ai pas reussi a bien indiquer le chemin de chaque fichier pour que le logiciel puisse bien les repérer.

Voila le code :

Private Sub CommandButton2_Click()

Range("A2:A2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
Range("A4:A2000").Select
ActiveSheet.Paste

Windows("Système.xls").Activate
Range("B2:B2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
Range("C4:C2000").Select
ActiveSheet.Paste

Windows("Système.xls").Activate
Range("C2:C2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
Range("E4:E2000").Select
ActiveSheet.Paste

Windows("Système.xls").Activate
Range("E2:E2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
Range("H4:H2000").Select
ActiveSheet.Paste

End Sub

Si vous pouvez corriger ce qui ne va pas, ca m'aiderai beaucoup.

Merci d'avance
A voir également:

5 réponses

Réponse 1 / 5
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
8 juin 2011 à 11:48
Bonjour,

ton problème est que tu veux copier de A2 à A2000
sur une zone qui commence à A4 donc il y a deux lignes en trop. Pour y palier :



Private Sub CommandButton2_Click()

Range("A2:A2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
Range("A4").Select
ActiveSheet.Paste

Windows("Système.xls").Activate
Range("B2:B2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
Range("C4").Select
ActiveSheet.Paste

Windows("Système.xls").Activate
Range("C2:C2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
Range("E4").Select
ActiveSheet.Paste

Windows("Système.xls").Activate
Range("E2:E2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
Range("H4").Select
ActiveSheet.Paste

End Sub
0
Réponse 2 / 5
TiMaZe Messages postés 88 Date d'inscription mercredi 18 mai 2011 Statut Membre Dernière intervention 28 août 2019 2
8 juin 2011 à 11:57
j'ai recopier exactement cette formule mais il y un probleme je lance le debugger et l'erreur se situe au cette ligne :

Range("A4").Select
0
Réponse 3 / 5
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
8 juin 2011 à 13:53
re,

essaie ca :
Private Sub CommandButton2_Click()

Range("A2:A2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
cells(4,1).Select
ActiveSheet.Paste

Windows("Système.xls").Activate
Range("B2:B2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
cells(4,3).Select
ActiveSheet.Paste

Windows("Système.xls").Activate
Range("C2:C2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
cells(4,5).Select
ActiveSheet.Paste

Windows("Système.xls").Activate
Range("E2:E2000").Select
Selection.Copy
Windows("Final_taches_recurrentes_S21.xls").Activate
Sheets("ePO").Select
cells(4,8).Select
ActiveSheet.Paste

End Sub
0
Réponse 4 / 5
TiMaZe Messages postés 88 Date d'inscription mercredi 18 mai 2011 Statut Membre Dernière intervention 28 août 2019 2
8 juin 2011 à 15:26
Erreur a :

Cells(4, 1).Select
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
8 juin 2011 à 15:29
re,

je connais bien le vba et l'erreur n'est pas là.
Quel est le message d'erreur qu'il te dit?
Ton fichier est-il protéger?
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses