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
Bonjour à tous,

voilà j'ai une macro (qui fonctionnait correctement depuis 5 ou 6 ans) et qui à présent ne fonctionne qu'en mode pas à pas. Si j'exécute normalement cette macro, Excel (version 2010 officielle) plante et se ferme.

Merci d'avance

ci-dessous la macro concernée :

Sub Copie()
'
' Copie Macro
'

'
Range("A1:F1687").Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\xxxxxxxx\Desktop\Salaires\test+.xls"
Range("A1").Select
ActiveSheet.Paste
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Totaux"
Range("E5").Select
End Sub
A voir également:

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
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.
0
bonjour Mike et merci de te pencher sur mon problème

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.
0
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
Re,

et bien si cette plage nommée n'existe plus supprime cette ligne
Range("D1").FormulaR1C1 = "Totaux"
0
je viens de le faire. Le résultat reste le même et j'ai toujours un plantage d'Excel.
0
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
Re,

sur quelle ligne du code Excel plante, la ligne doit être en jaune
0