Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access erreur automation 440

erreur automation 440

2 réponses
Avatar
ALF
je vous laisse ci joint la procedure automation...
je ne comprends pas pourquoi il y a ce message d erreur...
pouvez vous m eclairer a ce sujet??...MERCI
--

Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
On Error GoTo MIS_EN_FORME_Err

Dim XL_APP As Object
Set XL_APP = CreateObject("Excel.Application")
XL_APP.Visible = True
XL_APP.Workbooks.Open ("U:\Fregate\MacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt1")
XL_APP.Workbooks.Open ("U:\Fregate\MacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt2")
XL_APP.activeworkbook.Close
XL_APP.Quit
Set XL_APP = Nothing
MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate
Mensuels avant Import"
With Assistant
.On = True
.Visible = True
.Move xLeft = 1500, yTop = 1200
.MoveWhenInTheWay = True
.TipOfDay = True
.Animation = msoAnimationGoodbye
.On = False
End With
MIS_EN_FORME_Exit:
Exit Sub

MIS_EN_FORME_Err:
MsgBox Error$
Resume MIS_EN_FORME_Exit

End Sub

LA MACRO EXCEL est la suivante:
Sub MacroRE5txt1()
'
' MacroRE5txt1 Macro
' Macro enregistrée le 22/04/2005 par LOID6291
'
Application.DisplayAlerts = False
Imi1:
If Dir() = "U:\Fregate\1.txt" = "" Then GoTo Imi2
ChDir "U:\Fregate"
Workbooks.OpenText Filename:="U:\Fregate\1.txt", Origin:=xlWindows, _
StartRow:=4, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True,
Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2,
2), _
Array(3, 2), Array(4, 2), Array(5, 5), Array(6, 1), Array(7, 1),
Array(8, 2), Array(9, 2), _
Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 1))
Application.Run.Range ("EssOnSheetChange")
Cells.Select
Selection.Replace What:="MONTANT_ACI",
Replacement:="MONTANT_FREGATE", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.LargeScroll ToRight:=1
ActiveWorkbook.SaveAs Filename:="U:\Fregate\1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
Imi2:
If Dir() = "U:\Fregate\2.txt" = "" Then GoTo Imi3
ChDir "U:\Fregate"
Workbooks.OpenText Filename:="U:\Fregate\2.txt", Origin:=xlWindows, _
StartRow:=4, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True,
Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2,
2), _
Array(3, 2), Array(4, 2), Array(5, 5), Array(6, 1), Array(7, 1),
Array(8, 2), Array(9, 2), _
Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 1))
Application.Run.Range ("EssOnSheetChange")
Cells.Select
Selection.Replace What:="MONTANT_ACI",
Replacement:="MONTANT_FREGATE", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.LargeScroll ToRight:=1
ActiveWorkbook.SaveAs Filename:="U:\Fregate\2.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False ....etc....
Imi31:
Application.DisplayAlerts = True

End Sub
ALF
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Raymond [mvp]
Bonjour.

sur quelle ligne access se trouve l'erreur ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ALF" a écrit dans le message de news:

je vous laisse ci joint la procedure automation...
je ne comprends pas pourquoi il y a ce message d erreur...
pouvez vous m eclairer a ce sujet??...MERCI
--

Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
On Error GoTo MIS_EN_FORME_Err

Dim XL_APP As Object
Set XL_APP = CreateObject("Excel.Application")
XL_APP.Visible = True
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt1")
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt2")
XL_APP.activeworkbook.Close
XL_APP.Quit
Set XL_APP = Nothing
MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate
Mensuels avant Import"
With Assistant
.On = True
.Visible = True
.Move xLeft = 1500, yTop = 1200
.MoveWhenInTheWay = True
.TipOfDay = True
.Animation = msoAnimationGoodbye
.On = False
End With
MIS_EN_FORME_Exit:
Exit Sub

MIS_EN_FORME_Err:
MsgBox Error$
Resume MIS_EN_FORME_Exit

End Sub

