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
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
'obj.ActiveWorkbook.Save
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Saved
= False
obj.EnableEvents = True
obj.Visible = True
dteDateMod = FileDateTime(strPathSave)
Exit Sub
Erreurs:
MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
obj.Quit
End Sub
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
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
'obj.ActiveWorkbook.Save
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Saved
= False
obj.EnableEvents = True
obj.Visible = True
dteDateMod = FileDateTime(strPathSave)
Exit Sub
Erreurs:
MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
obj.Quit
End Sub
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
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
'obj.ActiveWorkbook.Save
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Saved
= False
obj.EnableEvents = True
obj.Visible = True
dteDateMod = FileDateTime(strPathSave)
Exit Sub
Erreurs:
MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
obj.Quit
End Sub
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
puis le l'ouvre pour permettre à l'usager de saisir ses données. Au
de la sauvegarde, certain poste déclanche une "Erreur Automation". Je
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
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
'obj.ActiveWorkbook.Save
= False
obj.EnableEvents = True
obj.Visible = True
dteDateMod = FileDateTime(strPathSave)
Exit Sub
Erreurs:
MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
obj.Quit
End Sub
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
puis le l'ouvre pour permettre à l'usager de saisir ses données. Au
de la sauvegarde, certain poste déclanche une "Erreur Automation". Je
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
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
'obj.ActiveWorkbook.Save
= False
obj.EnableEvents = True
obj.Visible = True
dteDateMod = FileDateTime(strPathSave)
Exit Sub
Erreurs:
MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
obj.Quit
End Sub
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
puis le l'ouvre pour permettre à l'usager de saisir ses données. Au
de la sauvegarde, certain poste déclanche une "Erreur Automation". Je
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
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
'obj.ActiveWorkbook.Save
= False
obj.EnableEvents = True
obj.Visible = True
dteDateMod = FileDateTime(strPathSave)
Exit Sub
Erreurs:
MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
obj.Quit
End Sub
Merci pour vos suggestion, le problème n'est pas le fileCopy, il se
plus loin, après avoir défini les propriétés, au moment du
(ligne
Il n'arrive que sur certain poste. Je vais essayer le resume next
poste en erreur. Je reste ouvert à toute autre suggestion...
Merci
"Marc Tousignant" a écrit dans le
news:
> Bonjour,
>
> J'ai développé un système multi-application d'ont une communique
> Excel via des objets. Je les utilises pour insérer des données
> 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.
moment
> de la sauvegarde, certain poste déclanche une "Erreur
vous
> donne un extrait de mon code qui inter-agit entre vb et excel.
> éronnant, l'erreur ne se produit que suir certain poste.
> 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,
> ' dans l'emplacement choisi par l'utilisateur et l'ouvre
>
> Private Sub createTS(ByRef obj As Excel.Application, strPath As
> 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
> '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
> 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
>
>
> 'obj.ActiveWorkbook.Save
>
> = False
> obj.EnableEvents = True
> obj.Visible = True
> dteDateMod = FileDateTime(strPathSave)
>
> Exit Sub
>
> Erreurs:
> MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
> obj.Quit
> End Sub
>
>
>
Merci pour vos suggestion, le problème n'est pas le fileCopy, il se
plus loin, après avoir défini les propriétés, au moment du
(ligne
Il n'arrive que sur certain poste. Je vais essayer le resume next
poste en erreur. Je reste ouvert à toute autre suggestion...
Merci
"Marc Tousignant" <marc_tousignant@hotmail.com> a écrit dans le
news:eKlwKQEGFHA.4004@tk2msftngp13.phx.gbl...
> Bonjour,
>
> J'ai développé un système multi-application d'ont une communique
> Excel via des objets. Je les utilises pour insérer des données
> 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.
moment
> de la sauvegarde, certain poste déclanche une "Erreur
vous
> donne un extrait de mon code qui inter-agit entre vb et excel.
> éronnant, l'erreur ne se produit que suir certain poste.
> 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,
> ' dans l'emplacement choisi par l'utilisateur et l'ouvre
>
> Private Sub createTS(ByRef obj As Excel.Application, strPath As
> 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
> '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
> 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
>
>
> 'obj.ActiveWorkbook.Save
>
> = False
> obj.EnableEvents = True
> obj.Visible = True
> dteDateMod = FileDateTime(strPathSave)
>
> Exit Sub
>
> Erreurs:
> MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
> obj.Quit
> End Sub
>
>
>
Merci pour vos suggestion, le problème n'est pas le fileCopy, il se
plus loin, après avoir défini les propriétés, au moment du
(ligne
Il n'arrive que sur certain poste. Je vais essayer le resume next
poste en erreur. Je reste ouvert à toute autre suggestion...
Merci
"Marc Tousignant" a écrit dans le
news:
> Bonjour,
>
> J'ai développé un système multi-application d'ont une communique
> Excel via des objets. Je les utilises pour insérer des données
> 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.
moment
> de la sauvegarde, certain poste déclanche une "Erreur
vous
> donne un extrait de mon code qui inter-agit entre vb et excel.
> éronnant, l'erreur ne se produit que suir certain poste.
> 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,
> ' dans l'emplacement choisi par l'utilisateur et l'ouvre
>
> Private Sub createTS(ByRef obj As Excel.Application, strPath As
> 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
> '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
> 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
>
>
> 'obj.ActiveWorkbook.Save
>
> = False
> obj.EnableEvents = True
> obj.Visible = True
> dteDateMod = FileDateTime(strPathSave)
>
> Exit Sub
>
> Erreurs:
> MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
> obj.Quit
> End Sub
>
>
>
Bonjour,
Plus de questions que de réponses, mais on ne sait jamais.
Ton "GetFileName", est-ce une fonction personnalisée ? Il y peut-être
une erreur de passage de paramètres, qui ressort en "fausse erreur
automation".
Si c'est un alias pour une fonction API, est-ce que ta fonction API
est supportée sur les machines où ton programme plante ?
Et si tu adaptes ta procédure pour qu'elle roule dans VBA-Excel au
lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
"Marc Tousignant" a écrit dans le
message de news:
> Merci pour vos suggestion, le problème n'est pas le fileCopy, il se
situe
> plus loin, après avoir défini les propriétés, au moment du
saveWorkBook
> (ligne
>
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
).
> Il n'arrive que sur certain poste. Je vais essayer le resume next
sur un
> poste en erreur. Je reste ouvert à toute autre suggestion...
>
> Merci
>
> "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
> >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > 'obj.ActiveWorkbook.Save
> >
>
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
d
> > = False
> > obj.EnableEvents = True
> > obj.Visible = True
> > dteDateMod = FileDateTime(strPathSave)
> >
> > Exit Sub
> >
> > Erreurs:
> > MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
> > obj.Quit
> > End Sub
> >
> >
> >
>
>
Bonjour,
Plus de questions que de réponses, mais on ne sait jamais.
Ton "GetFileName", est-ce une fonction personnalisée ? Il y peut-être
une erreur de passage de paramètres, qui ressort en "fausse erreur
automation".
Si c'est un alias pour une fonction API, est-ce que ta fonction API
est supportée sur les machines où ton programme plante ?
Et si tu adaptes ta procédure pour qu'elle roule dans VBA-Excel au
lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
"Marc Tousignant" <marc_tousignant@hotmail.com> a écrit dans le
message de news:O3UU7VPGFHA.3596@TK2MSFTNGP12.phx.gbl...
> Merci pour vos suggestion, le problème n'est pas le fileCopy, il se
situe
> plus loin, après avoir défini les propriétés, au moment du
saveWorkBook
> (ligne
>
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
).
> Il n'arrive que sur certain poste. Je vais essayer le resume next
sur un
> poste en erreur. Je reste ouvert à toute autre suggestion...
>
> Merci
>
> "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
> >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > 'obj.ActiveWorkbook.Save
> >
>
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
d
> > = False
> > obj.EnableEvents = True
> > obj.Visible = True
> > dteDateMod = FileDateTime(strPathSave)
> >
> > Exit Sub
> >
> > Erreurs:
> > MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
> > obj.Quit
> > End Sub
> >
> >
> >
>
>
Bonjour,
Plus de questions que de réponses, mais on ne sait jamais.
Ton "GetFileName", est-ce une fonction personnalisée ? Il y peut-être
une erreur de passage de paramètres, qui ressort en "fausse erreur
automation".
Si c'est un alias pour une fonction API, est-ce que ta fonction API
est supportée sur les machines où ton programme plante ?
Et si tu adaptes ta procédure pour qu'elle roule dans VBA-Excel au
lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
"Marc Tousignant" a écrit dans le
message de news:
> Merci pour vos suggestion, le problème n'est pas le fileCopy, il se
situe
> plus loin, après avoir défini les propriétés, au moment du
saveWorkBook
> (ligne
>
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
).
> Il n'arrive que sur certain poste. Je vais essayer le resume next
sur un
> poste en erreur. Je reste ouvert à toute autre suggestion...
>
> Merci
>
> "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
> >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > 'obj.ActiveWorkbook.Save
> >
>
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
d
> > = False
> > obj.EnableEvents = True
> > obj.Visible = True
> > dteDateMod = FileDateTime(strPathSave)
> >
> > Exit Sub
> >
> > Erreurs:
> > MsgBox Err.Description & " " & Err.Source, vbInformation, "VB"
> > obj.Quit
> > End Sub
> >
> >
> >
>
>
La fonction est une de mes fonction VB qui ne fait que formatter une
afin d'avoir un noom de fichier standardisé (FT 123456
l'utilise pour avoir le nom du fichier destination du FileCopy.
"Clément Marcotte" a écrit dans le
de news:
> Bonjour,
>
> Plus de questions que de réponses, mais on ne sait jamais.
>
> Ton "GetFileName", est-ce une fonction personnalisée ? Il y
> une erreur de passage de paramètres, qui ressort en "fausse erreur
> automation".
>
> Si c'est un alias pour une fonction API, est-ce que ta fonction
> est supportée sur les machines où ton programme plante ?
>
> Et si tu adaptes ta procédure pour qu'elle roule dans VBA-Excel au
> lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
>
>
> "Marc Tousignant" a écrit dans le
> message de news:
> > Merci pour vos suggestion, le problème n'est pas le fileCopy, il
> situe
> > plus loin, après avoir défini les propriétés, au moment du
> saveWorkBook
> > (ligne
> >
>
> ).
> > Il n'arrive que sur certain poste. Je vais essayer le resume
> sur un
> > poste en erreur. Je reste ouvert à toute autre suggestion...
> >
> > Merci
> >
> > "Marc Tousignant" a écrit dans le
> message de
> > news:
> > > Bonjour,
> > >
> > > J'ai développé un système multi-application d'ont une
> avec MS
> > > Excel via des objets. Je les utilises pour insérer des
> 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
> 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
> 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
> > >
> > >
>
> > > 'obj.ActiveWorkbook.Save
> > >
> >
>
> d
> > > = False
> > > obj.EnableEvents = True
> > > obj.Visible = True
> > > dteDateMod = FileDateTime(strPathSave)
> > >
> > > Exit Sub
> > >
> > > Erreurs:
> > > MsgBox Err.Description & " " & Err.Source, vbInformation,
> > > obj.Quit
> > > End Sub
> > >
> > >
> > >
> >
> >
>
La fonction est une de mes fonction VB qui ne fait que formatter une
afin d'avoir un noom de fichier standardisé (FT 123456
l'utilise pour avoir le nom du fichier destination du FileCopy.
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
de news:OHNkC3QGFHA.1140@TK2MSFTNGP10.phx.gbl...
> Bonjour,
>
> Plus de questions que de réponses, mais on ne sait jamais.
>
> Ton "GetFileName", est-ce une fonction personnalisée ? Il y
> une erreur de passage de paramètres, qui ressort en "fausse erreur
> automation".
>
> Si c'est un alias pour une fonction API, est-ce que ta fonction
> est supportée sur les machines où ton programme plante ?
>
> Et si tu adaptes ta procédure pour qu'elle roule dans VBA-Excel au
> lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
>
>
> "Marc Tousignant" <marc_tousignant@hotmail.com> a écrit dans le
> message de news:O3UU7VPGFHA.3596@TK2MSFTNGP12.phx.gbl...
> > Merci pour vos suggestion, le problème n'est pas le fileCopy, il
> situe
> > plus loin, après avoir défini les propriétés, au moment du
> saveWorkBook
> > (ligne
> >
>
> ).
> > Il n'arrive que sur certain poste. Je vais essayer le resume
> sur un
> > poste en erreur. Je reste ouvert à toute autre suggestion...
> >
> > Merci
> >
> > "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
> avec MS
> > > Excel via des objets. Je les utilises pour insérer des
> 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
> 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
> 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
> > >
> > >
>
> > > 'obj.ActiveWorkbook.Save
> > >
> >
>
> d
> > > = False
> > > obj.EnableEvents = True
> > > obj.Visible = True
> > > dteDateMod = FileDateTime(strPathSave)
> > >
> > > Exit Sub
> > >
> > > Erreurs:
> > > MsgBox Err.Description & " " & Err.Source, vbInformation,
> > > obj.Quit
> > > End Sub
> > >
> > >
> > >
> >
> >
>
La fonction est une de mes fonction VB qui ne fait que formatter une
afin d'avoir un noom de fichier standardisé (FT 123456
l'utilise pour avoir le nom du fichier destination du FileCopy.
"Clément Marcotte" a écrit dans le
de news:
> Bonjour,
>
> Plus de questions que de réponses, mais on ne sait jamais.
>
> Ton "GetFileName", est-ce une fonction personnalisée ? Il y
> une erreur de passage de paramètres, qui ressort en "fausse erreur
> automation".
>
> Si c'est un alias pour une fonction API, est-ce que ta fonction
> est supportée sur les machines où ton programme plante ?
>
> Et si tu adaptes ta procédure pour qu'elle roule dans VBA-Excel au
> lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
>
>
> "Marc Tousignant" a écrit dans le
> message de news:
> > Merci pour vos suggestion, le problème n'est pas le fileCopy, il
> situe
> > plus loin, après avoir défini les propriétés, au moment du
> saveWorkBook
> > (ligne
> >
>
> ).
> > Il n'arrive que sur certain poste. Je vais essayer le resume
> sur un
> > poste en erreur. Je reste ouvert à toute autre suggestion...
> >
> > Merci
> >
> > "Marc Tousignant" a écrit dans le
> message de
> > news:
> > > Bonjour,
> > >
> > > J'ai développé un système multi-application d'ont une
> avec MS
> > > Excel via des objets. Je les utilises pour insérer des
> 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
> 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
> 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
> > >
> > >
>
> > > 'obj.ActiveWorkbook.Save
> > >
> >
>
> d
> > > = False
> > > obj.EnableEvents = True
> > > obj.Visible = True
> > > dteDateMod = FileDateTime(strPathSave)
> > >
> > > Exit Sub
> > >
> > > Erreurs:
> > > MsgBox Err.Description & " " & Err.Source, vbInformation,
> > > obj.Quit
> > > End Sub
> > >
> > >
> > >
> >
> >
>
Je me demande si c'est vraiment un problème automation, ou si le
message "erreur automation" cache une autre erreur mais que le vrai
message d'erreur est "camouflé" par la liaison OLE.
Bonjour,
D'autres question en l'air:
Sur les machines qui plantent, est-ce que l'utilisateur a les droite
en lecture-écriture-effacement ?
Sur les machines qui plantent, est-ce parce que l'utilisateur essaie
d'écraser un fichier existant du même nom ?
Je me demande si c'est vraiment un problème automation, ou si le
message "erreur automation" cache une autre erreur mais que le vrai
message d'erreur est "camouflé" par la liaison OLE.
"Marc Tousignant" a écrit dans le
message de news:
> La fonction est une de mes fonction VB qui ne fait que formatter une
String
> afin d'avoir un noom de fichier standardisé (FT 123456
2005-02-12.xls). Je
> l'utilise pour avoir le nom du fichier destination du FileCopy.
>
> "Clément Marcotte" a écrit dans le
message
> de news:
> > Bonjour,
> >
> > Plus de questions que de réponses, mais on ne sait jamais.
> >
> > Ton "GetFileName", est-ce une fonction personnalisée ? Il y
peut-être
> > une erreur de passage de paramètres, qui ressort en "fausse erreur
> > automation".
> >
> > Si c'est un alias pour une fonction API, est-ce que ta fonction
API
> > est supportée sur les machines où ton programme plante ?
> >
> > Et si tu adaptes ta procédure pour qu'elle roule dans VBA-Excel au
> > lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
> >
> >
> > "Marc Tousignant" a écrit dans le
> > message de news:
> > > Merci pour vos suggestion, le problème n'est pas le fileCopy, il
se
> > situe
> > > plus loin, après avoir défini les propriétés, au moment du
> > saveWorkBook
> > > (ligne
> > >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > ).
> > > Il n'arrive que sur certain poste. Je vais essayer le resume
next
> > sur un
> > > poste en erreur. Je reste ouvert à toute autre suggestion...
> > >
> > > Merci
> > >
> > > "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
> > > >
> > > >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > > > 'obj.ActiveWorkbook.Save
> > > >
> > >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > d
> > > > = False
> > > > obj.EnableEvents = True
> > > > obj.Visible = True
> > > > dteDateMod = FileDateTime(strPathSave)
> > > >
> > > > Exit Sub
> > > >
> > > > Erreurs:
> > > > MsgBox Err.Description & " " & Err.Source, vbInformation,
"VB"
> > > > obj.Quit
> > > > End Sub
> > > >
> > > >
> > > >
> > >
> > >
> >
>
>
Je me demande si c'est vraiment un problème automation, ou si le
message "erreur automation" cache une autre erreur mais que le vrai
message d'erreur est "camouflé" par la liaison OLE.
Bonjour,
D'autres question en l'air:
Sur les machines qui plantent, est-ce que l'utilisateur a les droite
en lecture-écriture-effacement ?
Sur les machines qui plantent, est-ce parce que l'utilisateur essaie
d'écraser un fichier existant du même nom ?
Je me demande si c'est vraiment un problème automation, ou si le
message "erreur automation" cache une autre erreur mais que le vrai
message d'erreur est "camouflé" par la liaison OLE.
"Marc Tousignant" <marc_tousignant@hotmail.com> a écrit dans le
message de news:ewix6oRGFHA.1140@TK2MSFTNGP10.phx.gbl...
> La fonction est une de mes fonction VB qui ne fait que formatter une
String
> afin d'avoir un noom de fichier standardisé (FT 123456
2005-02-12.xls). Je
> l'utilise pour avoir le nom du fichier destination du FileCopy.
>
> "Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
message
> de news:OHNkC3QGFHA.1140@TK2MSFTNGP10.phx.gbl...
> > Bonjour,
> >
> > Plus de questions que de réponses, mais on ne sait jamais.
> >
> > Ton "GetFileName", est-ce une fonction personnalisée ? Il y
peut-être
> > une erreur de passage de paramètres, qui ressort en "fausse erreur
> > automation".
> >
> > Si c'est un alias pour une fonction API, est-ce que ta fonction
API
> > est supportée sur les machines où ton programme plante ?
> >
> > Et si tu adaptes ta procédure pour qu'elle roule dans VBA-Excel au
> > lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
> >
> >
> > "Marc Tousignant" <marc_tousignant@hotmail.com> a écrit dans le
> > message de news:O3UU7VPGFHA.3596@TK2MSFTNGP12.phx.gbl...
> > > Merci pour vos suggestion, le problème n'est pas le fileCopy, il
se
> > situe
> > > plus loin, après avoir défini les propriétés, au moment du
> > saveWorkBook
> > > (ligne
> > >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > ).
> > > Il n'arrive que sur certain poste. Je vais essayer le resume
next
> > sur un
> > > poste en erreur. Je reste ouvert à toute autre suggestion...
> > >
> > > Merci
> > >
> > > "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
> > > >
> > > >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > > > 'obj.ActiveWorkbook.Save
> > > >
> > >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > d
> > > > = False
> > > > obj.EnableEvents = True
> > > > obj.Visible = True
> > > > dteDateMod = FileDateTime(strPathSave)
> > > >
> > > > Exit Sub
> > > >
> > > > Erreurs:
> > > > MsgBox Err.Description & " " & Err.Source, vbInformation,
"VB"
> > > > obj.Quit
> > > > End Sub
> > > >
> > > >
> > > >
> > >
> > >
> >
>
>
Je me demande si c'est vraiment un problème automation, ou si le
message "erreur automation" cache une autre erreur mais que le vrai
message d'erreur est "camouflé" par la liaison OLE.
Bonjour,
D'autres question en l'air:
Sur les machines qui plantent, est-ce que l'utilisateur a les droite
en lecture-écriture-effacement ?
Sur les machines qui plantent, est-ce parce que l'utilisateur essaie
d'écraser un fichier existant du même nom ?
Je me demande si c'est vraiment un problème automation, ou si le
message "erreur automation" cache une autre erreur mais que le vrai
message d'erreur est "camouflé" par la liaison OLE.
"Marc Tousignant" a écrit dans le
message de news:
> La fonction est une de mes fonction VB qui ne fait que formatter une
String
> afin d'avoir un noom de fichier standardisé (FT 123456
2005-02-12.xls). Je
> l'utilise pour avoir le nom du fichier destination du FileCopy.
>
> "Clément Marcotte" a écrit dans le
message
> de news:
> > Bonjour,
> >
> > Plus de questions que de réponses, mais on ne sait jamais.
> >
> > Ton "GetFileName", est-ce une fonction personnalisée ? Il y
peut-être
> > une erreur de passage de paramètres, qui ressort en "fausse erreur
> > automation".
> >
> > Si c'est un alias pour une fonction API, est-ce que ta fonction
API
> > est supportée sur les machines où ton programme plante ?
> >
> > Et si tu adaptes ta procédure pour qu'elle roule dans VBA-Excel au
> > lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
> >
> >
> > "Marc Tousignant" a écrit dans le
> > message de news:
> > > Merci pour vos suggestion, le problème n'est pas le fileCopy, il
se
> > situe
> > > plus loin, après avoir défini les propriétés, au moment du
> > saveWorkBook
> > > (ligne
> > >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > ).
> > > Il n'arrive que sur certain poste. Je vais essayer le resume
next
> > sur un
> > > poste en erreur. Je reste ouvert à toute autre suggestion...
> > >
> > > Merci
> > >
> > > "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
> > > >
> > > >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > > > 'obj.ActiveWorkbook.Save
> > > >
> > >
> >
obj.Workbooks(getFileName(cboEndWeek.List(cboEndWeek.ListIndex))).Save
> > d
> > > > = False
> > > > obj.EnableEvents = True
> > > > obj.Visible = True
> > > > dteDateMod = FileDateTime(strPathSave)
> > > >
> > > > Exit Sub
> > > >
> > > > Erreurs:
> > > > MsgBox Err.Description & " " & Err.Source, vbInformation,
"VB"
> > > > obj.Quit
> > > > End Sub
> > > >
> > > >
> > > >
> > >
> > >
> >
>
>
Réponse:
L'utilisateur a tout les droits car: 1- ils sont administrateur sur
machine et 2- J'utilise le dossier "Mes Documents" pour mes
L'utilisateur ne peut pas écraser un fichier existant car j'ai fais
tests avec un utilisateur en lui demandant d'effacer les fichiers
(dans le cas où l'application aurait réussi à les créer et l'erreur
toujours présente.)
J'ai tenté de faire roulé le programme sans la ligne
workbooks(getfilename()).save sur un poste et ça plante toujours.
> Je me demande si c'est vraiment un problème automation, ou si le
> message "erreur automation" cache une autre erreur mais que le
> message d'erreur est "camouflé" par la liaison OLE.
>
Sais-tu comment je pourrais le savoir?
Merci
Marc T.
"Clément Marcotte" a écrit dans le
de news:
> Bonjour,
>
> D'autres question en l'air:
>
> Sur les machines qui plantent, est-ce que l'utilisateur a les
> en lecture-écriture-effacement ?
>
> Sur les machines qui plantent, est-ce parce que l'utilisateur
> d'écraser un fichier existant du même nom ?
>
> Je me demande si c'est vraiment un problème automation, ou si le
> message "erreur automation" cache une autre erreur mais que le
> message d'erreur est "camouflé" par la liaison OLE.
>
>
>
> "Marc Tousignant" a écrit dans le
> message de news:
> > La fonction est une de mes fonction VB qui ne fait que formatter
> String
> > afin d'avoir un noom de fichier standardisé (FT 123456
> 2005-02-12.xls). Je
> > l'utilise pour avoir le nom du fichier destination du FileCopy.
> >
> > "Clément Marcotte" a écrit dans
> message
> > de news:
> > > Bonjour,
> > >
> > > Plus de questions que de réponses, mais on ne sait jamais.
> > >
> > > Ton "GetFileName", est-ce une fonction personnalisée ? Il y
> peut-être
> > > une erreur de passage de paramètres, qui ressort en "fausse
> > > automation".
> > >
> > > Si c'est un alias pour une fonction API, est-ce que ta
> API
> > > est supportée sur les machines où ton programme plante ?
> > >
> > > Et si tu adaptes ta procédure pour qu'elle roule dans
> > > lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
> > >
> > >
> > > "Marc Tousignant" a écrit dans
> > > message de news:
> > > > Merci pour vos suggestion, le problème n'est pas le
> se
> > > situe
> > > > plus loin, après avoir défini les propriétés, au moment du
> > > saveWorkBook
> > > > (ligne
> > > >
> > >
>
> > > ).
> > > > Il n'arrive que sur certain poste. Je vais essayer le
> next
> > > sur un
> > > > poste en erreur. Je reste ouvert à toute autre
> > > >
> > > > Merci
> > > >
> > > > "Marc Tousignant" a écrit dans
> > > 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
> > > > 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
> > > 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
> > > l'enregistre
> > > > > ' dans l'emplacement choisi par l'utilisateur et l'ouvre
> > > > >
> > >
>
> > > ''''
> > > > > Private Sub createTS(ByRef obj As Excel.Application,
> 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
> > > 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
> > > 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
> > > > >
> > > > >
> > >
>
> > > > > 'obj.ActiveWorkbook.Save
> > > > >
> > > >
> > >
>
> > > d
> > > > > = False
> > > > > obj.EnableEvents = True
> > > > > obj.Visible = True
> > > > > dteDateMod = FileDateTime(strPathSave)
> > > > >
> > > > > Exit Sub
> > > > >
> > > > > Erreurs:
> > > > > MsgBox Err.Description & " " & Err.Source,
> "VB"
> > > > > obj.Quit
> > > > > End Sub
> > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> >
> >
>
Réponse:
L'utilisateur a tout les droits car: 1- ils sont administrateur sur
machine et 2- J'utilise le dossier "Mes Documents" pour mes
L'utilisateur ne peut pas écraser un fichier existant car j'ai fais
tests avec un utilisateur en lui demandant d'effacer les fichiers
(dans le cas où l'application aurait réussi à les créer et l'erreur
toujours présente.)
J'ai tenté de faire roulé le programme sans la ligne
workbooks(getfilename()).save sur un poste et ça plante toujours.
> Je me demande si c'est vraiment un problème automation, ou si le
> message "erreur automation" cache une autre erreur mais que le
> message d'erreur est "camouflé" par la liaison OLE.
>
Sais-tu comment je pourrais le savoir?
Merci
Marc T.
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
de news:OPFyqNTGFHA.1392@tk2msftngp13.phx.gbl...
> Bonjour,
>
> D'autres question en l'air:
>
> Sur les machines qui plantent, est-ce que l'utilisateur a les
> en lecture-écriture-effacement ?
>
> Sur les machines qui plantent, est-ce parce que l'utilisateur
> d'écraser un fichier existant du même nom ?
>
> Je me demande si c'est vraiment un problème automation, ou si le
> message "erreur automation" cache une autre erreur mais que le
> message d'erreur est "camouflé" par la liaison OLE.
>
>
>
> "Marc Tousignant" <marc_tousignant@hotmail.com> a écrit dans le
> message de news:ewix6oRGFHA.1140@TK2MSFTNGP10.phx.gbl...
> > La fonction est une de mes fonction VB qui ne fait que formatter
> String
> > afin d'avoir un noom de fichier standardisé (FT 123456
> 2005-02-12.xls). Je
> > l'utilise pour avoir le nom du fichier destination du FileCopy.
> >
> > "Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans
> message
> > de news:OHNkC3QGFHA.1140@TK2MSFTNGP10.phx.gbl...
> > > Bonjour,
> > >
> > > Plus de questions que de réponses, mais on ne sait jamais.
> > >
> > > Ton "GetFileName", est-ce une fonction personnalisée ? Il y
> peut-être
> > > une erreur de passage de paramètres, qui ressort en "fausse
> > > automation".
> > >
> > > Si c'est un alias pour une fonction API, est-ce que ta
> API
> > > est supportée sur les machines où ton programme plante ?
> > >
> > > Et si tu adaptes ta procédure pour qu'elle roule dans
> > > lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
> > >
> > >
> > > "Marc Tousignant" <marc_tousignant@hotmail.com> a écrit dans
> > > message de news:O3UU7VPGFHA.3596@TK2MSFTNGP12.phx.gbl...
> > > > Merci pour vos suggestion, le problème n'est pas le
> se
> > > situe
> > > > plus loin, après avoir défini les propriétés, au moment du
> > > saveWorkBook
> > > > (ligne
> > > >
> > >
>
> > > ).
> > > > Il n'arrive que sur certain poste. Je vais essayer le
> next
> > > sur un
> > > > poste en erreur. Je reste ouvert à toute autre
> > > >
> > > > Merci
> > > >
> > > > "Marc Tousignant" <marc_tousignant@hotmail.com> a écrit dans
> > > 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
> > > > 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
> > > 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
> > > l'enregistre
> > > > > ' dans l'emplacement choisi par l'utilisateur et l'ouvre
> > > > >
> > >
>
> > > ''''
> > > > > Private Sub createTS(ByRef obj As Excel.Application,
> 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
> > > 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
> > > 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
> > > > >
> > > > >
> > >
>
> > > > > 'obj.ActiveWorkbook.Save
> > > > >
> > > >
> > >
>
> > > d
> > > > > = False
> > > > > obj.EnableEvents = True
> > > > > obj.Visible = True
> > > > > dteDateMod = FileDateTime(strPathSave)
> > > > >
> > > > > Exit Sub
> > > > >
> > > > > Erreurs:
> > > > > MsgBox Err.Description & " " & Err.Source,
> "VB"
> > > > > obj.Quit
> > > > > End Sub
> > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> >
> >
>
Réponse:
L'utilisateur a tout les droits car: 1- ils sont administrateur sur
machine et 2- J'utilise le dossier "Mes Documents" pour mes
L'utilisateur ne peut pas écraser un fichier existant car j'ai fais
tests avec un utilisateur en lui demandant d'effacer les fichiers
(dans le cas où l'application aurait réussi à les créer et l'erreur
toujours présente.)
J'ai tenté de faire roulé le programme sans la ligne
workbooks(getfilename()).save sur un poste et ça plante toujours.
> Je me demande si c'est vraiment un problème automation, ou si le
> message "erreur automation" cache une autre erreur mais que le
> message d'erreur est "camouflé" par la liaison OLE.
>
Sais-tu comment je pourrais le savoir?
Merci
Marc T.
"Clément Marcotte" a écrit dans le
de news:
> Bonjour,
>
> D'autres question en l'air:
>
> Sur les machines qui plantent, est-ce que l'utilisateur a les
> en lecture-écriture-effacement ?
>
> Sur les machines qui plantent, est-ce parce que l'utilisateur
> d'écraser un fichier existant du même nom ?
>
> Je me demande si c'est vraiment un problème automation, ou si le
> message "erreur automation" cache une autre erreur mais que le
> message d'erreur est "camouflé" par la liaison OLE.
>
>
>
> "Marc Tousignant" a écrit dans le
> message de news:
> > La fonction est une de mes fonction VB qui ne fait que formatter
> String
> > afin d'avoir un noom de fichier standardisé (FT 123456
> 2005-02-12.xls). Je
> > l'utilise pour avoir le nom du fichier destination du FileCopy.
> >
> > "Clément Marcotte" a écrit dans
> message
> > de news:
> > > Bonjour,
> > >
> > > Plus de questions que de réponses, mais on ne sait jamais.
> > >
> > > Ton "GetFileName", est-ce une fonction personnalisée ? Il y
> peut-être
> > > une erreur de passage de paramètres, qui ressort en "fausse
> > > automation".
> > >
> > > Si c'est un alias pour une fonction API, est-ce que ta
> API
> > > est supportée sur les machines où ton programme plante ?
> > >
> > > Et si tu adaptes ta procédure pour qu'elle roule dans
> > > lieu de VB, et que tu la passes au pas-à-pas dans Excel ?
> > >
> > >
> > > "Marc Tousignant" a écrit dans
> > > message de news:
> > > > Merci pour vos suggestion, le problème n'est pas le
> se
> > > situe
> > > > plus loin, après avoir défini les propriétés, au moment du
> > > saveWorkBook
> > > > (ligne
> > > >
> > >
>
> > > ).
> > > > Il n'arrive que sur certain poste. Je vais essayer le
> next
> > > sur un
> > > > poste en erreur. Je reste ouvert à toute autre
> > > >
> > > > Merci
> > > >
> > > > "Marc Tousignant" a écrit dans
> > > 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
> > > > 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
> > > 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
> > > l'enregistre
> > > > > ' dans l'emplacement choisi par l'utilisateur et l'ouvre
> > > > >
> > >
>
> > > ''''
> > > > > Private Sub createTS(ByRef obj As Excel.Application,
> 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
> > > 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
> > > 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
> > > > >
> > > > >
> > >
>
> > > > > 'obj.ActiveWorkbook.Save
> > > > >
> > > >
> > >
>
> > > d
> > > > > = False
> > > > > obj.EnableEvents = True
> > > > > obj.Visible = True
> > > > > dteDateMod = FileDateTime(strPathSave)
> > > > >
> > > > > Exit Sub
> > > > >
> > > > > Erreurs:
> > > > > MsgBox Err.Description & " " & Err.Source,
> "VB"
> > > > > obj.Quit
> > > > > End Sub
> > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> >
> >
>
