Discussion :

[Esmax666]

Bonjour,

j'ai un tableau excel avec une 50ene de ligne qui contiennent des adresses de fichier excel. par contre l'ensemble des fichier excel n'existe pas. et donc lorsque je suis à ce code:

Code :

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

Set wb = Workbooks.Open(Filename:=Cells(i, 3))

Je reçois un message d'erreur comme quoi le fichier n'exsite pas, y a til une commande qu 'il existe pour ignorer cette erreur ?

j'ai essayé ceci:

Code :

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

On Error GoTo suite

mais cela n'est pas pris en compte ....

quelqu un a une idee du code à mettre?

Merci

[ouskel'n'or]

Une question : Tes cellules contiennent-elles le nom du répertoire et l'extension du nom de fichier ?
Sinon, pour tester l'existence d'un fichier dans un répertoire, tu peux utiliser

Code :

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

1
2
If Dir(Rep & NomFich & Extension) <> "" then _
     Workbooks.open Rep & NomFich & Extension

[DeaD78]

Salut,

Au début de ton programme :

Code :

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

Application.DisplayAlerts = False

A la fin :

Code :

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

Application.DisplayAlerts = True

Et le tour est joué !

Bon après-midi !

[Esmax666]

merci mais non j'ai toujours le message "Erreur 1004: l'adresse ou le nom n'est pas correct ...."

[Jean-Philippe André]

salut,
quelle attitude doit avoir ton code si le fichier n'existe pas ?

La meilleure façon de voir si un fichier existe est d'utiliser la fonction Dir()