[Excel] Probleme macro
TiMaZe
Messages postés
121
Statut
Membre
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
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
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:
- [Excel] Probleme macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
5 réponses
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
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
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
Range("A4").Select
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question