Une brève explication:
Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur,
quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie
le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois
que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code:
--------------------
Sub Ajout()
Workbooks.Open Filename:="L:\CAO\Site de La Hague\0 - Ref\BaseDest.xls"
With Workbooks("BaseDest.xls").Close
Call RedefAFFAIRES
Call RedefDESTINATAIRES
End With
End Sub
--------------------
--
http://8pool.over-blog.com/
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
Poulpor
Bonjour Tatane,
Une tentative à tout hasard : en mettant :
ActiveWindow.Close
Est-ce que ça marche ?
poulpor
Bonjour,
Une brève explication: Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur, quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code: -------------------- Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" With Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End With End Sub -------------------- -- http://8pool.over-blog.com/
Bonjour Tatane,
Une tentative à tout hasard : en mettant :
ActiveWindow.Close
Est-ce que ça marche ?
poulpor
Bonjour,
Une brève explication:
Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur,
quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie
le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois
que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code:
--------------------
Sub Ajout()
Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls"
With Workbooks("BaseDest.xls").Close
Call RedefAFFAIRES
Call RedefDESTINATAIRES
End With
End Sub
--------------------
--
http://8pool.over-blog.com/
Une brève explication: Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur, quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code: -------------------- Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" With Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End With End Sub -------------------- -- http://8pool.over-blog.com/
Daniel
Bonjour. A quoi sert le "with...end with" ? Essaie : Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End Sub Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Une brève explication: Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur, quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code: -------------------- Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" With Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End With End Sub -------------------- -- http://8pool.over-blog.com/
Bonjour.
A quoi sert le "with...end with" ?
Essaie :
Sub Ajout()
Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls"
Workbooks("BaseDest.xls").Close
Call RedefAFFAIRES
Call RedefDESTINATAIRES
End Sub
Cordialement.
Daniel
"Tatane" <ple5@hotmail.fr> a écrit dans le message de news:
32C5D2B2-8B5B-44F6-AEC6-A69B9242CF81@microsoft.com...
Bonjour,
Une brève explication:
Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur,
quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me
renvoie
le message cité en objet et ne s'exécute pas. En faisant F8, je
m'apperçois
que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code:
--------------------
Sub Ajout()
Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls"
With Workbooks("BaseDest.xls").Close
Call RedefAFFAIRES
Call RedefDESTINATAIRES
End With
End Sub
--------------------
--
http://8pool.over-blog.com/
Bonjour. A quoi sert le "with...end with" ? Essaie : Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End Sub Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Une brève explication: Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur, quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code: -------------------- Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" With Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End With End Sub -------------------- -- http://8pool.over-blog.com/
Tatane
Bonjour "Poulpor",
Non car le "classeur 2" s'enregistre et se ferme en actionnant un bouton dans un Userform Multipage et donc c'est une fois qu'il s'est fermé qu'il faut lancer les macros du "classeur 1". -- http://8pool.over-blog.com/
Bonjour Tatane,
Une tentative à tout hasard : en mettant :
ActiveWindow.Close
Est-ce que ça marche ?
poulpor
Bonjour,
Une brève explication: Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur, quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code: -------------------- Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" With Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End With End Sub -------------------- -- http://8pool.over-blog.com/
Bonjour "Poulpor",
Non car le "classeur 2" s'enregistre et se ferme en actionnant un bouton
dans un Userform Multipage et donc c'est une fois qu'il s'est fermé qu'il
faut lancer les macros du "classeur 1".
--
http://8pool.over-blog.com/
Bonjour Tatane,
Une tentative à tout hasard : en mettant :
ActiveWindow.Close
Est-ce que ça marche ?
poulpor
Bonjour,
Une brève explication:
Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur,
quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie
le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois
que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code:
--------------------
Sub Ajout()
Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls"
With Workbooks("BaseDest.xls").Close
Call RedefAFFAIRES
Call RedefDESTINATAIRES
End With
End Sub
--------------------
--
http://8pool.over-blog.com/
Non car le "classeur 2" s'enregistre et se ferme en actionnant un bouton dans un Userform Multipage et donc c'est une fois qu'il s'est fermé qu'il faut lancer les macros du "classeur 1". -- http://8pool.over-blog.com/
Bonjour Tatane,
Une tentative à tout hasard : en mettant :
ActiveWindow.Close
Est-ce que ça marche ?
poulpor
Bonjour,
Une brève explication: Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur, quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code: -------------------- Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" With Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End With End Sub -------------------- -- http://8pool.over-blog.com/
Tatane
Bonjour "Daniel"
Désolé mais cela ne fonctionne pas, la MAJ se fait aussitôt et non après la fermeture du second classeur.
Je dois procéder en étapes 1 - Ouvrir le 2è classeur à partir du 1er 2 - Le modifier (enregistrement et fermeture auto) 3 - Puis lancer les macros ensuite (pour la mise à jour)
-- http://8pool.over-blog.com/
Bonjour. A quoi sert le "with...end with" ? Essaie : Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End Sub Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Une brève explication: Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur, quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code: -------------------- Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" With Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End With End Sub -------------------- -- http://8pool.over-blog.com/
Bonjour "Daniel"
Désolé mais cela ne fonctionne pas, la MAJ se fait aussitôt et non après la
fermeture du second classeur.
Je dois procéder en étapes
1 - Ouvrir le 2è classeur à partir du 1er
2 - Le modifier (enregistrement et fermeture auto)
3 - Puis lancer les macros ensuite (pour la mise à jour)
--
http://8pool.over-blog.com/
Bonjour.
A quoi sert le "with...end with" ?
Essaie :
Sub Ajout()
Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls"
Workbooks("BaseDest.xls").Close
Call RedefAFFAIRES
Call RedefDESTINATAIRES
End Sub
Cordialement.
Daniel
"Tatane" <ple5@hotmail.fr> a écrit dans le message de news:
32C5D2B2-8B5B-44F6-AEC6-A69B9242CF81@microsoft.com...
Bonjour,
Une brève explication:
Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur,
quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me
renvoie
le message cité en objet et ne s'exécute pas. En faisant F8, je
m'apperçois
que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code:
--------------------
Sub Ajout()
Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls"
With Workbooks("BaseDest.xls").Close
Call RedefAFFAIRES
Call RedefDESTINATAIRES
End With
End Sub
--------------------
--
http://8pool.over-blog.com/
Désolé mais cela ne fonctionne pas, la MAJ se fait aussitôt et non après la fermeture du second classeur.
Je dois procéder en étapes 1 - Ouvrir le 2è classeur à partir du 1er 2 - Le modifier (enregistrement et fermeture auto) 3 - Puis lancer les macros ensuite (pour la mise à jour)
-- http://8pool.over-blog.com/
Bonjour. A quoi sert le "with...end with" ? Essaie : Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End Sub Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Une brève explication: Dans un classeur, j'ai créé une macro "Ajout" qui ouvre un autre classeur, quand je ferme ce dernier j'aimerais lancer 2 macros mais mon code me renvoie le message cité en objet et ne s'exécute pas. En faisant F8, je m'apperçois que c'est la ligne "With ..." qui bloque.
Et comme je bloque aussi, pouvez-vous m'aider ?
Par avance, merci.
Voici mon code: -------------------- Sub Ajout() Workbooks.Open Filename:="L:CAOSite de La Hague - RefBaseDest.xls" With Workbooks("BaseDest.xls").Close Call RedefAFFAIRES Call RedefDESTINATAIRES End With End Sub -------------------- -- http://8pool.over-blog.com/