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 On Error Resume Next

On Error Resume Next

4 réponses
Avatar
claude HERRMANN
Bonjour à tous,

Je travaille sur XP Excel 2003

A partir d'un fichier "ouverture" j'ouvre "fichier_1" et "fichier_2".
Dans certains cas "fichier_1" ne peut pas etre ouvert.
Malgré la presence de On Error Resume Next il ne saute pas l'instruction.
(Vérifié en effectuant du pas a pas)
Si j'inverse "fichiers_1" et 2. fichier_2 s'ouvre puis fichier_1 egalement.
Il semble donc que l'instruction On Error Resume Next ne fonctionne pas dans
ce cas ?

Voici le code:

Private Sub Workbook_Open()
On Error Resume Next
Workbooks.Open Filename:=ActiveWorkbook.Path & "\fichier_1.xls"
Workbooks.Open Filename:=ActiveWorkbook.Path & "\fichier_2.xls"

End Sub
Signaler un problème avec ce contenu

4 réponses

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
Philippe Noss
Bonjour,
On Error Resume Next ne" saute" pas l'instruction, mais passe à
l'instruction suivante ( par exemple si ficher 1 n'est pas trouvé)
Pourquoi le fichier 1 ne peut il pas etre ouvert ?
Attention, il faut tester si le fichier est déja ouvert avant
Workbooks.Open..., car si c'est le cas, un message sera envoyé
demandant si l'on ouvrir à nouveau le fichier.
A +
Philippe NOSS
www.exefac.com
Avatar
claude HERRMANN
Bonsoir Philippe,

Merci de ta réponse. Je ne comprends pas pourqoui cela ne fonctionne pas.
Mon fichier 1 ne s'ouvre que lorsqu'une clé dongle est présente ( Applika).

Si j'execute en pas à pas le curseur devrait se positionner devant
l'instruction Workbooks de fichier 2, mais il revient au début de Workbooks
fichier 1, et ensuite recommence au niveau Private Sub...
La clé dongle pssède une instruction Close dans son Worbooks qui referme le
fichier 1 si la clé n'est pas présente.
Existe t'il une autre instruction permettant de résoudre ce problème ?

Merci d'avance pour ton aide. Ah j'oubliai ton site est pas mal .Moi je ne
suis qu'un amateur en VBA , je réalise des simulations sur Excel dans le
domaine mécanique et electrique.

Cordialement
Claude HERRMANN

Rappel:
Voici le code:
Private Sub Workbook_Open()
On Error Resume Next
Workbooks.Open Filename:¬tiveWorkbook.Path & "fichier_1.xls"
Workbooks.Open Filename:¬tiveWorkbook.Path & "fichier_2.xls"

End Sub
__________________________


"Philippe Noss" a écrit dans le message de news:

Bonjour,
On Error Resume Next ne" saute" pas l'instruction, mais passe à
l'instruction suivante ( par exemple si ficher 1 n'est pas trouvé)
Pourquoi le fichier 1 ne peut il pas etre ouvert ?
Attention, il faut tester si le fichier est déja ouvert avant
Workbooks.Open..., car si c'est le cas, un message sera envoyé
demandant si l'on ouvrir à nouveau le fichier.
A +
Philippe NOSS
www.exefac.com
Avatar
ClémentMarcotte
Bonjour,


Essaie avec cela:

Private Sub Workbook_Open()
On Error goto lhospicedevba
Workbooks.Open Filename:¬tiveWorkbook.Path & "fichier_1.xls"
Workbooks.Open Filename:¬tiveWorkbook.Path & "fichier_2.xls"
exit sub
lhospicedevba:
err.clear
resume next
End Sub
Avatar
claude HERRMANN
Bonsoir ClémentMarcotte,

Non, cela ne marche pas non plus. Je suppose que la clé engendre une
ouverture puis une fermeture du classeur fichier 1. Encore que meme là il
devrait continuer .
Bizarre non ?
En tout cas merci de ton aide
Cordialement
Claude HERRMANN


"ClémentMarcotte" a écrit dans le message de
news: %
Bonjour,


Essaie avec cela:

Private Sub Workbook_Open()
On Error goto lhospicedevba
Workbooks.Open Filename:¬tiveWorkbook.Path & "fichier_1.xls"
Workbooks.Open Filename:¬tiveWorkbook.Path & "fichier_2.xls"
exit sub
lhospicedevba:
err.clear
resume next
End Sub