j'utilise la macro ci-dessous pour récuperer des données provenant d'autres
fichiers Excel sans les ouvrir.
srcfile est le nom du fichier, myRS le nom du recordset extrait
Elle fonctionne tres bien à la maison même si les fichiers sont déjà ouverts
Sur mon lieu de travail,où les fichiers sont sur un disque partagé, la macro
me donne un message qui me dit que le fichier désiré est déjà ouvert et me
demande si je veux l'ouvrir en lecture seule.
Peut-on éviter ça ?
Merci d'avance ..
Olivier
Dim myConn As ADODB.Connection, myCmd As ADODB.Command
Dim HDR As String, myRS As ADODB.Recordset, RS_n As Integer, RS_f As Integer
On Error GoTo TraitementErreur
Set myConn = New ADODB.Connection
If TTL = True Then HDR = "Yes" Else HDR = "No"
myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & srcFile & ";" & _
"Extended Properties=""Excel 8.0;" & _
"HDR=" & HDR & ";IMEX=1;"""
Set myCmd = New ADODB.Command
myCmd.ActiveConnection = myConn
If srcSheet = "" Then
myCmd.CommandText = "SELECT * from `" & srcRange & "`"
Else
myCmd.CommandText = "SELECT * from `" & srcSheet & "!" & srcRange & "`"
End If
Set myRS = New ADODB.Recordset
myRS.Open myCmd, , adOpenKeyset, adLockOptimistic .....
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
Pierre Fauconnier
Bonsoir
Sans avoir testé, avant la ligne MyRs.Open..., insère ceci application.displayalerts = false
et réactive l'affichage par la suite avec application.displayalerts = true
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Olivier" a écrit dans le message de news: 4521778f$0$25923$
Bonjour à tous,
j'utilise la macro ci-dessous pour récuperer des données provenant d'autres fichiers Excel sans les ouvrir. srcfile est le nom du fichier, myRS le nom du recordset extrait Elle fonctionne tres bien à la maison même si les fichiers sont déjà ouverts Sur mon lieu de travail,où les fichiers sont sur un disque partagé, la macro me donne un message qui me dit que le fichier désiré est déjà ouvert et me demande si je veux l'ouvrir en lecture seule. Peut-on éviter ça ? Merci d'avance ..
Olivier
Dim myConn As ADODB.Connection, myCmd As ADODB.Command Dim HDR As String, myRS As ADODB.Recordset, RS_n As Integer, RS_f As Integer On Error GoTo TraitementErreur Set myConn = New ADODB.Connection If TTL = True Then HDR = "Yes" Else HDR = "No" myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & srcFile & ";" & _ "Extended Properties=""Excel 8.0;" & _ "HDR=" & HDR & ";IMEX=1;""" Set myCmd = New ADODB.Command myCmd.ActiveConnection = myConn If srcSheet = "" Then myCmd.CommandText = "SELECT * from `" & srcRange & "`" Else myCmd.CommandText = "SELECT * from `" & srcSheet & "!" & srcRange & "`" End If
Set myRS = New ADODB.Recordset myRS.Open myCmd, , adOpenKeyset, adLockOptimistic .....
Bonsoir
Sans avoir testé, avant la ligne MyRs.Open..., insère ceci
application.displayalerts = false
et réactive l'affichage par la suite avec
application.displayalerts = true
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Olivier" <olivier.nicod@wanadoo.fr> a écrit dans le message de news:
4521778f$0$25923$ba4acef3@news.orange.fr...
Bonjour à tous,
j'utilise la macro ci-dessous pour récuperer des données provenant
d'autres
fichiers Excel sans les ouvrir.
srcfile est le nom du fichier, myRS le nom du recordset extrait
Elle fonctionne tres bien à la maison même si les fichiers sont déjà
ouverts
Sur mon lieu de travail,où les fichiers sont sur un disque partagé, la
macro
me donne un message qui me dit que le fichier désiré est déjà ouvert et me
demande si je veux l'ouvrir en lecture seule.
Peut-on éviter ça ?
Merci d'avance ..
Olivier
Dim myConn As ADODB.Connection, myCmd As ADODB.Command
Dim HDR As String, myRS As ADODB.Recordset, RS_n As Integer, RS_f As
Integer
On Error GoTo TraitementErreur
Set myConn = New ADODB.Connection
If TTL = True Then HDR = "Yes" Else HDR = "No"
myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & srcFile & ";" & _
"Extended Properties=""Excel 8.0;" & _
"HDR=" & HDR & ";IMEX=1;"""
Set myCmd = New ADODB.Command
myCmd.ActiveConnection = myConn
If srcSheet = "" Then
myCmd.CommandText = "SELECT * from `" & srcRange & "`"
Else
myCmd.CommandText = "SELECT * from `" & srcSheet & "!" & srcRange &
"`"
End If
Set myRS = New ADODB.Recordset
myRS.Open myCmd, , adOpenKeyset, adLockOptimistic .....
Sans avoir testé, avant la ligne MyRs.Open..., insère ceci application.displayalerts = false
et réactive l'affichage par la suite avec application.displayalerts = true
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Olivier" a écrit dans le message de news: 4521778f$0$25923$
Bonjour à tous,
j'utilise la macro ci-dessous pour récuperer des données provenant d'autres fichiers Excel sans les ouvrir. srcfile est le nom du fichier, myRS le nom du recordset extrait Elle fonctionne tres bien à la maison même si les fichiers sont déjà ouverts Sur mon lieu de travail,où les fichiers sont sur un disque partagé, la macro me donne un message qui me dit que le fichier désiré est déjà ouvert et me demande si je veux l'ouvrir en lecture seule. Peut-on éviter ça ? Merci d'avance ..
Olivier
Dim myConn As ADODB.Connection, myCmd As ADODB.Command Dim HDR As String, myRS As ADODB.Recordset, RS_n As Integer, RS_f As Integer On Error GoTo TraitementErreur Set myConn = New ADODB.Connection If TTL = True Then HDR = "Yes" Else HDR = "No" myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & srcFile & ";" & _ "Extended Properties=""Excel 8.0;" & _ "HDR=" & HDR & ";IMEX=1;""" Set myCmd = New ADODB.Command myCmd.ActiveConnection = myConn If srcSheet = "" Then myCmd.CommandText = "SELECT * from `" & srcRange & "`" Else myCmd.CommandText = "SELECT * from `" & srcSheet & "!" & srcRange & "`" End If
Set myRS = New ADODB.Recordset myRS.Open myCmd, , adOpenKeyset, adLockOptimistic .....
