Si je ne trouve pas j'envisage de réinstaller Word ou bien de le réparer.
Si je ne trouve pas j'envisage de réinstaller Word ou bien de le réparer.
Si je ne trouve pas j'envisage de réinstaller Word ou bien de le réparer.
Bonjour,
Tu n'as pas publié ta macro Word, difficile de voir le problème
pour ceux et celles qui connaissent le VBA de Word.
Lorsque tu fais référence à : "Application.Add", ceci s'applique
pour "visual studio.net" qui sans aucun doute très différent de VBA Word.
Est-ce que tu es sur le meilleur groupe de discussion pour trouver une
explication à ton problème ?
Bonjour,
Tu n'as pas publié ta macro Word, difficile de voir le problème
pour ceux et celles qui connaissent le VBA de Word.
Lorsque tu fais référence à : "Application.Add", ceci s'applique
pour "visual studio.net" qui sans aucun doute très différent de VBA Word.
Est-ce que tu es sur le meilleur groupe de discussion pour trouver une
explication à ton problème ?
Bonjour,
Tu n'as pas publié ta macro Word, difficile de voir le problème
pour ceux et celles qui connaissent le VBA de Word.
Lorsque tu fais référence à : "Application.Add", ceci s'applique
pour "visual studio.net" qui sans aucun doute très différent de VBA Word.
Est-ce que tu es sur le meilleur groupe de discussion pour trouver une
explication à ton problème ?
Bonjour PatriceSi je ne trouve pas j'envisage de réinstaller Word ou bien de le réparer.
Vous pouvez tenter de le réparer, ça ne dure pas bien longtemps et vous ne
perdrez rien contrairement à une réinstallation.
--
A+
Bonjour Patrice
Si je ne trouve pas j'envisage de réinstaller Word ou bien de le réparer.
Vous pouvez tenter de le réparer, ça ne dure pas bien longtemps et vous ne
perdrez rien contrairement à une réinstallation.
--
A+
Bonjour PatriceSi je ne trouve pas j'envisage de réinstaller Word ou bien de le réparer.
Vous pouvez tenter de le réparer, ça ne dure pas bien longtemps et vous ne
perdrez rien contrairement à une réinstallation.
--
A+
Bonjour
Pas évident votre problème.
La base de connaissance fait référence à un document maître, ce qui ne
parait pas être votre cas.
Essayez déjà d' "assainir" votre Word :
Renommez votre Normal.dot, puis relancez Word pour en générer un autre et
récupérez vos macros.
Vous pourriez aussi réinitialiser la clef en base de registre, c'est un
peu plus contraignant car il faut reparamétrer certaines choses.
Pour votre code, essayez en allégeant un peu, mais on y va à tâtons.
Perso je tenterais ainsi, mais c'est plus par habitude, car je ne vois pas
a priori de grande différence.
On error goto Erreur
Documents.Open FileName:="C:TmpMonFichierDe100Ko.txt",
ConfirmConversions:= False, ReadOnly:úlse, AddToRecentFiles:úlse
MsgBox "Succès !"
Go Suite
Erreur:
MsgBox "Erreur n°" & Err.Number & " : " & Err.Description
Resume Suite
Suite:
Pas testé.
--
A+
Bonjour
Pas évident votre problème.
La base de connaissance fait référence à un document maître, ce qui ne
parait pas être votre cas.
Essayez déjà d' "assainir" votre Word :
Renommez votre Normal.dot, puis relancez Word pour en générer un autre et
récupérez vos macros.
Vous pourriez aussi réinitialiser la clef en base de registre, c'est un
peu plus contraignant car il faut reparamétrer certaines choses.
Pour votre code, essayez en allégeant un peu, mais on y va à tâtons.
Perso je tenterais ainsi, mais c'est plus par habitude, car je ne vois pas
a priori de grande différence.
On error goto Erreur
Documents.Open FileName:="C:TmpMonFichierDe100Ko.txt",
ConfirmConversions:= False, ReadOnly:úlse, AddToRecentFiles:úlse
MsgBox "Succès !"
Go Suite
Erreur:
MsgBox "Erreur n°" & Err.Number & " : " & Err.Description
Resume Suite
Suite:
Pas testé.
--
A+
Bonjour
Pas évident votre problème.
La base de connaissance fait référence à un document maître, ce qui ne
parait pas être votre cas.
Essayez déjà d' "assainir" votre Word :
Renommez votre Normal.dot, puis relancez Word pour en générer un autre et
récupérez vos macros.
Vous pourriez aussi réinitialiser la clef en base de registre, c'est un
peu plus contraignant car il faut reparamétrer certaines choses.
Pour votre code, essayez en allégeant un peu, mais on y va à tâtons.
Perso je tenterais ainsi, mais c'est plus par habitude, car je ne vois pas
a priori de grande différence.
On error goto Erreur
Documents.Open FileName:="C:TmpMonFichierDe100Ko.txt",
ConfirmConversions:= False, ReadOnly:úlse, AddToRecentFiles:úlse
MsgBox "Succès !"
Go Suite
Erreur:
MsgBox "Erreur n°" & Err.Number & " : " & Err.Description
Resume Suite
Suite:
Pas testé.
--
A+
Bonjour,
Tu n'as pas publié ta macro Word, difficile de voir le problème
pour ceux et celles qui connaissent le VBA de Word.
Lorsque tu fais référence à : "Application.Add", ceci s'applique
pour "visual studio.net" qui sans aucun doute très différent de VBA Word.
Est-ce que tu es sur le meilleur groupe de discussion pour trouver une
explication à ton problème ?
Bonjour,
Tu n'as pas publié ta macro Word, difficile de voir le problème
pour ceux et celles qui connaissent le VBA de Word.
Lorsque tu fais référence à : "Application.Add", ceci s'applique
pour "visual studio.net" qui sans aucun doute très différent de VBA Word.
Est-ce que tu es sur le meilleur groupe de discussion pour trouver une
explication à ton problème ?
Bonjour,
Tu n'as pas publié ta macro Word, difficile de voir le problème
pour ceux et celles qui connaissent le VBA de Word.
Lorsque tu fais référence à : "Application.Add", ceci s'applique
pour "visual studio.net" qui sans aucun doute très différent de VBA Word.
Est-ce que tu es sur le meilleur groupe de discussion pour trouver une
explication à ton problème ?
Bonjour,
Essaie quelque chose comme :
'----------------------------------
Sub test()
Dim Chemin As String
Dim Fichier As String
Chemin = "c:Temp"
Fichier = "MonFichierDe100Ko.txt"
If Dir(Chemin, vbDirectory) <> "" Then
If Dir(Chemin & Fichier) <> "" Then
Documents.Open Chemin & Fichier
Else
MsgBox " Ce Fichier """ & Fichier & """ est introuvable dans ce
répertoire."
Exit Sub
End If
Else
MsgBox "Ce répertoire est inexistant. Opération annulée."
Exit Sub
End If
End Sub
'----------------------------------
Bonjour,
Essaie quelque chose comme :
'----------------------------------
Sub test()
Dim Chemin As String
Dim Fichier As String
Chemin = "c:Temp"
Fichier = "MonFichierDe100Ko.txt"
If Dir(Chemin, vbDirectory) <> "" Then
If Dir(Chemin & Fichier) <> "" Then
Documents.Open Chemin & Fichier
Else
MsgBox " Ce Fichier """ & Fichier & """ est introuvable dans ce
répertoire."
Exit Sub
End If
Else
MsgBox "Ce répertoire est inexistant. Opération annulée."
Exit Sub
End If
End Sub
'----------------------------------
Bonjour,
Essaie quelque chose comme :
'----------------------------------
Sub test()
Dim Chemin As String
Dim Fichier As String
Chemin = "c:Temp"
Fichier = "MonFichierDe100Ko.txt"
If Dir(Chemin, vbDirectory) <> "" Then
If Dir(Chemin & Fichier) <> "" Then
Documents.Open Chemin & Fichier
Else
MsgBox " Ce Fichier """ & Fichier & """ est introuvable dans ce
répertoire."
Exit Sub
End If
Else
MsgBox "Ce répertoire est inexistant. Opération annulée."
Exit Sub
End If
End Sub
'----------------------------------
Bonjour,
Essaie quelque chose comme :
'----------------------------------
Sub test()
Dim Chemin As String
Dim Fichier As String
Chemin = "c:Temp"
Fichier = "MonFichierDe100Ko.txt"
If Dir(Chemin, vbDirectory) <> "" Then
If Dir(Chemin & Fichier) <> "" Then
Documents.Open Chemin & Fichier
Else
MsgBox " Ce Fichier """ & Fichier & """ est introuvable dans ce
répertoire."
Exit Sub
End If
Else
MsgBox "Ce répertoire est inexistant. Opération annulée."
Exit Sub
End If
End Sub
'----------------------------------
Bonjour,
Essaie quelque chose comme :
'----------------------------------
Sub test()
Dim Chemin As String
Dim Fichier As String
Chemin = "c:Temp"
Fichier = "MonFichierDe100Ko.txt"
If Dir(Chemin, vbDirectory) <> "" Then
If Dir(Chemin & Fichier) <> "" Then
Documents.Open Chemin & Fichier
Else
MsgBox " Ce Fichier """ & Fichier & """ est introuvable dans ce
répertoire."
Exit Sub
End If
Else
MsgBox "Ce répertoire est inexistant. Opération annulée."
Exit Sub
End If
End Sub
'----------------------------------
Bonjour,
Essaie quelque chose comme :
'----------------------------------
Sub test()
Dim Chemin As String
Dim Fichier As String
Chemin = "c:Temp"
Fichier = "MonFichierDe100Ko.txt"
If Dir(Chemin, vbDirectory) <> "" Then
If Dir(Chemin & Fichier) <> "" Then
Documents.Open Chemin & Fichier
Else
MsgBox " Ce Fichier """ & Fichier & """ est introuvable dans ce
répertoire."
Exit Sub
End If
Else
MsgBox "Ce répertoire est inexistant. Opération annulée."
Exit Sub
End If
End Sub
'----------------------------------
Bonjour, j'ai une macro Word XP SP3 (bien patché) qui ne fonctionne plus
depuis quelques mois : l'ouverture d'un fichier texte de 100 Ko environ
(la
macro continue à fonctionner pour des tout petits documents). Si je fait
la
manipulation sous Word, pas de problème, mais si j'enregistre la macro
correspondante, il ne se passe rien, la macro ne fonctionne pas. Si je
programme la macro en DotNet, j'obtient l'erreur suivante : Mémoire
insuffisante : -2146823191 (insufficient memory)
Instruction :
oWrd.Documents.Open(sCheminTxt, Encoding:52, ReadOnly:=True)
Quelqu'un a obtenu la même erreur avec l'instruction : Application.Add
avec
Word 2003.
www.hightechtalks.com/visual-studio-net-general/problems-word-application-add-add-408354.html
Et une autre personne a aussi obtenu la même erreur :
www.codeproject.com/Messages/1873805/i-m-facing-Com-error.aspx
Mais il semble que ces 2 exemples soient les seuls concernant cette
erreur.
L'exception System.Runtime.InteropServices.COMException s'est produite
ErrorCode=-2146823191
HelpLink="D:Program FilesMicrosoft
OfficeOffice101036wdmain10.chm#24577"
Message="Mémoire insuffisante. Enregistrez votre document immédiatement."
Source="Microsoft Word"
StackTrace:
à
Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object
o, Type objType, String name, Object[] args, String[] paramnames,
Boolean[]
CopyBack, Boolean IgnoreReturn) à
Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCall(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean
IgnoreReturn)
J'ai essayé le lien suivant, mais cela ne marche pas, on ne peut
rechercher
la rubrique 24577 dans le chm, et l'option recherche n'est pas affichée :
HelpLink="D:Program FilesMicrosoft
OfficeOffice101036wdmain10.chm#24577"
Si je ne trouve pas j'envisage de réinstaller Word ou bien de le réparer.
Merci pour toute aide.
-------------------------------------------------------
Patrice Dargenton
http://patrice.dargenton.free.fr/index.html
-------------------------------------------------------
Bonjour, j'ai une macro Word XP SP3 (bien patché) qui ne fonctionne plus
depuis quelques mois : l'ouverture d'un fichier texte de 100 Ko environ
(la
macro continue à fonctionner pour des tout petits documents). Si je fait
la
manipulation sous Word, pas de problème, mais si j'enregistre la macro
correspondante, il ne se passe rien, la macro ne fonctionne pas. Si je
programme la macro en DotNet, j'obtient l'erreur suivante : Mémoire
insuffisante : -2146823191 (insufficient memory)
Instruction :
oWrd.Documents.Open(sCheminTxt, Encoding:52, ReadOnly:=True)
Quelqu'un a obtenu la même erreur avec l'instruction : Application.Add
avec
Word 2003.
www.hightechtalks.com/visual-studio-net-general/problems-word-application-add-add-408354.html
Et une autre personne a aussi obtenu la même erreur :
www.codeproject.com/Messages/1873805/i-m-facing-Com-error.aspx
Mais il semble que ces 2 exemples soient les seuls concernant cette
erreur.
L'exception System.Runtime.InteropServices.COMException s'est produite
ErrorCode=-2146823191
HelpLink="D:Program FilesMicrosoft
OfficeOffice101036wdmain10.chm#24577"
Message="Mémoire insuffisante. Enregistrez votre document immédiatement."
Source="Microsoft Word"
StackTrace:
à
Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object
o, Type objType, String name, Object[] args, String[] paramnames,
Boolean[]
CopyBack, Boolean IgnoreReturn) à
Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCall(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean
IgnoreReturn)
J'ai essayé le lien suivant, mais cela ne marche pas, on ne peut
rechercher
la rubrique 24577 dans le chm, et l'option recherche n'est pas affichée :
HelpLink="D:Program FilesMicrosoft
OfficeOffice101036wdmain10.chm#24577"
Si je ne trouve pas j'envisage de réinstaller Word ou bien de le réparer.
Merci pour toute aide.
-------------------------------------------------------
Patrice Dargenton
patrice.dargenton@free.fr
http://patrice.dargenton.free.fr/index.html
-------------------------------------------------------
Bonjour, j'ai une macro Word XP SP3 (bien patché) qui ne fonctionne plus
depuis quelques mois : l'ouverture d'un fichier texte de 100 Ko environ
(la
macro continue à fonctionner pour des tout petits documents). Si je fait
la
manipulation sous Word, pas de problème, mais si j'enregistre la macro
correspondante, il ne se passe rien, la macro ne fonctionne pas. Si je
programme la macro en DotNet, j'obtient l'erreur suivante : Mémoire
insuffisante : -2146823191 (insufficient memory)
Instruction :
oWrd.Documents.Open(sCheminTxt, Encoding:52, ReadOnly:=True)
Quelqu'un a obtenu la même erreur avec l'instruction : Application.Add
avec
Word 2003.
www.hightechtalks.com/visual-studio-net-general/problems-word-application-add-add-408354.html
Et une autre personne a aussi obtenu la même erreur :
www.codeproject.com/Messages/1873805/i-m-facing-Com-error.aspx
Mais il semble que ces 2 exemples soient les seuls concernant cette
erreur.
L'exception System.Runtime.InteropServices.COMException s'est produite
ErrorCode=-2146823191
HelpLink="D:Program FilesMicrosoft
OfficeOffice101036wdmain10.chm#24577"
Message="Mémoire insuffisante. Enregistrez votre document immédiatement."
Source="Microsoft Word"
StackTrace:
à
Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object
o, Type objType, String name, Object[] args, String[] paramnames,
Boolean[]
CopyBack, Boolean IgnoreReturn) à
Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCall(Object
Instance, Type Type, String MemberName, Object[] Arguments, String[]
ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean
IgnoreReturn)
J'ai essayé le lien suivant, mais cela ne marche pas, on ne peut
rechercher
la rubrique 24577 dans le chm, et l'option recherche n'est pas affichée :
HelpLink="D:Program FilesMicrosoft
OfficeOffice101036wdmain10.chm#24577"
Si je ne trouve pas j'envisage de réinstaller Word ou bien de le réparer.
Merci pour toute aide.
-------------------------------------------------------
Patrice Dargenton
http://patrice.dargenton.free.fr/index.html
-------------------------------------------------------