sylv9000, le fil
Si tu cliques sur annuler, 'get openfilename' te renvoie 'False' donc gère le pb soit avec l'erreur:
on error resume next
Fichier = Application.GetOpenFilename(, , 'Ouvrir le fichier .koo')
puis après :
if err.number<> then ' ce que tu veux faire ici ' exit sub' par ex'
Workbooks.OpenText Filename:= _
Fichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(20, 1), Array(44, 1), Array(58, 1))
ou :
If mon fichier=false 'exit sub' par ex
A+
Précision:
Dans le premier cas il ya une erreur si tu déclare la variable Fichier as string ( toujours déclarer les variables) sinon, pas d'erreur mais valeur false
Message édité par: luki, à: 11/04/2005 11:26