Discussion :

[capi81]

Salut le forum

Je souhaite intégrer une condition dans le code ci-dessous pour résoudre les messages d'erreur.

Mais avant voici mon besoin : j’ai un dossier qui contient plusieurs fichiers.

Le code ci-dessous permet d’ouvrir chaque fichier par clic d’un bouton de commande et de copier une plage donnée et de passer au fichier suivant.

Quelle condition insérer pour qu'en cas d'absence du fichier à traiter, je souhaite q'un message s'affiche et faisant ressortir le nom du fichier inexistant.
NB : le nom de la feuille a traiter est la feuille à ouvrir par ce code :[/CODE]Workbooks.Open Filename:=spath & sFile[/CODE]
J'ai essayé avec

Code :

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

on error resume next

mais je constate qu'il ferme le fichier qui contient le code.
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Ouv_Classeur_Copier()
 
'cette macro permet d'ouvrir chaque fichier d'un user
 
' pour copier sa plage C13:M61 et le coller sur sa feuille
 
' du classeur principal
 
Set wk1 = ThisWorkbook
 
sh = Sheets("MENU_DA").Cmde.Caption
 
spath = "C:\Users\" & Environ("username") & "\Desktop\TEST\"
 
sFile = Sheets("MENU_DA").Cmde.Caption & ".xlsm"
 
    wk1.Sheets(sh).Unprotect "dac2017"
 
   on error resume next
    Workbooks.Open Filename:=spath & sFile
 
    Range("C13:M61").Copy
 
    wk1.Sheets(sh).Range("C13").PasteSpecial Paste:=xlValues
 
Application.DisplayAlerts = False
 
ActiveWorkbook.Close Savechanges:=False
 
    wk1.Sheets(sh).Protect "dac2017"
 
Application.DisplayAlerts = False
 
End Sub

[Marc-L]

Bonjour,

quand un fichier n'existe pas, la fonction VBA   Dir   renvoie une chaine vide,

à tester donc avant l'ouverture du classeur et On Error est inutile …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[RyuAutodidacte]

Bonjour,

=> [XL-MAC 2016]

Code :

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

1
2
3
spath = "C:\Users\" & Environ("username") & "\Desktop\TEST\"
 
sFile = Sheets("MENU_DA").Cmde.Caption & ".xlsm"

et donc

Code :

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

spath & sFile

ne correspond pas à un chemin Mac

[capi81]

Bonjour Marc-L et RyuAutodidacte

Marc : je suis entrain de d'expérimenter ta solution.
Voici ce que j'ai mis :

Code :

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

If dir(spath & sfile)= "" then msgbox "Fichier inexistant :exit sub

RyuAutodidacte :

ne correspond pas à un chemin Mac

Vous avez raison je travail sous office 2016 et non sur MAC.
Marc : suis-je sur la bonne voie?

[Marc-L]

Oui, si le contenu de la variable du chemin est bon.     Effectuer déjà le test avec un fichier existant …

(Salut Ryu !   D'habitude je ne répond pas trop pour les MAC mais là je m'en suis douté …)

[RyuAutodidacte]

Re,

Vous avez raison je travail sous office 2016 et non sur MAC.

si cela est encore possible, modifier le 1er post pour mettre [XL-2016] au lieu de [XL-MAC 2016]
sinon demander à un admin. du forum de le changer (ce sera mieux pour les forumeurs faisant des recherches en vba …)

(Salut Ryu ! D'habitude je ne répond pas trop pour les MAC mais là je m'en suis douté …)

coucou Marc,
Bonne intuition ! - mais ceci dit si cela avait été pour MAC, tu le fais très bien