Enregistrer sous .....

[wachoo31]

Bonjour à toutes et tous vous les excelliens de qualité

Mon problème du jour:

je voudrais créé une macro pour enregistrer une copie de feuille sous un nom de fichier défini par le contenu d'une cellule mais le gros problème est que je voudrais pouvoir a chaque fois choisir le répertoire de destination sans pouvoir changer le nom du fichier.

Je sais je suis compliqué mais bon. Cela est il possible et comment faire

 

[Bebere]

bonjour
'Enregistrement d'un fichier :
'Test si le répertoire de destination existe sinon le crée
'(adapté de J Walkenbach,
'Vasant Nanavati, microsoft.public.excel.programming)
'c par autre lettre
'tu remplace MonDossier par le nom du dossier
'idem MonFichier par le nom du fichier

Sub SaveInMyFolder()
Dim x As String, strPath As String

On Error Resume Next
strPath = 'c:\\MonDossier\\MonFichier.xls'
x = GetAttr(strPath) And 0
If Err <> 0 Then
MkDir strPath
End If
ActiveWorkbook.SaveAs Filename:=strPath & '\\' & ActiveWorkbook.Name
End Sub
au revoir