Macro ne fonctionne qu'en pas à pas
desclics
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
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
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
3 réponses
-
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.-
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.
-
-
Re,
et bien si cette plage nommée n'existe plus supprime cette ligne
Range("D1").FormulaR1C1 = "Totaux"
-
Re,
sur quelle ligne du code Excel plante, la ligne doit être en jaune
