Je reviens à la charge avec mon problème d'erreur d'exécution '5'.
Voici la macro appelante. Je pense que la syntaxe ne doit pas être parfaite,
ce qui expliquerait pourquoi cela fonctionne une fois sur deux... Merci pour
ton aide. Pour rappel, les macros appelées fonctionnent parfaitement
individuellement.
A plus.
>
> Sub Auto_Open()
>
> ' Macro enregistrée le 28/09/2004
>
> ' Lancement de la copie de fichiers de réassorts
>
> Application.Run "'Lancement.xls'!Copie"
>
> ' Contrôle de la présence des fichiers de réassorts avant poursuite des
> traitements
>
> If Dir("\\Gestion2\c\Professionnel\Bases de
> données\Extractions\Chaussures.xls") <> "" Then
> Application.Run "'Lancement.xls'!Réassort"
> Else
> ActiveWorkbook.Save
> ActiveWorkbook.Close
> End If
>
> ' Lancement du traitement des fichiers de CA
>
> Application.Run "'Lancement.xls'!CA"
>
> ' Lancement de la suppression des fichiers requis et fermeture du fichier
>
> Application.Run "'Lancement.xls'!Cloture"
>
> End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Yvan,
Je t'ai déjà donné une réponse sur l'autre fil ... Il est préférable de demeurer sur le fil initial afin que tous peuvent suivre les échanges ... la solution à ta difficulté pourrait bien émaner de quelqu'un d'autre ...
Salutations!
"Yvan" a écrit dans le message de news: Salut,
Je reviens à la charge avec mon problème d'erreur d'exécution '5'.
Voici la macro appelante. Je pense que la syntaxe ne doit pas être parfaite, ce qui expliquerait pourquoi cela fonctionne une fois sur deux... Merci pour ton aide. Pour rappel, les macros appelées fonctionnent parfaitement individuellement.
A plus.
Sub Auto_Open()
' Macro enregistrée le 28/09/2004
' Lancement de la copie de fichiers de réassorts
Application.Run "'Lancement.xls'!Copie"
' Contrôle de la présence des fichiers de réassorts avant poursuite des traitements
If Dir("Gestion2cProfessionnelBases de donnéesExtractionsChaussures.xls") <> "" Then Application.Run "'Lancement.xls'!Réassort" Else ActiveWorkbook.Save ActiveWorkbook.Close End If
' Lancement du traitement des fichiers de CA
Application.Run "'Lancement.xls'!CA"
' Lancement de la suppression des fichiers requis et fermeture du fichier
Application.Run "'Lancement.xls'!Cloture"
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Je t'ai déjà donné une réponse sur l'autre fil ... Il est préférable de demeurer sur le fil initial afin que tous peuvent
suivre les échanges ... la solution à ta difficulté pourrait bien émaner de quelqu'un d'autre ...
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:EA36173A-4E12-4D82-836D-8C3A6B271B71@microsoft.com...
Salut,
Je reviens à la charge avec mon problème d'erreur d'exécution '5'.
Voici la macro appelante. Je pense que la syntaxe ne doit pas être parfaite,
ce qui expliquerait pourquoi cela fonctionne une fois sur deux... Merci pour
ton aide. Pour rappel, les macros appelées fonctionnent parfaitement
individuellement.
A plus.
Sub Auto_Open()
' Macro enregistrée le 28/09/2004
' Lancement de la copie de fichiers de réassorts
Application.Run "'Lancement.xls'!Copie"
' Contrôle de la présence des fichiers de réassorts avant poursuite des
traitements
If Dir("\Gestion2cProfessionnelBases de
donnéesExtractionsChaussures.xls") <> "" Then
Application.Run "'Lancement.xls'!Réassort"
Else
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
' Lancement du traitement des fichiers de CA
Application.Run "'Lancement.xls'!CA"
' Lancement de la suppression des fichiers requis et fermeture du fichier
Je t'ai déjà donné une réponse sur l'autre fil ... Il est préférable de demeurer sur le fil initial afin que tous peuvent suivre les échanges ... la solution à ta difficulté pourrait bien émaner de quelqu'un d'autre ...
Salutations!
"Yvan" a écrit dans le message de news: Salut,
Je reviens à la charge avec mon problème d'erreur d'exécution '5'.
Voici la macro appelante. Je pense que la syntaxe ne doit pas être parfaite, ce qui expliquerait pourquoi cela fonctionne une fois sur deux... Merci pour ton aide. Pour rappel, les macros appelées fonctionnent parfaitement individuellement.
A plus.
Sub Auto_Open()
' Macro enregistrée le 28/09/2004
' Lancement de la copie de fichiers de réassorts
Application.Run "'Lancement.xls'!Copie"
' Contrôle de la présence des fichiers de réassorts avant poursuite des traitements
If Dir("Gestion2cProfessionnelBases de donnéesExtractionsChaussures.xls") <> "" Then Application.Run "'Lancement.xls'!Réassort" Else ActiveWorkbook.Save ActiveWorkbook.Close End If
' Lancement du traitement des fichiers de CA
Application.Run "'Lancement.xls'!CA"
' Lancement de la suppression des fichiers requis et fermeture du fichier