LA MACRO EXCEL est la suivante:
Sub MacroRE5txt1()
'
' MacroRE5txt1 Macro
' Macro enregistrée le 22/04/2005 par LOID6291
'
Application.DisplayAlerts = False
Imi1:
If Dir() = "U:Fregate1.txt" = "" Then GoTo Imi2
ChDir "U:Fregate"
Workbooks.OpenText Filename:="U:Fregate1.txt", Origin:=xlWindows, _
StartRow:=4, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True,
Comma:úlse _
, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 2),
Array(2,
2), _
Array(3, 2), Array(4, 2), Array(5, 5), Array(6, 1), Array(7, 1),
Array(8, 2), Array(9, 2), _
Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 1))
Application.Run.Range ("EssOnSheetChange")
Cells.Select
Selection.Replace What:="MONTANT_ACI",
Replacement:="MONTANT_FREGATE", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
ActiveWindow.LargeScroll ToRight:=1
ActiveWorkbook.SaveAs Filename:="U:Fregate1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse _
, CreateBackup:úlse
Imi2:
If Dir() = "U:Fregate2.txt" = "" Then GoTo Imi3
ChDir "U:Fregate"
Workbooks.OpenText Filename:="U:Fregate2.txt", Origin:=xlWindows, _
StartRow:=4, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True,
Comma:úlse _
, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 2),
Array(2,
2), _
Array(3, 2), Array(4, 2), Array(5, 5), Array(6, 1), Array(7, 1),
Array(8, 2), Array(9, 2), _
Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 1))
Application.Run.Range ("EssOnSheetChange")
Cells.Select
Selection.Replace What:="MONTANT_ACI",
Replacement:="MONTANT_FREGATE", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
ActiveWindow.LargeScroll ToRight:=1
ActiveWorkbook.SaveAs Filename:="U:Fregate2.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse _
, CreateBackup:úlse ....etc....
Imi31:
Application.DisplayAlerts = True

End Sub
ALF


Avatar
ALF
probleme resolu sur le forum excel.

merci raymond
--
ALF



Bonjour.

sur quelle ligne access se trouve l'erreur ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ALF" a écrit dans le message de news:

je vous laisse ci joint la procedure automation...
je ne comprends pas pourquoi il y a ce message d erreur...
pouvez vous m eclairer a ce sujet??...MERCI
--

Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
On Error GoTo MIS_EN_FORME_Err

Dim XL_APP As Object
Set XL_APP = CreateObject("Excel.Application")
XL_APP.Visible = True
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt1")
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt2")
XL_APP.activeworkbook.Close
XL_APP.Quit
Set XL_APP = Nothing
MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate
Mensuels avant Import"
With Assistant
.On = True
.Visible = True
.Move xLeft = 1500, yTop = 1200
.MoveWhenInTheWay = True
.TipOfDay = True
.Animation = msoAnimationGoodbye
.On = False
End With
MIS_EN_FORME_Exit:
Exit Sub

MIS_EN_FORME_Err:
MsgBox Error$
Resume MIS_EN_FORME_Exit

End Sub

LA MACRO EXCEL est la suivante:
Sub MacroRE5txt1()
'
' MacroRE5txt1 Macro
' Macro enregistrée le 22/04/2005 par LOID6291
'
Application.DisplayAlerts = False
Imi1:
If Dir() = "U:Fregate1.txt" = "" Then GoTo Imi2
ChDir "U:Fregate"
Workbooks.OpenText Filename:="U:Fregate1.txt", Origin:=xlWindows, _
StartRow:=4, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True,
Comma:úlse _
, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 2),
Array(2,
2), _
Array(3, 2), Array(4, 2), Array(5, 5), Array(6, 1), Array(7, 1),
Array(8, 2), Array(9, 2), _
Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 1))
Application.Run.Range ("EssOnSheetChange")
Cells.Select
Selection.Replace What:="MONTANT_ACI",
Replacement:="MONTANT_FREGATE", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
ActiveWindow.LargeScroll ToRight:=1
ActiveWorkbook.SaveAs Filename:="U:Fregate1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse _
, CreateBackup:úlse
Imi2:
If Dir() = "U:Fregate2.txt" = "" Then GoTo Imi3
ChDir "U:Fregate"
Workbooks.OpenText Filename:="U:Fregate2.txt", Origin:=xlWindows, _
StartRow:=4, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True,
Comma:úlse _
, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 2),
Array(2,
2), _
Array(3, 2), Array(4, 2), Array(5, 5), Array(6, 1), Array(7, 1),
Array(8, 2), Array(9, 2), _
Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 1))
Application.Run.Range ("EssOnSheetChange")
Cells.Select
Selection.Replace What:="MONTANT_ACI",
Replacement:="MONTANT_FREGATE", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
ActiveWindow.LargeScroll ToRight:=1
ActiveWorkbook.SaveAs Filename:="U:Fregate2.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse _
, CreateBackup:úlse ....etc....
Imi31:
Application.DisplayAlerts = True

End Sub
ALF