Macro ne fonctionne qu'en pas à pas
Fermé
desclics
-
8 mars 2016 à 10:08
Mike-31 Messages postés 18350 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 novembre 2024 - 8 mars 2016 à 13:13
Mike-31 Messages postés 18350 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 novembre 2024 - 8 mars 2016 à 13:13
A voir également:
- Macro ne fonctionne qu'en pas à pas
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Jitbit macro recorder - Télécharger - Confidentialité
- Tri automatique excel sans macro ✓ - Forum Excel
3 réponses
Mike-31
Messages postés
18350
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
28 novembre 2024
5 105
Modifié par Mike-31 le 8/03/2016 à 10:29
Modifié par Mike-31 le 8/03/2016 à 10:29
Bonjour,
simplifie ton code comme cela
Sub Copie()
Range("A1:F1687").Copy
Workbooks.Open Filename:="C:\Users\xxxxxxxx\Desktop\Salaires\test+.xls"
Range("A1").Select
ActiveSheet.Paste
Range("D1").FormulaR1C1 = "Totaux"
Application.CutCopyMode = False
Range("E5").Select
End Sub
ce qui m'interpelle dans ton code c'est cette ligne dont la cellule D1 se trouve dans la matrice que tu copies Range("A1:F1687")
et "Totaux" est le nom d'une plage nommée qui se trouve dans quel fichier!
Range("D1").FormulaR1C1 = "Totaux"
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
simplifie ton code comme cela
Sub Copie()
Range("A1:F1687").Copy
Workbooks.Open Filename:="C:\Users\xxxxxxxx\Desktop\Salaires\test+.xls"
Range("A1").Select
ActiveSheet.Paste
Range("D1").FormulaR1C1 = "Totaux"
Application.CutCopyMode = False
Range("E5").Select
End Sub
ce qui m'interpelle dans ton code c'est cette ligne dont la cellule D1 se trouve dans la matrice que tu copies Range("A1:F1687")
et "Totaux" est le nom d'une plage nommée qui se trouve dans quel fichier!
Range("D1").FormulaR1C1 = "Totaux"
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Mike-31
Messages postés
18350
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
28 novembre 2024
5 105
8 mars 2016 à 12:19
8 mars 2016 à 12:19
Re,
et bien si cette plage nommée n'existe plus supprime cette ligne
Range("D1").FormulaR1C1 = "Totaux"
et bien si cette plage nommée n'existe plus supprime cette ligne
Range("D1").FormulaR1C1 = "Totaux"
Mike-31
Messages postés
18350
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
28 novembre 2024
5 105
8 mars 2016 à 13:13
8 mars 2016 à 13:13
Re,
sur quelle ligne du code Excel plante, la ligne doit être en jaune
sur quelle ligne du code Excel plante, la ligne doit être en jaune
8 mars 2016 à 11:26
J'ai appliqué ton code modifié mais j'ai malheureusement toujours la même erreur (excel à cessé de fonctionner....)
concernant la zone nommée "Totaux", il s'agit d'une trace de l'ancienne version du fichier mais cette zone n'existe plus aujourd'hui.