J'ai développé un système multi-application d'ont une communique avec MS
Excel via des objets. Je les utilises pour insérer des données dans mon
fichier, j'y appel 2 macros (Sub public dans ma feuille 1), je l'enregistre
puis le l'ouvre pour permettre à l'usager de saisir ses données. Au moment
de la sauvegarde, certain poste déclanche une "Erreur Automation". Je vous
donne un extrait de mon code qui inter-agit entre vb et excel. Fait
éronnant, l'erreur ne se produit que suir certain poste. Pourriez-vous me
renseigner sur ce type d'erreur?
Une aide serait grandement appréciée
Merci
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Crée une nouvelle feuille de temps selon le modèle maître, l'enregistre
' dans l'emplacement choisi par l'utilisateur et l'ouvre
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub createTS(ByRef obj As Excel.Application, strPath As String,
strLogo As String, _
intModele As Integer)
Dim ws As Excel.Worksheet
Dim intJourSemaine As Integer
On Error GoTo Erreurs
'On crée une copie du fichier maître pour l'entrer d'une nouvelle
'feuille de temps
FileCopy strPath, strPathSave
obj.Workbooks.Open strPathSave
'On désactive les events pour l'insertion des données
obj.EnableEvents = False
'Inscription des paramètres de l'en-tête de la feuille de temps
With obj.ActiveSheet
.Unprotect "ti2004"
.Cells(2, 1) = typEmp.strCie
.Cells(2, 2) = typEmp.strNoEmp
.Cells(2, 11) = CDate(cboEndWeek.List(cboEndWeek.ListIndex))
.Cells(4, 1) = UCase(typEmp.strName)
.Cells(4, 6) = UCase(typEmp.strFirstName)
.Cells(12, 5).Select
'Chargement du logo
.setImage (strLogo)
.setTaches (intModele)
'.setVersion (VERSION)
'MsgBox "14", vbOKOnly
.Protect "ti2004"
End With
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
isabelle
Pourriez-vous me renseigner sur ce type d'erreur?
bonjour Marc,
Erreur Automation (erreur 440)
Lorsque vous accédez à des objets Automation, des types d'erreur spécifiques peuvent se produire. Cause et solution de cette erreur :
Une erreur s'est produite lors de l'exécution d'une méthode ou de l'obtention ou de la définition d'une propriété d'une variable objet. L'erreur a été signalée par l'application qui a créé l'objet. Vérifiez les propriétés de l'objet Err pour identifier la source et la nature de l'erreur. Tentez également d'utiliser l'instruction On Error Resume Next immédiatement avant d'accéder à l'instruction, puis vérifiez l'absence d'erreurs immédiatement après l'accès à l'instruction.
Pour plus d'informations, sélectionnez l'élément en question et appuyez sur F1 (sous Windows) ou AIDE (sur Macintosh).
isabelle
Bonjour,
J'ai développé un système multi-application d'ont une communique avec MS Excel via des objets. Je les utilises pour insérer des données dans mon fichier, j'y appel 2 macros (Sub public dans ma feuille 1), je l'enregistre puis le l'ouvre pour permettre à l'usager de saisir ses données. Au moment de la sauvegarde, certain poste déclanche une "Erreur Automation". Je vous donne un extrait de mon code qui inter-agit entre vb et excel. Fait éronnant, l'erreur ne se produit que suir certain poste. Pourriez-vous me renseigner sur ce type d'erreur?
Une aide serait grandement appréciée
Merci
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Crée une nouvelle feuille de temps selon le modèle maître, l'enregistre ' dans l'emplacement choisi par l'utilisateur et l'ouvre '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub createTS(ByRef obj As Excel.Application, strPath As String, strLogo As String, _ intModele As Integer) Dim ws As Excel.Worksheet Dim intJourSemaine As Integer
On Error GoTo Erreurs
'On crée une copie du fichier maître pour l'entrer d'une nouvelle 'feuille de temps FileCopy strPath, strPathSave obj.Workbooks.Open strPathSave
'On désactive les events pour l'insertion des données obj.EnableEvents = False
'Inscription des paramètres de l'en-tête de la feuille de temps With obj.ActiveSheet .Unprotect "ti2004" .Cells(2, 1) = typEmp.strCie .Cells(2, 2) = typEmp.strNoEmp .Cells(2, 11) = CDate(cboEndWeek.List(cboEndWeek.ListIndex)) .Cells(4, 1) = UCase(typEmp.strName) .Cells(4, 6) = UCase(typEmp.strFirstName) .Cells(12, 5).Select
'Chargement du logo .setImage (strLogo) .setTaches (intModele) '.setVersion (VERSION) 'MsgBox "14", vbOKOnly .Protect "ti2004" End With
Erreurs: MsgBox Err.Description & " " & Err.Source, vbInformation, "VB" obj.Quit End Sub
Pourriez-vous me renseigner sur ce type d'erreur?
bonjour Marc,
Erreur Automation (erreur 440)
Lorsque vous accédez à des objets Automation, des types d'erreur
spécifiques peuvent se produire. Cause et solution de cette erreur :
Une erreur s'est produite lors de l'exécution d'une méthode ou de
l'obtention ou de la définition d'une propriété d'une variable objet.
L'erreur a été signalée par l'application qui a créé l'objet.
Vérifiez les propriétés de l'objet Err pour identifier la source et la
nature de l'erreur. Tentez également d'utiliser l'instruction On Error
Resume Next immédiatement avant d'accéder à l'instruction, puis vérifiez
l'absence d'erreurs immédiatement après l'accès à l'instruction.
Pour plus d'informations, sélectionnez l'élément en question et appuyez
sur F1 (sous Windows) ou AIDE (sur Macintosh).
isabelle
Bonjour,
J'ai développé un système multi-application d'ont une communique avec MS
Excel via des objets. Je les utilises pour insérer des données dans mon
fichier, j'y appel 2 macros (Sub public dans ma feuille 1), je l'enregistre
puis le l'ouvre pour permettre à l'usager de saisir ses données. Au moment
de la sauvegarde, certain poste déclanche une "Erreur Automation". Je vous
donne un extrait de mon code qui inter-agit entre vb et excel. Fait
éronnant, l'erreur ne se produit que suir certain poste. Pourriez-vous me
renseigner sur ce type d'erreur?
Une aide serait grandement appréciée
Merci
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Crée une nouvelle feuille de temps selon le modèle maître, l'enregistre
' dans l'emplacement choisi par l'utilisateur et l'ouvre
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub createTS(ByRef obj As Excel.Application, strPath As String,
strLogo As String, _
intModele As Integer)
Dim ws As Excel.Worksheet
Dim intJourSemaine As Integer
On Error GoTo Erreurs
'On crée une copie du fichier maître pour l'entrer d'une nouvelle
'feuille de temps
FileCopy strPath, strPathSave
obj.Workbooks.Open strPathSave
'On désactive les events pour l'insertion des données
obj.EnableEvents = False
'Inscription des paramètres de l'en-tête de la feuille de temps
With obj.ActiveSheet
.Unprotect "ti2004"
.Cells(2, 1) = typEmp.strCie
.Cells(2, 2) = typEmp.strNoEmp
.Cells(2, 11) = CDate(cboEndWeek.List(cboEndWeek.ListIndex))
.Cells(4, 1) = UCase(typEmp.strName)
.Cells(4, 6) = UCase(typEmp.strFirstName)
.Cells(12, 5).Select
'Chargement du logo
.setImage (strLogo)
.setTaches (intModele)
'.setVersion (VERSION)
'MsgBox "14", vbOKOnly
.Protect "ti2004"
End With
Lorsque vous accédez à des objets Automation, des types d'erreur spécifiques peuvent se produire. Cause et solution de cette erreur :
Une erreur s'est produite lors de l'exécution d'une méthode ou de l'obtention ou de la définition d'une propriété d'une variable objet. L'erreur a été signalée par l'application qui a créé l'objet. Vérifiez les propriétés de l'objet Err pour identifier la source et la nature de l'erreur. Tentez également d'utiliser l'instruction On Error Resume Next immédiatement avant d'accéder à l'instruction, puis vérifiez l'absence d'erreurs immédiatement après l'accès à l'instruction.
Pour plus d'informations, sélectionnez l'élément en question et appuyez sur F1 (sous Windows) ou AIDE (sur Macintosh).
isabelle
Bonjour,
J'ai développé un système multi-application d'ont une communique avec MS Excel via des objets. Je les utilises pour insérer des données dans mon fichier, j'y appel 2 macros (Sub public dans ma feuille 1), je l'enregistre puis le l'ouvre pour permettre à l'usager de saisir ses données. Au moment de la sauvegarde, certain poste déclanche une "Erreur Automation". Je vous donne un extrait de mon code qui inter-agit entre vb et excel. Fait éronnant, l'erreur ne se produit que suir certain poste. Pourriez-vous me renseigner sur ce type d'erreur?
Une aide serait grandement appréciée
Merci
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Crée une nouvelle feuille de temps selon le modèle maître, l'enregistre ' dans l'emplacement choisi par l'utilisateur et l'ouvre '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub createTS(ByRef obj As Excel.Application, strPath As String, strLogo As String, _ intModele As Integer) Dim ws As Excel.Worksheet Dim intJourSemaine As Integer
On Error GoTo Erreurs
'On crée une copie du fichier maître pour l'entrer d'une nouvelle 'feuille de temps FileCopy strPath, strPathSave obj.Workbooks.Open strPathSave
'On désactive les events pour l'insertion des données obj.EnableEvents = False
'Inscription des paramètres de l'en-tête de la feuille de temps With obj.ActiveSheet .Unprotect "ti2004" .Cells(2, 1) = typEmp.strCie .Cells(2, 2) = typEmp.strNoEmp .Cells(2, 11) = CDate(cboEndWeek.List(cboEndWeek.ListIndex)) .Cells(4, 1) = UCase(typEmp.strName) .Cells(4, 6) = UCase(typEmp.strFirstName) .Cells(12, 5).Select
'Chargement du logo .setImage (strLogo) .setTaches (intModele) '.setVersion (VERSION) 'MsgBox "14", vbOKOnly .Protect "ti2004" End With
Erreurs: MsgBox Err.Description & " " & Err.Source, vbInformation, "VB" obj.Quit End Sub
MichDenis
Bonjour Marc,
Quant tu fais face à une erreur, si tu désactive la gestion d'erreur, tu vas obtenir directement la ligne de code problématique ! C'est déjà un bon pas de fait.
A tout hasard, je te suggère ceci :
en lieu et place de ceci : FileCopy strPath, strPathSave obj.Workbooks.Open strPathSave
"Marc Tousignant" a écrit dans le message de news:
Bonjour,
J'ai développé un système multi-application d'ont une communique avec MS Excel via des objets. Je les utilises pour insérer des données dans mon fichier, j'y appel 2 macros (Sub public dans ma feuille 1), je l'enregistre puis le l'ouvre pour permettre à l'usager de saisir ses données. Au moment de la sauvegarde, certain poste déclanche une "Erreur Automation". Je vous donne un extrait de mon code qui inter-agit entre vb et excel. Fait éronnant, l'erreur ne se produit que suir certain poste. Pourriez-vous me renseigner sur ce type d'erreur?
Une aide serait grandement appréciée
Merci
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Crée une nouvelle feuille de temps selon le modèle maître, l'enregistre ' dans l'emplacement choisi par l'utilisateur et l'ouvre '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub createTS(ByRef obj As Excel.Application, strPath As String, strLogo As String, _ intModele As Integer) Dim ws As Excel.Worksheet Dim intJourSemaine As Integer
On Error GoTo Erreurs
'On crée une copie du fichier maître pour l'entrer d'une nouvelle 'feuille de temps FileCopy strPath, strPathSave obj.Workbooks.Open strPathSave
'On désactive les events pour l'insertion des données obj.EnableEvents = False
'Inscription des paramètres de l'en-tête de la feuille de temps With obj.ActiveSheet .Unprotect "ti2004" .Cells(2, 1) = typEmp.strCie .Cells(2, 2) = typEmp.strNoEmp .Cells(2, 11) = CDate(cboEndWeek.List(cboEndWeek.ListIndex)) .Cells(4, 1) = UCase(typEmp.strName) .Cells(4, 6) = UCase(typEmp.strFirstName) .Cells(12, 5).Select
'Chargement du logo .setImage (strLogo) .setTaches (intModele) '.setVersion (VERSION) 'MsgBox "14", vbOKOnly .Protect "ti2004" End With
Erreurs: MsgBox Err.Description & " " & Err.Source, vbInformation, "VB" obj.Quit End Sub
Bonjour Marc,
Quant tu fais face à une erreur, si tu désactive la gestion d'erreur, tu vas obtenir directement la ligne de code
problématique ! C'est déjà un bon pas de fait.
A tout hasard, je te suggère ceci :
en lieu et place de ceci :
FileCopy strPath, strPathSave
obj.Workbooks.Open strPathSave
"Marc Tousignant" <marc_tousignant@hotmail.com> a écrit dans le message de news:
eKlwKQEGFHA.4004@tk2msftngp13.phx.gbl...
Bonjour,
J'ai développé un système multi-application d'ont une communique avec MS
Excel via des objets. Je les utilises pour insérer des données dans mon
fichier, j'y appel 2 macros (Sub public dans ma feuille 1), je l'enregistre
puis le l'ouvre pour permettre à l'usager de saisir ses données. Au moment
de la sauvegarde, certain poste déclanche une "Erreur Automation". Je vous
donne un extrait de mon code qui inter-agit entre vb et excel. Fait
éronnant, l'erreur ne se produit que suir certain poste. Pourriez-vous me
renseigner sur ce type d'erreur?
Une aide serait grandement appréciée
Merci
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Crée une nouvelle feuille de temps selon le modèle maître, l'enregistre
' dans l'emplacement choisi par l'utilisateur et l'ouvre
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub createTS(ByRef obj As Excel.Application, strPath As String,
strLogo As String, _
intModele As Integer)
Dim ws As Excel.Worksheet
Dim intJourSemaine As Integer
On Error GoTo Erreurs
'On crée une copie du fichier maître pour l'entrer d'une nouvelle
'feuille de temps
FileCopy strPath, strPathSave
obj.Workbooks.Open strPathSave
'On désactive les events pour l'insertion des données
obj.EnableEvents = False
'Inscription des paramètres de l'en-tête de la feuille de temps
With obj.ActiveSheet
.Unprotect "ti2004"
.Cells(2, 1) = typEmp.strCie
.Cells(2, 2) = typEmp.strNoEmp
.Cells(2, 11) = CDate(cboEndWeek.List(cboEndWeek.ListIndex))
.Cells(4, 1) = UCase(typEmp.strName)
.Cells(4, 6) = UCase(typEmp.strFirstName)
.Cells(12, 5).Select
'Chargement du logo
.setImage (strLogo)
.setTaches (intModele)
'.setVersion (VERSION)
'MsgBox "14", vbOKOnly
.Protect "ti2004"
End With
Quant tu fais face à une erreur, si tu désactive la gestion d'erreur, tu vas obtenir directement la ligne de code problématique ! C'est déjà un bon pas de fait.
A tout hasard, je te suggère ceci :
en lieu et place de ceci : FileCopy strPath, strPathSave obj.Workbooks.Open strPathSave
"Marc Tousignant" a écrit dans le message de news:
Bonjour,
J'ai développé un système multi-application d'ont une communique avec MS Excel via des objets. Je les utilises pour insérer des données dans mon fichier, j'y appel 2 macros (Sub public dans ma feuille 1), je l'enregistre puis le l'ouvre pour permettre à l'usager de saisir ses données. Au moment de la sauvegarde, certain poste déclanche une "Erreur Automation". Je vous donne un extrait de mon code qui inter-agit entre vb et excel. Fait éronnant, l'erreur ne se produit que suir certain poste. Pourriez-vous me renseigner sur ce type d'erreur?
Une aide serait grandement appréciée
Merci
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Crée une nouvelle feuille de temps selon le modèle maître, l'enregistre ' dans l'emplacement choisi par l'utilisateur et l'ouvre '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub createTS(ByRef obj As Excel.Application, strPath As String, strLogo As String, _ intModele As Integer) Dim ws As Excel.Worksheet Dim intJourSemaine As Integer
On Error GoTo Erreurs
'On crée une copie du fichier maître pour l'entrer d'une nouvelle 'feuille de temps FileCopy strPath, strPathSave obj.Workbooks.Open strPathSave
'On désactive les events pour l'insertion des données obj.EnableEvents = False
'Inscription des paramètres de l'en-tête de la feuille de temps With obj.ActiveSheet .Unprotect "ti2004" .Cells(2, 1) = typEmp.strCie .Cells(2, 2) = typEmp.strNoEmp .Cells(2, 11) = CDate(cboEndWeek.List(cboEndWeek.ListIndex)) .Cells(4, 1) = UCase(typEmp.strName) .Cells(4, 6) = UCase(typEmp.strFirstName) .Cells(12, 5).Select
'Chargement du logo .setImage (strLogo) .setTaches (intModele) '.setVersion (VERSION) 'MsgBox "14", vbOKOnly .Protect "ti2004" End With
