Discussion :

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour Alsimbad,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Amicalement

[alsimbad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

je cherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alsimbad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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