manu_tella
XLDnaute Junior
Bonjour à tous,
Je souhaiterai savoir si il est possible de créer "automatiquement" un classeur avec un nom par défaut dans le cas ou l'utilisateur ne trouve pas son bonheur parmi les fichiers existants lors de l'ouverture de Application.FileDialog.
En fait j'ai un bout de code qui permet d'aller pointer dans un dossier un fichier Excel existant afin de le compléter. Malheureusement je n'arrive pas à gérer le cas ou l'utilisateur ne sélectionne pas de fichier car il ne trouve pas con bonheur... La seule méthode que j'ai trouvé c'est clic droit, créer un fichier excel et pointer dessus mais c'est pas simple et surtout pas intuitif.
Le morceau de code concerné
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
'Définit un nom de fichier par défaut
.InitialFileName = defaut & ".xls"
End With
Application.FileDialog(msoFileDialogOpen).Show
Chemin = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
NomFic_cible = Split(Chemin, "\")(UBound(Split(Chemin, "\")))
et après la suite du code fonctionne bien.
j'arrive à ouvrir la fenêtre avec un nom par défaut mais quand je fais ouvrir j'ai le message suivant:
"fichier introuvable, vérifiez le nom du fichier et ressayez".
ce que je souhaiterai c'est générer le fameux fichier excel "defaut.xls" si l'utilisateur n'a rien sélectionné d'autre
est-il possible de gérer cette erreur à partir de la fenêtre ou faut-il la gérer autrement?
je suis preneur de vos conseils
d'avance merci
manu
Je souhaiterai savoir si il est possible de créer "automatiquement" un classeur avec un nom par défaut dans le cas ou l'utilisateur ne trouve pas son bonheur parmi les fichiers existants lors de l'ouverture de Application.FileDialog.
En fait j'ai un bout de code qui permet d'aller pointer dans un dossier un fichier Excel existant afin de le compléter. Malheureusement je n'arrive pas à gérer le cas ou l'utilisateur ne sélectionne pas de fichier car il ne trouve pas con bonheur... La seule méthode que j'ai trouvé c'est clic droit, créer un fichier excel et pointer dessus mais c'est pas simple et surtout pas intuitif.
Le morceau de code concerné
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
'Définit un nom de fichier par défaut
.InitialFileName = defaut & ".xls"
End With
Application.FileDialog(msoFileDialogOpen).Show
Chemin = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
NomFic_cible = Split(Chemin, "\")(UBound(Split(Chemin, "\")))
et après la suite du code fonctionne bien.
j'arrive à ouvrir la fenêtre avec un nom par défaut mais quand je fais ouvrir j'ai le message suivant:
"fichier introuvable, vérifiez le nom du fichier et ressayez".
ce que je souhaiterai c'est générer le fameux fichier excel "defaut.xls" si l'utilisateur n'a rien sélectionné d'autre
est-il possible de gérer cette erreur à partir de la fenêtre ou faut-il la gérer autrement?
je suis preneur de vos conseils
d'avance merci
manu