Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Re: actualisation des lien ODBC et sauvegarde

Re: actualisation des lien ODBC et sauvegarde

1 réponse
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:=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
> >
> >
> >
>
>
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LeSteph
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