aide VBARésolu

Question

bonjour,
j'ai commencé à programmer en VBA sous excel. sa se passe pas mal sauf que des fois j'ai beau chercher je trouve pas. je vous demande donc de l'aide:
gmao = Application.InputBox(Prompt:="n'oubliez pas d'extraire dans résultat le RMP05 " & "& gmao & ", Title:="entrez votre code GMAO") 
Workbooks.Open Filename:="C:\Documents and Settings\ZINDIEN\Bureau\jeu flash" & gmao & ".xls" 

mon code fonctionne très bien sauf si le fichier n'existe pas dans le chemin indiqué. comment faire pour qu'il sorte de la macro sans poser de question ou simplement en disant que le fichier n'existe pas? 
merci d'avance

ma passion c'est d'apprendre.

us_30 · Accepted Answer

Bonsoir,

IL y a surement plusieurs solutions, mais la plus évidente c'est de vérifier l'existence du fichier avant... 
Pour cela un petit tour sur Codyx devrait te donner la solution... http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx

Regardes le code pour VB & VBA... bien sur...

Amicalement,
Us.

jrivet · Answer

Salut,
Ou bien utilises simplement la fonction Dir

If Dir("C:\Documents and Settings\ZINDIEN\Bureau\jeu flash\" & gmao & ".xls") <> vbNullString Then
   Workbooks.Open FileName:="C:\Documents and Settings\ZINDIEN\Bureau\jeu flash\" & gmao & ".xls"
End If , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Aide VBA

2 réponses

Votre réponse

Discussions similaires