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
A voir également:
- Macro ne fonctionne qu'en pas à pas
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
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.
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.
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.