Discussion :

[pubbins]

Bonjour a tous,

Je suis en train de faire une macro sous excel qui appelle plusieurs fichiers qui correspondent a un jour de donnees (qui sont appeles sous la forme yyyymmdd.xls)
Il arrive que parfois il manque un jour de donnees manque. Du coup quand excel arrive sur ce fichier et essaie de l'ouvrir. Pan ! Erreur, il trouve pas le fichier. Normal, il existe pas.
Comment je peux faire pour dire a ma macro, c'est pas grave, continue quand meme et saute ce jour-ci.

Autre petite question: pour travailler sur une fichier excel, est-on forcement oblige de l'ouvrir (et donc l'afficher a l'ecran) ou existe-il un moyen pour l'ouvrir sans l'afficher ?

Merci d'avance,

Pubbins

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
on error goto (numero de la ligne justeavant le next ,ou wile,ou loop

au plaisir

[pgz]

Bonjour.

Il ne faut pas en abuser, mais si tu as une seule ligne de code concernée, tu peux l'encadre par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
On Error Resume next
... ta ligne de code qui lève l'erreur
On ERRor goto 0

Tu peux aussi créer une fonction FileExists
Cette fonction est disponible avec la bibli IWSH.

Pour l'autre question, regarde en FAQ "lire et écrire dans un classeur fermé."

Cordialement,

PGZ

[Theze]

Bonsoir,

Pas nécessaire de gérer l'erreur, il suffit de contrôler l'existance du fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim Fichier As String
 
Fichier = "D:\MonDossier\MonFichier.xls"
 
If Dir(Fichier) <> "" Then
    'le code de traitement....
Else
    MsgBox "Le fichier '" & Fichier & "' est introuvable !"
End If

Hervé.