Bonjour,
J'ai déjà posté quelque chose sur ce sujet mais ce n'était pas dans un topic dédié et je pense que certains ont eu du mal à comprendre pourquoi un topic de plusieurs années remontait à la surface
Bref, je veux :
Voilà mon code actuel :
J'ai un problème avec le premier GoTo 0 :
Ca fait un moment que je passe dessus, merci de m'aider
J'ai déjà posté quelque chose sur ce sujet mais ce n'était pas dans un topic dédié et je pense que certains ont eu du mal à comprendre pourquoi un topic de plusieurs années remontait à la surface
Bref, je veux :
- Activer mon classeur "EXPORT TEMPS"
- L'ouvrir s'il ne l'est pas déjà (donc l'activer)
- Demander à l'utilisateur où il est s'il n'est pas dans le répertoire que la macro connait (donc l'ouvrir donc l'activer)
Voilà mon code actuel :
Code:
[COLOR="Navy"]On Error Resume Next[/COLOR]
Workbooks("EXPORT TEMPS.XLS").Activate
[COLOR="Navy"]If [/COLOR]Err <> 0 [COLOR="navy"]Then[/COLOR]
[COLOR="navy"]On Error GoTo 0[/COLOR]
Workbooks.Open Filename:="C:\Etats - Excel\EXPORT TEMPS.XLS"
[COLOR="navy"]If [/COLOR]Err <> 0 [COLOR="navy"]Then[/COLOR]
[COLOR="Navy"]On Error GoTo 0[/COLOR]
MsgBox "Le fichier ""EXPORT TEMPS.XLS"" est introuvable"
UserForm2.Show [COLOR="Green"]'Il permet de demander où se trouve le fichier[/COLOR]
Workbooks.Open Filename:=UserForm2.Text_Dossier
[COLOR="navy"]End If[/COLOR]
[COLOR="navy"]End [/COLOR][COLOR="navy"]If[/COLOR]
J'ai un problème avec le premier GoTo 0 :
- Quand il y est, ça marche si le fichier est bien là où l'on pense
- Quand il n'y est pas, ça marche si le fichier n'est pas là où on l'attend (s'il y est, il l'ouvre mais envoie l'USF quand même)
Ca fait un moment que je passe dessus, merci de m'aider