Ci-dessous la fin du code de ma macro, qui ne fonctionne pas très bien.
Je souhaiterais qu'elle se mette en attente 2 secondes et recommence à
partir de l'instruction d'ouverture du fichier :="P:\EQUIPEMENT\base BU
CDG.xls.
Le problème est que si le fichier base BU CDG.xls est déja utilisé
momentanément par un autre utilisateur, la macro veut absolument exécuter
l'instruction suite: alors que je lui demande de repartir à depart: après
2secondes de délai.
Y a forcemment une erreur de mon code. Quelqu'un la voit ??
'En tête de module
Option Explicit
Public RunWhen As Variant 'programmation horaire
Public Const cRunIntervalSeconds = 2 ' 2secondes
Public Const cRunWhat = "debut" 'nom de l'instruction à exécuter
__________________________________________________
........
'si le répertoire P:\ n'existe plus momentanement
On Error GoTo attente:
debut :
ChDir "P:\EQUIPEMENT"
Workbooks.Open Filename:="P:\EQUIPEMENT\base BU CDG.xls"
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
LSteph
Bonjour,
Mets ton test d'ouverture de fichier en début de macro enlève les deux points après goto attente vire le goto suite inutile mets ta routine erreur en fin de macro,cette fois avec les deux points L'exit sub sortira si le code a été exécuté correctement ainsi: ..... On Error GoTo attente 'icil'ouverture 'icila suite de la macro ..... exit sub attente: 'ici le ontime qui rappelle ta macro si le fichier n'était pas libre end sub
'lSteph
DENIS" a écrit dans le message de news:
Bonjour à tous,
Ci-dessous la fin du code de ma macro, qui ne fonctionne pas très bien. Je souhaiterais qu'elle se mette en attente 2 secondes et recommence à partir de l'instruction d'ouverture du fichier :="P:EQUIPEMENTbase BU CDG.xls. Le problème est que si le fichier base BU CDG.xls est déja utilisé momentanément par un autre utilisateur, la macro veut absolument exécuter l'instruction suite: alors que je lui demande de repartir à depart: après 2secondes de délai. Y a forcemment une erreur de mon code. Quelqu'un la voit ??
'En tête de module Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2secondes Public Const cRunWhat = "debut" 'nom de l'instruction à exécuter __________________________________________________ ........ 'si le répertoire P: n'existe plus momentanement On Error GoTo attente: debut : ChDir "P:EQUIPEMENT" Workbooks.Open Filename:="P:EQUIPEMENTbase BU CDG.xls"
'continue l'instruction si pas de plantage P: suite:
Windows("base BU CDG.xls").Activate Sheets("Statistiques").Select Range("A5").Select
End Sub
Merci Denis
Bonjour,
Mets ton test d'ouverture de fichier en début de macro
enlève les deux points après goto attente
vire le goto suite inutile
mets ta routine erreur en fin de macro,cette fois avec les deux points
L'exit sub sortira si le code a été exécuté correctement ainsi:
.....
On Error GoTo attente
'icil'ouverture
'icila suite de la macro
.....
exit sub
attente:
'ici le ontime qui rappelle ta macro si le fichier n'était pas libre
end sub
'lSteph
DENIS" <DENIS@discussions.microsoft.com> a écrit dans le message de news:
DED1C9F3-77EB-4ADE-A4EE-C10DDE7BC7DE@microsoft.com...
Bonjour à tous,
Ci-dessous la fin du code de ma macro, qui ne fonctionne pas très bien.
Je souhaiterais qu'elle se mette en attente 2 secondes et recommence à
partir de l'instruction d'ouverture du fichier :="P:EQUIPEMENTbase BU
CDG.xls.
Le problème est que si le fichier base BU CDG.xls est déja utilisé
momentanément par un autre utilisateur, la macro veut absolument exécuter
l'instruction suite: alors que je lui demande de repartir à depart: après
2secondes de délai.
Y a forcemment une erreur de mon code. Quelqu'un la voit ??
'En tête de module
Option Explicit
Public RunWhen As Variant 'programmation horaire
Public Const cRunIntervalSeconds = 2 ' 2secondes
Public Const cRunWhat = "debut" 'nom de l'instruction à exécuter
__________________________________________________
........
'si le répertoire P: n'existe plus momentanement
On Error GoTo attente:
debut :
ChDir "P:EQUIPEMENT"
Workbooks.Open Filename:="P:EQUIPEMENTbase BU CDG.xls"
Mets ton test d'ouverture de fichier en début de macro enlève les deux points après goto attente vire le goto suite inutile mets ta routine erreur en fin de macro,cette fois avec les deux points L'exit sub sortira si le code a été exécuté correctement ainsi: ..... On Error GoTo attente 'icil'ouverture 'icila suite de la macro ..... exit sub attente: 'ici le ontime qui rappelle ta macro si le fichier n'était pas libre end sub
'lSteph
DENIS" a écrit dans le message de news:
Bonjour à tous,
Ci-dessous la fin du code de ma macro, qui ne fonctionne pas très bien. Je souhaiterais qu'elle se mette en attente 2 secondes et recommence à partir de l'instruction d'ouverture du fichier :="P:EQUIPEMENTbase BU CDG.xls. Le problème est que si le fichier base BU CDG.xls est déja utilisé momentanément par un autre utilisateur, la macro veut absolument exécuter l'instruction suite: alors que je lui demande de repartir à depart: après 2secondes de délai. Y a forcemment une erreur de mon code. Quelqu'un la voit ??
'En tête de module Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2secondes Public Const cRunWhat = "debut" 'nom de l'instruction à exécuter __________________________________________________ ........ 'si le répertoire P: n'existe plus momentanement On Error GoTo attente: debut : ChDir "P:EQUIPEMENT" Workbooks.Open Filename:="P:EQUIPEMENTbase BU CDG.xls"
'continue l'instruction si pas de plantage P: suite:
Windows("base BU CDG.xls").Activate Sheets("Statistiques").Select Range("A5").Select
End Sub
Merci Denis
LSteph
voici ce que je te répondais: Bonjour,
Mets ton test d'ouverture de fichier en début de macro enlève les deux points après goto attente vire le goto suite inutile mets ta routine erreur en fin de macro,cette fois avec les deux points L'exit sub sortira si le code a été exécuté correctement ainsi: ..... On Error GoTo attente 'icil'ouverture 'icila suite de la macro ..... exit sub attente: 'ici le ontime qui rappelle ta macro si le fichier n'était pas libre end sub
'lSteph
"DENIS" a écrit dans le message de news:
Bonjour à tous,
Ci-dessous la fin du code de ma macro, qui ne fonctionne pas très bien. Je souhaiterais qu'elle se mette en attente 2 secondes et recommence à partir de l'instruction d'ouverture du fichier :="P:EQUIPEMENTbase BU CDG.xls. Le problème est que si le fichier base BU CDG.xls est déja utilisé momentanément par un autre utilisateur, la macro veut absolument exécuter l'instruction suite: alors que je lui demande de repartir à depart: après 2secondes de délai. Y a forcemment une erreur de mon code. Quelqu'un la voit ??
'En tête de module Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2secondes Public Const cRunWhat = "debut" 'nom de l'instruction à exécuter __________________________________________________ ........ 'si le répertoire P: n'existe plus momentanement On Error GoTo attente: debut : ChDir "P:EQUIPEMENT" Workbooks.Open Filename:="P:EQUIPEMENTbase BU CDG.xls"
'continue l'instruction si pas de plantage P: suite:
Windows("base BU CDG.xls").Activate Sheets("Statistiques").Select Range("A5").Select
End Sub
Merci Denis
voici ce que je te répondais:
Bonjour,
Mets ton test d'ouverture de fichier en début de macro
enlève les deux points après goto attente
vire le goto suite inutile
mets ta routine erreur en fin de macro,cette fois avec les deux points
L'exit sub sortira si le code a été exécuté correctement ainsi:
.....
On Error GoTo attente
'icil'ouverture
'icila suite de la macro
.....
exit sub
attente:
'ici le ontime qui rappelle ta macro si le fichier n'était pas libre
end sub
'lSteph
"DENIS" <DENIS@discussions.microsoft.com> a écrit dans le message de news:
DED1C9F3-77EB-4ADE-A4EE-C10DDE7BC7DE@microsoft.com...
Bonjour à tous,
Ci-dessous la fin du code de ma macro, qui ne fonctionne pas très bien.
Je souhaiterais qu'elle se mette en attente 2 secondes et recommence à
partir de l'instruction d'ouverture du fichier :="P:EQUIPEMENTbase BU
CDG.xls.
Le problème est que si le fichier base BU CDG.xls est déja utilisé
momentanément par un autre utilisateur, la macro veut absolument exécuter
l'instruction suite: alors que je lui demande de repartir à depart: après
2secondes de délai.
Y a forcemment une erreur de mon code. Quelqu'un la voit ??
'En tête de module
Option Explicit
Public RunWhen As Variant 'programmation horaire
Public Const cRunIntervalSeconds = 2 ' 2secondes
Public Const cRunWhat = "debut" 'nom de l'instruction à exécuter
__________________________________________________
........
'si le répertoire P: n'existe plus momentanement
On Error GoTo attente:
debut :
ChDir "P:EQUIPEMENT"
Workbooks.Open Filename:="P:EQUIPEMENTbase BU CDG.xls"
Mets ton test d'ouverture de fichier en début de macro enlève les deux points après goto attente vire le goto suite inutile mets ta routine erreur en fin de macro,cette fois avec les deux points L'exit sub sortira si le code a été exécuté correctement ainsi: ..... On Error GoTo attente 'icil'ouverture 'icila suite de la macro ..... exit sub attente: 'ici le ontime qui rappelle ta macro si le fichier n'était pas libre end sub
'lSteph
"DENIS" a écrit dans le message de news:
Bonjour à tous,
Ci-dessous la fin du code de ma macro, qui ne fonctionne pas très bien. Je souhaiterais qu'elle se mette en attente 2 secondes et recommence à partir de l'instruction d'ouverture du fichier :="P:EQUIPEMENTbase BU CDG.xls. Le problème est que si le fichier base BU CDG.xls est déja utilisé momentanément par un autre utilisateur, la macro veut absolument exécuter l'instruction suite: alors que je lui demande de repartir à depart: après 2secondes de délai. Y a forcemment une erreur de mon code. Quelqu'un la voit ??
'En tête de module Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2secondes Public Const cRunWhat = "debut" 'nom de l'instruction à exécuter __________________________________________________ ........ 'si le répertoire P: n'existe plus momentanement On Error GoTo attente: debut : ChDir "P:EQUIPEMENT" Workbooks.Open Filename:="P:EQUIPEMENTbase BU CDG.xls"
