Je voudrais enregistrer un fichier ouvert sous un nouveau=20
nom et dans un autre repertoire, voici mon code, quand je=20
click sur enregistrer il ne se passe rien :
Private Sub MnuEnregistre_Click()
Dim fichierEnr As String
Dim fichierOuv As String
=20
fichierOuv =3D Me.Caption 'chemin complet du fichier ouvert
=20
'Le r=E9pertoire de l'application sera le repertoire=20
initial du CommonDialog
CldSave.InitDir =3D "C:\MapMarket\Cartes Etudes"
' Attribue =E0 CancelError la valeur True
CldSave.CancelError =3D True
On Error GoTo ErrHandler
'nom du fichier
CldSave.fileName =3D "*.gcm"
' D=E9finit la propri=E9t=E9 Flags
CldSave.Flags =3D cdlOFNFileMustExist Or=20
cdlOFNPathMustExist
' D=E9finit les filtres
CldSave.Filter =3D "Cartes G=E9oconcept (*.gcm)"
' D=E9finit le filtre par d=E9faut
CldSave.FilterIndex =3D 1
' Affiche la bo=EEte de dialogue Ouverture
CldSave.ShowSave
' Affiche le nom du fichier s=E9lectionn=E9
fichierEnr =3D CldSave.FileTitle
MsgBox CldSave.fileName
Exit Sub
=20
ErrHandler:
'L'utilisateur a cliqu=E9 sur Annuler
Exit Sub
