création de fichier (ou pas)

Version imprimable

je n'ai pas l'habitude de manipuler les fichiers, merci de votre aide
dans mon code, je crée une feuille puis je l'exporte pour créer un nouveau classeur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sheets(nomdefeuille).Move On Error GoTo fin chemin = ThisWorkbook.Path & "\" nom = ActiveSheet.Name & ".xls" ActiveWorkbook.SaveAs Filename:=chemin & nom ActiveWorkbook.Close save MsgBox "un classeur " & Chr(10) & nom & Chr(10) & " a été créé dans le même répertoire que la base de donnée " _ & Chr(10) & chemin Exit Sub fin: c'est ici que j'ai besoin
ici,pour gerer le cas ou le fichier existe déja. windows envoie sa boite de dialogue : un fichier de ce nom existe déja, souhaitez vous le remplacer?
et donc, en cas de oui, pas de probleme, la macro se poursuit le fichier est crée, mais en cas de non, je voudrais que 1) le fichier ne soit pas créé, 2 )que le classeur qui a été créé soit fermé sans enregistrer, pour me ramener dans ma configuration initiale, c'est a dire seulement mon classeur ouvert.
et là, je seche lamentablement. et pas fastoche de trouver l'info en utilisant la recherche, ou alors, je suis pas en forme ce soir.
je pensais a un
for each workbook in chemin...
mais je m'en sort pas avec les dim wb as worbook ou dim wb = workbook
wb close false
bref, je crois que j'ai tout les mots, mais que j'arrive pas a les organiser
merci d'avance pour le coup de main

Bonjour Alsimbad,

Je ne sais pas si j'ai bien tout compris, mais si vous ajoutez :
Code:

1 2 3 4 5 nom = ActiveSheet.Name & ".xls" fexist = Dir(chemin & nom) if fexist = "" ActiveWorkbook.SaveAs Filename:=chemin & nom end if
Amicalement

29/06/2007, 05h44
alsimbad

Merci jacques jean,
ce n'est pas exactement ça. là tu dis:

Code:

si le nom n'existe pas alors créer le fichier

je cherche

Code:

en fonction de la boite de dialogue windows, créer ou ne ne pas créer.

( c'est a dire que si je répond oui, il écrase le fichier existant, si je répond nom, la création est abandonnées et il éfface ce fichier qu'il n'a pas encore sauvegardé. éventuellement, on peut prévoir une troisieme option, c'est qu'il demande un autre nom pour le fichier
a l'heure actuelle, meme si je répond non a cette boite, la macro se poursuit de la meme manier, mais il se produit une erreur entre le fait que je lui dise nom et le save as

bon, je crois que j'ai trouvé. j'ai fais
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sheets(nomdefeuille).Move On Error GoTo fin chemin = ThisWorkbook.Path & "\" nom = ActiveSheet.Name & " " & IIf(cléexport = "<>", "global", cléexport) & ".xls" ActiveWorkbook.SaveAs Filename:=chemin & nom ActiveWorkbook.Close save MsgBox "un classeur " & Chr(10) & nom & Chr(10) & " a été créé dans le même répertoire que la base de donnée " _ & Chr(10) & chemin Exit Sub fin: ActiveWorkbook.Close False MsgBox "Il s'est produit une erreur " & Chr(10) & "le classeur " & Chr(10) & nom & Chr(10) & " n'a pas pu etre créé "
en fait c'était assez simple. ça englobe tout les genre d'erreur. j'aurais préféré rebondir sur la boite "enregistrer sous" ou quelque chose du genre, mais c'est déja bien. je marque résolu, mais si quelqu'un a quelque chose de mieux, qu'il n'hésite pas
merci Jaques jean