Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans le
classeur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sans
sauvegarder les mises à jour. Ce n'est pas un problème lié à l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%
Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans le
classeur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sans
sauvegarder les mises à jour. Ce n'est pas un problème lié à l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%23CYEHA.1684@tk2msftngp13.phx.gbl...
Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans le
classeur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sans
sauvegarder les mises à jour. Ce n'est pas un problème lié à l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%
Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans le
classeur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sans
sauvegarder les mises à jour. Ce n'est pas un problème lié à l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%
Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans le
classeur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sans
sauvegarder les mises à jour. Ce n'est pas un problème lié à l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%23CYEHA.1684@tk2msftngp13.phx.gbl...
Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans le
classeur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sans
sauvegarder les mises à jour. Ce n'est pas un problème lié à l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%
Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Si tu as seulement des QueryTable à rafraîchir, tu peux utiliser ceci :
'--------------------------
Sub MiseAJourODBC()
Dim Sh As Worksheet
Dim Qt As PivotTable
For Each Sh In Worksheets
For Each P In Sh.pivotables
Qt.Refresh False
Next
Next
Set Sh = Nothing: Set Qt = Nothing
End Sub
'--------------------------
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%
Bonjour
et Merci
C'est bien ce que je veux faire ouvrir en lecture seul actualiser mes lien
puis enregistrer sous un nouveau nom (dateduejour)
ça marche en pas a pas mais pas en vitesse normale !!!!!
c'est pour cela que je pense a un pb de lien obdc
"michdenis" a écrit dans le message de
news:Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans leclasseur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sanssauvegarder les mises à jour. Ce n'est pas un problème lié à
l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall
pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Si tu as seulement des QueryTable à rafraîchir, tu peux utiliser ceci :
'--------------------------
Sub MiseAJourODBC()
Dim Sh As Worksheet
Dim Qt As PivotTable
For Each Sh In Worksheets
For Each P In Sh.pivotables
Qt.Refresh False
Next
Next
Set Sh = Nothing: Set Qt = Nothing
End Sub
'--------------------------
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23mmT3KDYEHA.2544@TK2MSFTNGP10.phx.gbl...
Bonjour
et Merci
C'est bien ce que je veux faire ouvrir en lecture seul actualiser mes lien
puis enregistrer sous un nouveau nom (dateduejour)
ça marche en pas a pas mais pas en vitesse normale !!!!!
c'est pour cela que je pense a un pb de lien obdc
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:efF1WFDYEHA.4092@TK2MSFTNGP11.phx.gbl...
Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans le
classeur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sans
sauvegarder les mises à jour. Ce n'est pas un problème lié à
l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%23CYEHA.1684@tk2msftngp13.phx.gbl...
Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall
pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Si tu as seulement des QueryTable à rafraîchir, tu peux utiliser ceci :
'--------------------------
Sub MiseAJourODBC()
Dim Sh As Worksheet
Dim Qt As PivotTable
For Each Sh In Worksheets
For Each P In Sh.pivotables
Qt.Refresh False
Next
Next
Set Sh = Nothing: Set Qt = Nothing
End Sub
'--------------------------
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%
Bonjour
et Merci
C'est bien ce que je veux faire ouvrir en lecture seul actualiser mes lien
puis enregistrer sous un nouveau nom (dateduejour)
ça marche en pas a pas mais pas en vitesse normale !!!!!
c'est pour cela que je pense a un pb de lien obdc
"michdenis" a écrit dans le message de
news:Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans leclasseur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sanssauvegarder les mises à jour. Ce n'est pas un problème lié à
l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall
pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Si tu as seulement des QueryTable à rafraîchir, tu peux utiliser ceci :
'--------------------------
Sub MiseAJourODBC()
Dim Sh As Worksheet
Dim Qt As PivotTable
For Each Sh In Worksheets
For Each P In Sh.pivotables
Qt.Refresh False
Next
Next
Set Sh = Nothing: Set Qt = Nothing
End Sub
'--------------------------
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%
Bonjour
et Merci
C'est bien ce que je veux faire ouvrir en lecture seul actualiser mes lien
puis enregistrer sous un nouveau nom (dateduejour)
ça marche en pas a pas mais pas en vitesse normale !!!!!
c'est pour cela que je pense a un pb de lien obdc
"michdenis" a écrit dans le message de
news:Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans leclasseur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sanssauvegarder les mises à jour. Ce n'est pas un problème lié à
l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall
pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Si tu as seulement des QueryTable à rafraîchir, tu peux utiliser ceci :
'--------------------------
Sub MiseAJourODBC()
Dim Sh As Worksheet
Dim Qt As PivotTable
For Each Sh In Worksheets
For Each P In Sh.pivotables
Qt.Refresh False
Next
Next
Set Sh = Nothing: Set Qt = Nothing
End Sub
'--------------------------
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23mmT3KDYEHA.2544@TK2MSFTNGP10.phx.gbl...
Bonjour
et Merci
C'est bien ce que je veux faire ouvrir en lecture seul actualiser mes lien
puis enregistrer sous un nouveau nom (dateduejour)
ça marche en pas a pas mais pas en vitesse normale !!!!!
c'est pour cela que je pense a un pb de lien obdc
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:efF1WFDYEHA.4092@TK2MSFTNGP11.phx.gbl...
Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans le
classeur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sans
sauvegarder les mises à jour. Ce n'est pas un problème lié à
l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%23CYEHA.1684@tk2msftngp13.phx.gbl...
Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall
pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
Bonjour Julius,
Si tu as seulement des QueryTable à rafraîchir, tu peux utiliser ceci :
'--------------------------
Sub MiseAJourODBC()
Dim Sh As Worksheet
Dim Qt As PivotTable
For Each Sh In Worksheets
For Each P In Sh.pivotables
Qt.Refresh False
Next
Next
Set Sh = Nothing: Set Qt = Nothing
End Sub
'--------------------------
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%
Bonjour
et Merci
C'est bien ce que je veux faire ouvrir en lecture seul actualiser mes lien
puis enregistrer sous un nouveau nom (dateduejour)
ça marche en pas a pas mais pas en vitesse normale !!!!!
c'est pour cela que je pense a un pb de lien obdc
"michdenis" a écrit dans le message de
news:Bonjour Julius,
Workbooks.Open Filename:=Source & Fichier, ReadOnly:=True
Comme tu ouvres ton fichier en Lecture seule, Tu vas certainement avoir
des problèmes à effectuer une sauvegarde dans leclasseur lui-même. Tu auras le choix entre enregistrer tes mises à jour
sous un nouveau nom ou, fermer ton classeur sanssauvegarder les mises à jour. Ce n'est pas un problème lié à
l'utilisation
d'un ODBC.
Salutations!
"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:%23zWtI%Bonjour
j'ai un pb surpenant
en VB j'ouvre une feulle excel pour j'utilise la commande refreshall
pour
actualiiser les lien 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'excecupte 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é
Je suppose que c'est l'actualisation odbc qui est le pb
J'ai teste une boucle pour faire une tempo (sleep () n'esxiste pas sous
excel !!!!)
mais rien de plus
Merci d'avance de vos idées
'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
