OVH Cloud OVH Cloud

actualisation des lien ODBC et sauvegarde

2 réponses
Avatar
Julius Marcus
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

2 réponses

Avatar
LeSteph
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





Avatar
Julius Marcus
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