Problème avec l'erreur 1004
mymo
-
mymo -
mymo -
Bonjour,
J'ai un petit problème avec mes macros. Alors voila j'ai un fichier avec une macro et j'aimerai à partir d'un autre fichier exécuter cette macro.
j'ai donc utilisé le code suivant :
Public Sub associations()
Application.Run ("IRS.xlsm!export")
End Sub
Dès que j'execute cette macro j'ai l'erreur suivante qui s'affiche :
"Impossible d'exécuter la macro.... Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées"
Avez vous des idées ?
Merci :)
J'ai un petit problème avec mes macros. Alors voila j'ai un fichier avec une macro et j'aimerai à partir d'un autre fichier exécuter cette macro.
j'ai donc utilisé le code suivant :
Public Sub associations()
Application.Run ("IRS.xlsm!export")
End Sub
Dès que j'execute cette macro j'ai l'erreur suivante qui s'affiche :
"Impossible d'exécuter la macro.... Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées"
Avez vous des idées ?
Merci :)
A voir également:
- Impossible d'exécuter la macro il est possible qu'elle ne soit pas disponible dans ce classeur
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
7 réponses
Re,
Deux choses que j'ai oubliees precedemment:
faire un ChDir sur le repertoire du fichier IRS.xlsm
et le nom de la macro doit etre entre '
Deux choses que j'ai oubliees precedemment:
faire un ChDir sur le repertoire du fichier IRS.xlsm
et le nom de la macro doit etre entre '
Application.Run ("IRS.xlsm!'export'")
J'ai fais ce que vous m'avez conseillé et j'ai tjrs la meme erreur :
"Impossible d'exécuter la macro.... Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées"
"Impossible d'exécuter la macro.... Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Essaie avec le chemin du classeur, comme ceci:
Essaie avec le chemin du classeur, comme ceci:
Application.Run "'chemin du classeur\IRS.xlsm'!export"
Voici un exemple, il faut ouvrir le classeur lancermacro
http://www.cjoint.com/c/EKzqvcyo6IQ
http://www.cjoint.com/c/EKzqvcyo6IQ
Bonjour a vous deux
Excel sera toujours un mystere pour moi
et quand j'avais ecrit au depart le chemin complet avec les ' comme le fait cs_le_pivert et ben ca ne marchait pas
Excel sera toujours un mystere pour moi
Private Sub CommandButton1_Click()
Application.Run "'" & ActiveWorkbook.Path & "\Essai.xlsm'!mamacro" 'ok
ChDir ActiveWorkbook.Path
Application.Run "Essai.xlsm!mamacro" 'ok
Application.Run "Essai.xlsm!'mamacro'" 'ok
Application.Run "'Essai.xlsm'!mamacro" 'ok
End Sub
et quand j'avais ecrit au depart le chemin complet avec les ' comme le fait cs_le_pivert et ben ca ne marchait pas
Re !!!
J'ai résolu le problème d'erreur avec ce code :
Public Sub associations()
Dim wb As Workbook
x = "IRS"
On Error Resume Next
Set Wk = Workbooks(x & ".xlsm")
If Err <> 1 Then
Workbooks.Open Filename:="D:\..\IRS.xlsm"
'Application.Run "'" & ActiveWorkbook.Path & "\IRS.xlsm'!export"
Else
MsgBox "Le fichier " & x & " est ouvert"
End If
End Sub
Le seul souci que j'ai maintenant c'est qu'il m'ouvre mon fichier mais n'exécute pas la macro...
Merci
J'ai résolu le problème d'erreur avec ce code :
Public Sub associations()
Dim wb As Workbook
x = "IRS"
On Error Resume Next
Set Wk = Workbooks(x & ".xlsm")
If Err <> 1 Then
Workbooks.Open Filename:="D:\..\IRS.xlsm"
'Application.Run "'" & ActiveWorkbook.Path & "\IRS.xlsm'!export"
Else
MsgBox "Le fichier " & x & " est ouvert"
End If
End Sub
Le seul souci que j'ai maintenant c'est qu'il m'ouvre mon fichier mais n'exécute pas la macro...
Merci
