De: "Julius Marcus" <~borot~@club-internet.fr>
Objet: Re: actualisation des lien ODBC et sauvegarde
Date: vendredi 23 juillet 2004 07:47
Bonjour
Merci de votre aide
par contre meme en utilisant votre script j'ai le meme probleme ça marche
très bien en pas a pas et ça ne fonctionne pas en execution normale
j'ai rajouté des tempo avant l'enregistrement rien n'y fait
Si ça continu je vais copie d'écran dans paint !!!!!!! et je n'aurrais plus
de cheveux a m'arracher !!!!!!
Merci encor
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:40fd6304$0$15279$636a15ce@news.free.fr...
> Bonsoir,
>
> En fait seul le fichier ayant acquis les nouveaux datas doit être mis à
> jour,
> sinon puisque tu as toi même prévu l'ouverture en lecture seule , c'est
que
> tu utilises
> toujours la même feuille qui contient la liaison ODBC pour Données
> Actualiser.
> C'est normal que tu aies ce message erreur.
> Aussi, une idée serait peut être de copier la feuille et l'enregistrer
sous
> un nouveau classeur
> à l'identique de ceci:
>
> Sub acfresh()
> Static num As Integer
> Dim myn As String
> num = num + 1
> Workbooks.Open Filename:="acctest.xls", ReadOnly:=True
> 'active le fichier
> 'Windows("Feuil1").Activate
> ActiveWorkbook.RefreshAll
>
> ActiveSheet.Copy
> myn = "F" & Format(Now, "ddmmyy") & "n" & num & ".xls"
> ActiveWorkbook.SaveAs Filename:=myn
> ActiveWorkbook.Close False
> ActiveWorkbook.Close False
>
>
> End Sub
>
> :-)
>
> "Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
> news:O8aP71mbEHA.2216@TK2MSFTNGP10.phx.gbl...
> >
> > Bonjour
> > effectivement avec le code c'est plus simple
> > j'ai tester Application.DisplayAlerts = False
> > ça actualise bien ma page mais c'est lors de l'enregistrement sous qu'il
y
> a
> > un pb
> >
> > Merci
> >
> >
> >
> > 'ouvre en lecture seul
> > Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
> > 'active le fichier
> > Windows(Fichier).Activate
> > actualise_les_données
> >
> > 'sauvegarde sous forme jj-mm-yy
> > ActiveWorkbook.SaveAs Filename:=Destination & Fichierdestination
> >
> > Application.Quit
> > End Sub
> >
> >
> > Sub actualise_les_données()
> > 'actualise les données
> > ActiveWorkbook.RefreshAll
> > ' MsgBox "The name of the active window is " & ActiveWindow.Caption
> > End Sub
> >
> >
> > "LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
> > news:40fc3bb4$0$29420$626a14ce@news.free.fr...
> > > Bonjour,
> > > Faute de connaître ton code
> > > essaie peut être
> > > '.....
> > > Application.DisplayAlerts = False
> > > 'moninstructionquiplante
> > > Application.DisplayAlerts = true
> > > '...
> > >
> > > LeSteph
> > > "Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
> > > news:%231ZP9PdbEHA.1656@TK2MSFTNGP09.phx.gbl...
> > > > Bonjour
> > > > j'ai un pb surpenant et pénible
> > > >
> > > > en VB j'ouvre une feuille excel et utilise la commande refreshall
pour
> > > > actualiser les liens odbc et ensuite je sauvegarde le tout sous un
> > fichier
> > > > datedujour.xls puis quitte excel
> > > > Lorsque je fait mes verifications pas a pas TOUT FONCTIONNE
> > > >
> > > > mais lorsque j'excecute ma macro normalement j'ai un message
d'erreur
> > qui
> > > > m'indique que "cette action annulera l'actualisation des données "
> avec
> > le
> > > > choix annuler ou continué.
> > > > J'ai mis en place une tempo de 20 secondes => meme pb
> > > >
> > > > Si qqu a une idée
> > > >
> > > > Merci d'avance de vos idées
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
> >
>
>
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
LeSteph
Bonsoir ,
Il n'y a besoin d'aucun tempo le message d'erreur vient de ce que la source est ouverte en lecture seule (je comprends que tu puisses le faire volontairement) d'ailleurs j'ai appercu sur un autre fil que l'on te l'a déjà expliqué l'erreur que tu obtiens jee l'ai reproduite chez moi et m'en suis débarrassé sans difficulté si tu suis la proc que je t'ai indiquée ou les conseils qui t'ont déjà été donnés tu sera débarassé de ce pb . Mais si tu préfères marteler toujours le même message libre à toi...
Amicalement.
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de news:%23O4Zu%
De: "Julius Marcus" <~borot~@club-internet.fr> Objet: Re: actualisation des lien ODBC et sauvegarde Date: vendredi 23 juillet 2004 07:47
Bonjour
Merci de votre aide par contre meme en utilisant votre script j'ai le meme probleme ça marche très bien en pas a pas et ça ne fonctionne pas en execution normale
j'ai rajouté des tempo avant l'enregistrement rien n'y fait Si ça continu je vais copie d'écran dans paint !!!!!!! et je n'aurrais plus
de cheveux a m'arracher !!!!!!
Merci encor
"LeSteph" a écrit dans le message de news:40fd6304$0$15279$
Bonsoir,
En fait seul le fichier ayant acquis les nouveaux datas doit être mis à jour, sinon puisque tu as toi même prévu l'ouverture en lecture seule , c'est que
tu utilises toujours la même feuille qui contient la liaison ODBC pour Données Actualiser. C'est normal que tu aies ce message erreur. Aussi, une idée serait peut être de copier la feuille et l'enregistrer sous
un nouveau classeur à l'identique de ceci:
Sub acfresh() Static num As Integer Dim myn As String num = num + 1 Workbooks.Open Filename:="acctest.xls", ReadOnly:=True 'active le fichier 'Windows("Feuil1").Activate ActiveWorkbook.RefreshAll
ActiveSheet.Copy myn = "F" & Format(Now, "ddmmyy") & "n" & num & ".xls" ActiveWorkbook.SaveAs Filename:=myn ActiveWorkbook.Close False ActiveWorkbook.Close False
End Sub
:-)
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de news:
Bonjour effectivement avec le code c'est plus simple j'ai tester Application.DisplayAlerts = False ça actualise bien ma page mais c'est lors de l'enregistrement sous qu'il
y
a
un pb
Merci
'ouvre en lecture seul Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True 'active le fichier Windows(Fichier).Activate actualise_les_données
'sauvegarde sous forme jj-mm-yy ActiveWorkbook.SaveAs Filename:Þstination & Fichierdestination
Application.Quit End Sub
Sub actualise_les_données() 'actualise les données ActiveWorkbook.RefreshAll ' MsgBox "The name of the active window is " & ActiveWindow.Caption End Sub
"LeSteph" a écrit dans le message de news:40fc3bb4$0$29420$
Bonjour, Faute de connaître ton code essaie peut être '..... Application.DisplayAlerts = False 'moninstructionquiplante Application.DisplayAlerts = true '...
LeSteph "Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%
Bonjour j'ai un pb surpenant et pénible
en VB j'ouvre une feuille excel et utilise la commande refreshall pour
actualiser les liens odbc et ensuite je sauvegarde le tout sous un fichier
datedujour.xls puis quitte excel Lorsque je fait mes verifications pas a pas TOUT FONCTIONNE
mais lorsque j'excecute ma macro normalement j'ai un message d'erreur
qui
m'indique que "cette action annulera l'actualisation des données " avec
le
choix annuler ou continué. J'ai mis en place une tempo de 20 secondes => meme pb
Si qqu a une idée
Merci d'avance de vos idées
Bonsoir ,
Il n'y a besoin d'aucun tempo le message d'erreur
vient de ce que la source est
ouverte en lecture seule
(je comprends que tu puisses le faire volontairement)
d'ailleurs j'ai appercu sur un autre fil
que l'on te l'a déjà expliqué
l'erreur que tu obtiens
jee l'ai reproduite chez moi et m'en suis débarrassé sans
difficulté
si tu suis la proc que je t'ai indiquée ou les conseils qui t'ont
déjà été donnés tu sera débarassé de ce pb .
Mais si tu préfères marteler toujours le même message
libre à toi...
Amicalement.
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23O4Zu%23McEHA.2908@TK2MSFTNGP10.phx.gbl...
De: "Julius Marcus" <~borot~@club-internet.fr>
Objet: Re: actualisation des lien ODBC et sauvegarde
Date: vendredi 23 juillet 2004 07:47
Bonjour
Merci de votre aide
par contre meme en utilisant votre script j'ai le meme probleme ça marche
très bien en pas a pas et ça ne fonctionne pas en execution normale
j'ai rajouté des tempo avant l'enregistrement rien n'y fait
Si ça continu je vais copie d'écran dans paint !!!!!!! et je n'aurrais
plus
de cheveux a m'arracher !!!!!!
Merci encor
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:40fd6304$0$15279$636a15ce@news.free.fr...
Bonsoir,
En fait seul le fichier ayant acquis les nouveaux datas doit être mis à
jour,
sinon puisque tu as toi même prévu l'ouverture en lecture seule , c'est
que
tu utilises
toujours la même feuille qui contient la liaison ODBC pour Données
Actualiser.
C'est normal que tu aies ce message erreur.
Aussi, une idée serait peut être de copier la feuille et l'enregistrer
sous
un nouveau classeur
à l'identique de ceci:
Sub acfresh()
Static num As Integer
Dim myn As String
num = num + 1
Workbooks.Open Filename:="acctest.xls", ReadOnly:=True
'active le fichier
'Windows("Feuil1").Activate
ActiveWorkbook.RefreshAll
ActiveSheet.Copy
myn = "F" & Format(Now, "ddmmyy") & "n" & num & ".xls"
ActiveWorkbook.SaveAs Filename:=myn
ActiveWorkbook.Close False
ActiveWorkbook.Close False
End Sub
:-)
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:O8aP71mbEHA.2216@TK2MSFTNGP10.phx.gbl...
Bonjour
effectivement avec le code c'est plus simple
j'ai tester Application.DisplayAlerts = False
ça actualise bien ma page mais c'est lors de l'enregistrement sous
qu'il
y
a
un pb
Merci
'ouvre en lecture seul
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
'active le fichier
Windows(Fichier).Activate
actualise_les_données
'sauvegarde sous forme jj-mm-yy
ActiveWorkbook.SaveAs Filename:Þstination & Fichierdestination
Application.Quit
End Sub
Sub actualise_les_données()
'actualise les données
ActiveWorkbook.RefreshAll
' MsgBox "The name of the active window is " & ActiveWindow.Caption
End Sub
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:40fc3bb4$0$29420$626a14ce@news.free.fr...
Bonjour,
Faute de connaître ton code
essaie peut être
'.....
Application.DisplayAlerts = False
'moninstructionquiplante
Application.DisplayAlerts = true
'...
LeSteph
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message
de
news:%231ZP9PdbEHA.1656@TK2MSFTNGP09.phx.gbl...
Bonjour
j'ai un pb surpenant et pénible
en VB j'ouvre une feuille excel et utilise la commande refreshall
pour
actualiser les liens odbc et ensuite je sauvegarde le tout sous un
fichier
datedujour.xls puis quitte excel
Lorsque je fait mes verifications pas a pas TOUT FONCTIONNE
mais lorsque j'excecute ma macro normalement j'ai un message
d'erreur
qui
m'indique que "cette action annulera l'actualisation des données "
avec
le
choix annuler ou continué.
J'ai mis en place une tempo de 20 secondes => meme pb
Il n'y a besoin d'aucun tempo le message d'erreur vient de ce que la source est ouverte en lecture seule (je comprends que tu puisses le faire volontairement) d'ailleurs j'ai appercu sur un autre fil que l'on te l'a déjà expliqué l'erreur que tu obtiens jee l'ai reproduite chez moi et m'en suis débarrassé sans difficulté si tu suis la proc que je t'ai indiquée ou les conseils qui t'ont déjà été donnés tu sera débarassé de ce pb . Mais si tu préfères marteler toujours le même message libre à toi...
Amicalement.
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de news:%23O4Zu%
De: "Julius Marcus" <~borot~@club-internet.fr> Objet: Re: actualisation des lien ODBC et sauvegarde Date: vendredi 23 juillet 2004 07:47
Bonjour
Merci de votre aide par contre meme en utilisant votre script j'ai le meme probleme ça marche très bien en pas a pas et ça ne fonctionne pas en execution normale
j'ai rajouté des tempo avant l'enregistrement rien n'y fait Si ça continu je vais copie d'écran dans paint !!!!!!! et je n'aurrais plus
de cheveux a m'arracher !!!!!!
Merci encor
"LeSteph" a écrit dans le message de news:40fd6304$0$15279$
Bonsoir,
En fait seul le fichier ayant acquis les nouveaux datas doit être mis à jour, sinon puisque tu as toi même prévu l'ouverture en lecture seule , c'est que
tu utilises toujours la même feuille qui contient la liaison ODBC pour Données Actualiser. C'est normal que tu aies ce message erreur. Aussi, une idée serait peut être de copier la feuille et l'enregistrer sous
un nouveau classeur à l'identique de ceci:
Sub acfresh() Static num As Integer Dim myn As String num = num + 1 Workbooks.Open Filename:="acctest.xls", ReadOnly:=True 'active le fichier 'Windows("Feuil1").Activate ActiveWorkbook.RefreshAll
ActiveSheet.Copy myn = "F" & Format(Now, "ddmmyy") & "n" & num & ".xls" ActiveWorkbook.SaveAs Filename:=myn ActiveWorkbook.Close False ActiveWorkbook.Close False
End Sub
:-)
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de news:
Bonjour effectivement avec le code c'est plus simple j'ai tester Application.DisplayAlerts = False ça actualise bien ma page mais c'est lors de l'enregistrement sous qu'il
y
a
un pb
Merci
'ouvre en lecture seul Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True 'active le fichier Windows(Fichier).Activate actualise_les_données
'sauvegarde sous forme jj-mm-yy ActiveWorkbook.SaveAs Filename:Þstination & Fichierdestination
Application.Quit End Sub
Sub actualise_les_données() 'actualise les données ActiveWorkbook.RefreshAll ' MsgBox "The name of the active window is " & ActiveWindow.Caption End Sub
"LeSteph" a écrit dans le message de news:40fc3bb4$0$29420$
Bonjour, Faute de connaître ton code essaie peut être '..... Application.DisplayAlerts = False 'moninstructionquiplante Application.DisplayAlerts = true '...
LeSteph "Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%
Bonjour j'ai un pb surpenant et pénible
en VB j'ouvre une feuille excel et utilise la commande refreshall pour
actualiser les liens odbc et ensuite je sauvegarde le tout sous un fichier
datedujour.xls puis quitte excel Lorsque je fait mes verifications pas a pas TOUT FONCTIONNE
mais lorsque j'excecute ma macro normalement j'ai un message d'erreur
qui
m'indique que "cette action annulera l'actualisation des données " avec
le
choix annuler ou continué. J'ai mis en place une tempo de 20 secondes => meme pb
Si qqu a une idée
Merci d'avance de vos idées
LeSteph
Pour êtreplus précis MichDenis t'as déjà expliqué cela le 17/07 en réponse à ton post du même jour à 22h15
Mais tu as raison quequepart sans doute s'agit il d'un pb surpenant d'actualisation.....
5)5)5)5) 5) _ _ ) ~
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de news:%23O4Zu%
De: "Julius Marcus" <~borot~@club-internet.fr> Objet: Re: actualisation des lien ODBC et sauvegarde Date: vendredi 23 juillet 2004 07:47
Bonjour
Merci de votre aide par contre meme en utilisant votre script j'ai le meme probleme ça marche très bien en pas a pas et ça ne fonctionne pas en execution normale
j'ai rajouté des tempo avant l'enregistrement rien n'y fait Si ça continu je vais copie d'écran dans paint !!!!!!! et je n'aurrais plus
de cheveux a m'arracher !!!!!!
Merci encor
"LeSteph" a écrit dans le message de news:40fd6304$0$15279$
Bonsoir,
En fait seul le fichier ayant acquis les nouveaux datas doit être mis à jour, sinon puisque tu as toi même prévu l'ouverture en lecture seule , c'est que
tu utilises toujours la même feuille qui contient la liaison ODBC pour Données Actualiser. C'est normal que tu aies ce message erreur. Aussi, une idée serait peut être de copier la feuille et l'enregistrer sous
un nouveau classeur à l'identique de ceci:
Sub acfresh() Static num As Integer Dim myn As String num = num + 1 Workbooks.Open Filename:="acctest.xls", ReadOnly:=True 'active le fichier 'Windows("Feuil1").Activate ActiveWorkbook.RefreshAll
ActiveSheet.Copy myn = "F" & Format(Now, "ddmmyy") & "n" & num & ".xls" ActiveWorkbook.SaveAs Filename:=myn ActiveWorkbook.Close False ActiveWorkbook.Close False
End Sub
:-)
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de news:
Bonjour effectivement avec le code c'est plus simple j'ai tester Application.DisplayAlerts = False ça actualise bien ma page mais c'est lors de l'enregistrement sous qu'il
y
a
un pb
Merci
'ouvre en lecture seul Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True 'active le fichier Windows(Fichier).Activate actualise_les_données
'sauvegarde sous forme jj-mm-yy ActiveWorkbook.SaveAs Filename:Þstination & Fichierdestination
Application.Quit End Sub
Sub actualise_les_données() 'actualise les données ActiveWorkbook.RefreshAll ' MsgBox "The name of the active window is " & ActiveWindow.Caption End Sub
"LeSteph" a écrit dans le message de news:40fc3bb4$0$29420$
Bonjour, Faute de connaître ton code essaie peut être '..... Application.DisplayAlerts = False 'moninstructionquiplante Application.DisplayAlerts = true '...
LeSteph "Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%
Bonjour j'ai un pb surpenant et pénible
en VB j'ouvre une feuille excel et utilise la commande refreshall pour
actualiser les liens odbc et ensuite je sauvegarde le tout sous un fichier
datedujour.xls puis quitte excel Lorsque je fait mes verifications pas a pas TOUT FONCTIONNE
mais lorsque j'excecute ma macro normalement j'ai un message d'erreur
qui
m'indique que "cette action annulera l'actualisation des données " avec
le
choix annuler ou continué. J'ai mis en place une tempo de 20 secondes => meme pb
Si qqu a une idée
Merci d'avance de vos idées
Pour êtreplus précis MichDenis t'as déjà expliqué cela le 17/07 en réponse
à ton post du même jour à 22h15
Mais tu as raison quequepart sans doute s'agit il d'un pb surpenant
d'actualisation.....
5)5)5)5)
5) _ _
)
~
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23O4Zu%23McEHA.2908@TK2MSFTNGP10.phx.gbl...
De: "Julius Marcus" <~borot~@club-internet.fr>
Objet: Re: actualisation des lien ODBC et sauvegarde
Date: vendredi 23 juillet 2004 07:47
Bonjour
Merci de votre aide
par contre meme en utilisant votre script j'ai le meme probleme ça marche
très bien en pas a pas et ça ne fonctionne pas en execution normale
j'ai rajouté des tempo avant l'enregistrement rien n'y fait
Si ça continu je vais copie d'écran dans paint !!!!!!! et je n'aurrais
plus
de cheveux a m'arracher !!!!!!
Merci encor
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:40fd6304$0$15279$636a15ce@news.free.fr...
Bonsoir,
En fait seul le fichier ayant acquis les nouveaux datas doit être mis à
jour,
sinon puisque tu as toi même prévu l'ouverture en lecture seule , c'est
que
tu utilises
toujours la même feuille qui contient la liaison ODBC pour Données
Actualiser.
C'est normal que tu aies ce message erreur.
Aussi, une idée serait peut être de copier la feuille et l'enregistrer
sous
un nouveau classeur
à l'identique de ceci:
Sub acfresh()
Static num As Integer
Dim myn As String
num = num + 1
Workbooks.Open Filename:="acctest.xls", ReadOnly:=True
'active le fichier
'Windows("Feuil1").Activate
ActiveWorkbook.RefreshAll
ActiveSheet.Copy
myn = "F" & Format(Now, "ddmmyy") & "n" & num & ".xls"
ActiveWorkbook.SaveAs Filename:=myn
ActiveWorkbook.Close False
ActiveWorkbook.Close False
End Sub
:-)
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:O8aP71mbEHA.2216@TK2MSFTNGP10.phx.gbl...
Bonjour
effectivement avec le code c'est plus simple
j'ai tester Application.DisplayAlerts = False
ça actualise bien ma page mais c'est lors de l'enregistrement sous
qu'il
y
a
un pb
Merci
'ouvre en lecture seul
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
'active le fichier
Windows(Fichier).Activate
actualise_les_données
'sauvegarde sous forme jj-mm-yy
ActiveWorkbook.SaveAs Filename:Þstination & Fichierdestination
Application.Quit
End Sub
Sub actualise_les_données()
'actualise les données
ActiveWorkbook.RefreshAll
' MsgBox "The name of the active window is " & ActiveWindow.Caption
End Sub
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:40fc3bb4$0$29420$626a14ce@news.free.fr...
Bonjour,
Faute de connaître ton code
essaie peut être
'.....
Application.DisplayAlerts = False
'moninstructionquiplante
Application.DisplayAlerts = true
'...
LeSteph
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message
de
news:%231ZP9PdbEHA.1656@TK2MSFTNGP09.phx.gbl...
Bonjour
j'ai un pb surpenant et pénible
en VB j'ouvre une feuille excel et utilise la commande refreshall
pour
actualiser les liens odbc et ensuite je sauvegarde le tout sous un
fichier
datedujour.xls puis quitte excel
Lorsque je fait mes verifications pas a pas TOUT FONCTIONNE
mais lorsque j'excecute ma macro normalement j'ai un message
d'erreur
qui
m'indique que "cette action annulera l'actualisation des données "
avec
le
choix annuler ou continué.
J'ai mis en place une tempo de 20 secondes => meme pb
Pour êtreplus précis MichDenis t'as déjà expliqué cela le 17/07 en réponse à ton post du même jour à 22h15
Mais tu as raison quequepart sans doute s'agit il d'un pb surpenant d'actualisation.....
5)5)5)5) 5) _ _ ) ~
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de news:%23O4Zu%
De: "Julius Marcus" <~borot~@club-internet.fr> Objet: Re: actualisation des lien ODBC et sauvegarde Date: vendredi 23 juillet 2004 07:47
Bonjour
Merci de votre aide par contre meme en utilisant votre script j'ai le meme probleme ça marche très bien en pas a pas et ça ne fonctionne pas en execution normale
j'ai rajouté des tempo avant l'enregistrement rien n'y fait Si ça continu je vais copie d'écran dans paint !!!!!!! et je n'aurrais plus
de cheveux a m'arracher !!!!!!
Merci encor
"LeSteph" a écrit dans le message de news:40fd6304$0$15279$
Bonsoir,
En fait seul le fichier ayant acquis les nouveaux datas doit être mis à jour, sinon puisque tu as toi même prévu l'ouverture en lecture seule , c'est que
tu utilises toujours la même feuille qui contient la liaison ODBC pour Données Actualiser. C'est normal que tu aies ce message erreur. Aussi, une idée serait peut être de copier la feuille et l'enregistrer sous
un nouveau classeur à l'identique de ceci:
Sub acfresh() Static num As Integer Dim myn As String num = num + 1 Workbooks.Open Filename:="acctest.xls", ReadOnly:=True 'active le fichier 'Windows("Feuil1").Activate ActiveWorkbook.RefreshAll
ActiveSheet.Copy myn = "F" & Format(Now, "ddmmyy") & "n" & num & ".xls" ActiveWorkbook.SaveAs Filename:=myn ActiveWorkbook.Close False ActiveWorkbook.Close False
End Sub
:-)
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de news:
Bonjour effectivement avec le code c'est plus simple j'ai tester Application.DisplayAlerts = False ça actualise bien ma page mais c'est lors de l'enregistrement sous qu'il
y
a
un pb
Merci
'ouvre en lecture seul Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True 'active le fichier Windows(Fichier).Activate actualise_les_données
'sauvegarde sous forme jj-mm-yy ActiveWorkbook.SaveAs Filename:Þstination & Fichierdestination
Application.Quit End Sub
Sub actualise_les_données() 'actualise les données ActiveWorkbook.RefreshAll ' MsgBox "The name of the active window is " & ActiveWindow.Caption End Sub
"LeSteph" a écrit dans le message de news:40fc3bb4$0$29420$
Bonjour, Faute de connaître ton code essaie peut être '..... Application.DisplayAlerts = False 'moninstructionquiplante Application.DisplayAlerts = true '...
LeSteph "Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%
Bonjour j'ai un pb surpenant et pénible
en VB j'ouvre une feuille excel et utilise la commande refreshall pour
actualiser les liens odbc et ensuite je sauvegarde le tout sous un fichier
datedujour.xls puis quitte excel Lorsque je fait mes verifications pas a pas TOUT FONCTIONNE
mais lorsque j'excecute ma macro normalement j'ai un message d'erreur
qui
m'indique que "cette action annulera l'actualisation des données " avec
le
choix annuler ou continué. J'ai mis en place une tempo de 20 secondes => meme pb
