Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer, j'ai
droit à un laconique "Variable objet ou variable de bloc With non définie".
Microsoft Word 10.0 Object library est bien activé dans les références Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer, j'ai
droit à un laconique "Variable objet ou variable de bloc With non définie".
Microsoft Word 10.0 Object library est bien activé dans les références Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer, j'ai
droit à un laconique "Variable objet ou variable de bloc With non définie".
Microsoft Word 10.0 Object library est bien activé dans les références Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenter
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de même
? (10 feuilles, 40 macros, ...)
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
60ADE963-325D-4784-A6DA-D7C3BF36711B@microsoft.com...
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenter
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
J'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
J'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
OhkUYciwHHA.3364@TK2MSFTNGP02.phx.gbl...
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de même
? (10 feuilles, 40 macros, ...)
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
60ADE963-325D-4784-A6DA-D7C3BF36711B@microsoft.com...
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenter
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
J'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je retombe
sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultat
J'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je retombe
sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
OhkUYciwHHA.3364@TK2MSFTNGP02.phx.gbl...
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
60ADE963-325D-4784-A6DA-D7C3BF36711B@microsoft.com...
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenter
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je retombe
sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER, FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je retombe
sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2BB18F2F-7F89-4CB8-8252-2FA70F6B12BD@microsoft.com...
Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultat
J'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je retombe
sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
OhkUYciwHHA.3364@TK2MSFTNGP02.phx.gbl...
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
60ADE963-325D-4784-A6DA-D7C3BF36711B@microsoft.com...
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenter
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je retombe
sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" a écrit dans le message de news:
%Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de
news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
%23PXyAwjwHHA.4736@TK2MSFTNGP04.phx.gbl...
Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2BB18F2F-7F89-4CB8-8252-2FA70F6B12BD@microsoft.com...
Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultat
J'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
OhkUYciwHHA.3364@TK2MSFTNGP02.phx.gbl...
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:
60ADE963-325D-4784-A6DA-D7C3BF36711B@microsoft.com...
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenter
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" a écrit dans le message de news:
%Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de
news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" a écrit dans le message de news:
%Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de
news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
%23PXyAwjwHHA.4736@TK2MSFTNGP04.phx.gbl...
Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2BB18F2F-7F89-4CB8-8252-2FA70F6B12BD@microsoft.com...
Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultat
J'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
OhkUYciwHHA.3364@TK2MSFTNGP02.phx.gbl...
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:
60ADE963-325D-4784-A6DA-D7C3BF36711B@microsoft.com...
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenter
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" a écrit dans le message de news:
%Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de
news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path & "Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Essaie ceci : Il n'y a aucune raison que cela ne fonctionne pas.
Ce type de code fait référence à une liaison tardive (au moment
de l'exécution) avec l'application Word. Conséquemment, ne
déclare pas la référence Word dans la fenêtre Références de
l'éditeur de code... cette procédure pourra s'exécuter peu importe
la version d'excel installée sur l'ordinateur.
'-----------------------------
Sub test()
Dim Wd As Object, Dc As Object
Dim Chemin As String, Fichier As String
'Ton classeur se doit d'avoir été enregistré au moins une fois.
Chemin = ThisWorkbook.Path & ""
Fichier = "Origine.dot"
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(Chemin & Fichier)
NOUVEAU_FICHIER = Chemin & "test.doc"
Dc.SaveAs NOUVEAU_FICHIER
Set Dc = Nothing: Set Wd = Nothing
End Sub
'-----------------------------
"Jac" a écrit dans le message de news:
%
C'est même pas ça : en faisant tourner la macro pas à pas, je perds le
focus
sur le fichier Word, donc quand il s'agit d'enregistrer, Excel ne sait
plus
où il en est !!!
Donc même si le code est bon, ça peut ne pas fonctionner. C'est tout de
même
un comble... que de chercher l'erreur dans une syntaxe qui est
rigoureusement juste !!!
Et de plus, qui fonctionne dans certains cas (C:...).
"Jac" a écrit dans le message de news:Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" a écrit dans le message de news:
%Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de
news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path &
"Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Essaie ceci : Il n'y a aucune raison que cela ne fonctionne pas.
Ce type de code fait référence à une liaison tardive (au moment
de l'exécution) avec l'application Word. Conséquemment, ne
déclare pas la référence Word dans la fenêtre Références de
l'éditeur de code... cette procédure pourra s'exécuter peu importe
la version d'excel installée sur l'ordinateur.
'-----------------------------
Sub test()
Dim Wd As Object, Dc As Object
Dim Chemin As String, Fichier As String
'Ton classeur se doit d'avoir été enregistré au moins une fois.
Chemin = ThisWorkbook.Path & ""
Fichier = "Origine.dot"
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(Chemin & Fichier)
NOUVEAU_FICHIER = Chemin & "test.doc"
Dc.SaveAs NOUVEAU_FICHIER
Set Dc = Nothing: Set Wd = Nothing
End Sub
'-----------------------------
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
%23sTpshowHHA.5008@TK2MSFTNGP05.phx.gbl...
C'est même pas ça : en faisant tourner la macro pas à pas, je perds le
focus
sur le fichier Word, donc quand il s'agit d'enregistrer, Excel ne sait
plus
où il en est !!!
Donc même si le code est bon, ça peut ne pas fonctionner. C'est tout de
même
un comble... que de chercher l'erreur dans une syntaxe qui est
rigoureusement juste !!!
Et de plus, qui fonctionne dans certains cas (C:...).
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
uwgNMIkwHHA.600@TK2MSFTNGP05.phx.gbl...
Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
%23PXyAwjwHHA.4736@TK2MSFTNGP04.phx.gbl...
Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2BB18F2F-7F89-4CB8-8252-2FA70F6B12BD@microsoft.com...
Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultat
J'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
OhkUYciwHHA.3364@TK2MSFTNGP02.phx.gbl...
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:
60ADE963-325D-4784-A6DA-D7C3BF36711B@microsoft.com...
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenter
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path &
"Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Essaie ceci : Il n'y a aucune raison que cela ne fonctionne pas.
Ce type de code fait référence à une liaison tardive (au moment
de l'exécution) avec l'application Word. Conséquemment, ne
déclare pas la référence Word dans la fenêtre Références de
l'éditeur de code... cette procédure pourra s'exécuter peu importe
la version d'excel installée sur l'ordinateur.
'-----------------------------
Sub test()
Dim Wd As Object, Dc As Object
Dim Chemin As String, Fichier As String
'Ton classeur se doit d'avoir été enregistré au moins une fois.
Chemin = ThisWorkbook.Path & ""
Fichier = "Origine.dot"
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(Chemin & Fichier)
NOUVEAU_FICHIER = Chemin & "test.doc"
Dc.SaveAs NOUVEAU_FICHIER
Set Dc = Nothing: Set Wd = Nothing
End Sub
'-----------------------------
"Jac" a écrit dans le message de news:
%
C'est même pas ça : en faisant tourner la macro pas à pas, je perds le
focus
sur le fichier Word, donc quand il s'agit d'enregistrer, Excel ne sait
plus
où il en est !!!
Donc même si le code est bon, ça peut ne pas fonctionner. C'est tout de
même
un comble... que de chercher l'erreur dans une syntaxe qui est
rigoureusement juste !!!
Et de plus, qui fonctionne dans certains cas (C:...).
"Jac" a écrit dans le message de news:Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" a écrit dans le message de news:
%Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de
news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path &
"Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Essaie ceci : Il n'y a aucune raison que cela ne fonctionne pas.
Ce type de code fait référence à une liaison tardive (au moment
de l'exécution) avec l'application Word. Conséquemment, ne
déclare pas la référence Word dans la fenêtre Références de
l'éditeur de code... cette procédure pourra s'exécuter peu importe
la version d'excel installée sur l'ordinateur.
'-----------------------------
Sub test()
Dim Wd As Object, Dc As Object
Dim Chemin As String, Fichier As String
'Ton classeur se doit d'avoir été enregistré au moins une fois.
Chemin = ThisWorkbook.Path & ""
Fichier = "Origine.dot"
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(Chemin & Fichier)
NOUVEAU_FICHIER = Chemin & "test.doc"
Dc.SaveAs NOUVEAU_FICHIER
Set Dc = Nothing: Set Wd = Nothing
End Sub
'-----------------------------
"Jac" a écrit dans le message de news:
%
C'est même pas ça : en faisant tourner la macro pas à pas, je perds le
focus
sur le fichier Word, donc quand il s'agit d'enregistrer, Excel ne sait
plus
où il en est !!!
Donc même si le code est bon, ça peut ne pas fonctionner. C'est tout de
même
un comble... que de chercher l'erreur dans une syntaxe qui est
rigoureusement juste !!!
Et de plus, qui fonctionne dans certains cas (C:...).
"Jac" a écrit dans le message de news:Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" a écrit dans le message de news:
%Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de
news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path &
"Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Essaie ceci : Il n'y a aucune raison que cela ne fonctionne pas.
Ce type de code fait référence à une liaison tardive (au moment
de l'exécution) avec l'application Word. Conséquemment, ne
déclare pas la référence Word dans la fenêtre Références de
l'éditeur de code... cette procédure pourra s'exécuter peu importe
la version d'excel installée sur l'ordinateur.
'-----------------------------
Sub test()
Dim Wd As Object, Dc As Object
Dim Chemin As String, Fichier As String
'Ton classeur se doit d'avoir été enregistré au moins une fois.
Chemin = ThisWorkbook.Path & ""
Fichier = "Origine.dot"
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(Chemin & Fichier)
NOUVEAU_FICHIER = Chemin & "test.doc"
Dc.SaveAs NOUVEAU_FICHIER
Set Dc = Nothing: Set Wd = Nothing
End Sub
'-----------------------------
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
%23sTpshowHHA.5008@TK2MSFTNGP05.phx.gbl...
C'est même pas ça : en faisant tourner la macro pas à pas, je perds le
focus
sur le fichier Word, donc quand il s'agit d'enregistrer, Excel ne sait
plus
où il en est !!!
Donc même si le code est bon, ça peut ne pas fonctionner. C'est tout de
même
un comble... que de chercher l'erreur dans une syntaxe qui est
rigoureusement juste !!!
Et de plus, qui fonctionne dans certains cas (C:...).
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
uwgNMIkwHHA.600@TK2MSFTNGP05.phx.gbl...
Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
%23PXyAwjwHHA.4736@TK2MSFTNGP04.phx.gbl...
Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2BB18F2F-7F89-4CB8-8252-2FA70F6B12BD@microsoft.com...
Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultat
J'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" <jsanssp@mfra.net> a écrit dans le message de news:
OhkUYciwHHA.3364@TK2MSFTNGP02.phx.gbl...
Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:
60ADE963-325D-4784-A6DA-D7C3BF36711B@microsoft.com...
Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenter
Bonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path &
"Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac
Essaie ceci : Il n'y a aucune raison que cela ne fonctionne pas.
Ce type de code fait référence à une liaison tardive (au moment
de l'exécution) avec l'application Word. Conséquemment, ne
déclare pas la référence Word dans la fenêtre Références de
l'éditeur de code... cette procédure pourra s'exécuter peu importe
la version d'excel installée sur l'ordinateur.
'-----------------------------
Sub test()
Dim Wd As Object, Dc As Object
Dim Chemin As String, Fichier As String
'Ton classeur se doit d'avoir été enregistré au moins une fois.
Chemin = ThisWorkbook.Path & ""
Fichier = "Origine.dot"
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(Chemin & Fichier)
NOUVEAU_FICHIER = Chemin & "test.doc"
Dc.SaveAs NOUVEAU_FICHIER
Set Dc = Nothing: Set Wd = Nothing
End Sub
'-----------------------------
"Jac" a écrit dans le message de news:
%
C'est même pas ça : en faisant tourner la macro pas à pas, je perds le
focus
sur le fichier Word, donc quand il s'agit d'enregistrer, Excel ne sait
plus
où il en est !!!
Donc même si le code est bon, ça peut ne pas fonctionner. C'est tout de
même
un comble... que de chercher l'erreur dans une syntaxe qui est
rigoureusement juste !!!
Et de plus, qui fonctionne dans certains cas (C:...).
"Jac" a écrit dans le message de news:Ça y est ! Je n'ai pas encore la solution, mais le problème est lié au
chemin d'accès à mon modèle car quand j'ouvre un modèle situé à la racine
du C, ça se passe sans grincements de dents.
Merci encore pour ta contribution.
Jac
"Jac" a écrit dans le message de news:
%Eh oui, la macro seule dans un nouveau fichier fonctionne et quand je
rappatrie les feuilles et les macros, ça marche encore. Je ne comprends
plus très bien ce disfonctionnement...
Je vais revoir le calcul des chemins d'accès... qui est un peu plus
complexe que dans le modèle...
"FFO" a écrit dans le message de news:Rebonjours à toi
Il faut cerner l'origine de l'anomalie
Si je comprends bien ta macro seule dans un nouveau document fonctionne
Tu me confirmes ???
Dans cet hypothèse je partirai de cette base et reprendrai une par une
dans
ce nouveau classeur les différentes composantes de celui d'origine en
testant
entre chacune d'elles l'état de fonctionnement la macro
Celà devrait cerner normalement le coupable
Réalises l'opération et donnes nous le résultatJ'ai repris toutes mes feuilles et toutes mes macros dans un nouveau
classeur, j'ai réactivé Microsoft Word 10.0 Object library et je
retombe sur
le même message "Variable... non définie".
Pourquoi il s'acharne comme celà ???
"Jac" a écrit dans le message de news:Merci FFO,
c'est vrai que dans un nouveau fichier Excel, ça fonctionne
parfaitement.
Que dois-je faire dans mon classeur de travail pour qu'il en soit de
même
? (10 feuilles, 40 macros, ...)
"FFO" a écrit dans le message de
news:Bonjours Jac
Ton code chez moi fonctionne bien
Je me hasarde une idée
Essaies ton code dans un document Excel vierge peut être sera t'il
plus
coopératif et d'incrimer l'intégriter de celui existant
Toujours à tenterBonjour à tous,
depuis le vba d'XL, j'ouvre un modèle Word et je l'enregistre.
----------------------------------
....
Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add(ActiveWorkbook.Path &
"Origine.dot")
NOUVEAU_FICHIER = ActiveWorkbook.Path & "test.doc"
Dc.SaveAs Filename:=NOUVEAU_FICHIER,
FileFormat:=wdFormatDocument
Set Dc = Nothing: Set Wd = Nothing
....
-----------------------------------
Ça a fonctionné, mais maintenant, quand c'est le moment
d'enregistrer,
j'ai
droit à un laconique "Variable objet ou variable de bloc With non
définie".
Microsoft Word 10.0 Object library est bien activé dans les
références
Vba.
Que dois-je faire pour que ça refonctionne ?
Merci d'avance.
Jac