Bouton enregistrer sous

[kawa]

Bonjour,

Quelqu'un saurait comment créer la macro suivante:
le clique sur un bouton ouvre une fenêtre enregistrer sous
une fois le nom choisi, jenregistre au format texte et sous le nom de fichier nom.xxx???

Si vous avez besoin d'infos pour résoudre cela je peux vous les fournir lol merci

 

[dg62]

Bonjour Kawa



une méthode simple pour générer ces bouts de codes est d'utiliser l'enregistreur de macro.
outils/macro/nouvelle macro
tu valides et tu executes toutes les actions correspondant à ton problème.
quand tu as terminé tu arrêtes l'enregistreur et tu regardes le code généré.
ci-dessous le code généré pour 'Enregistrer sous'

 Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2005 par Didier
'

'
    ActiveWorkbook.SaveAs Filename:='D:\\Mes documents\\Classeur1.xls', FileFormat _
        :=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
        False, CreateBackup:=False
End Sub

il ne reste plus qu'a coller le code sur un bouton.
le code généré n'est pas optimisé mais il fonctionne.



Cordialement

 

[kawa]

Effectivement mais de cette manière le chemin et le nom du fichier enregistré seront statiques et non modifiables par l'utilisateur?

 

[dg62]

re

Sub sauve()
Application.Dialogs(xlDialogSaveWorkbook).Show
End Sub

 

[Abel]

Bonjour kawa, dg62, le forum,

Il y a GetSaveAsFilename, aussi, qui permet de récupérer un chemin, et un nom de fichier. Voir même de 'forcer' (proposer) l'endroit où on veut enregistrer.

Regarde ce Lien supprimé

Abel.

 

[kawa]

looool cette fois ca enregistre pas automatiquement au format texte avec l'extension.xxx ))))

Y a t il une solution intermédiaire??????

J'ai vu dans l'aide qu'il fallait peut être utilisé :

Application.Dialogs(xlDialogSaveAs(******).Show

Les étoiles correspondent à des arguments xlbuiltInDialog mais je trouve pas comment utiliser ceci et encore moins si cela peut résoudre mon problème!!!!

 

[kawa]

Merci Abel et dg62, j'ai adapté le code à mes besoins!!!

Il est vrai que très souvent les questions que l'on se pose ont souvent déjà été traitées mais c'est quand même diffcile de trouver exactement ce qu'on a besoin dans tous les sujets existants.

Merci pour votre aide et bonne journée!!!

 

[kawa]

Je suis désolé de revenir à la charge mais je me rends compte que excel ne fait pas exactement ce que je souhaite, explication. Voici tout d'abord le code:

    FichierActif = ActiveWorkbook.Name
    CheminActif = ActiveWorkbook.Path & '\\*.xls'

    fichierrecherche = Application.GetSaveAsFilename(CheminActif, _
    fileFilter:='Fichiers D (*.dtt), *.dtt', Title:='Nom de fichier d au format texte')
    
    If Not (fichierrecherche = 'FALSE') Then
        ActiveWorkbook.SaveCopyAs FileName:=fichierrecherche, FileFormat _
        :=xlText, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
        False, CreateBackup:=False
    End If

Le programme me renomme la feuille active et me crée une copie du classeur. mais il me fait aussi une copie de la feuille active au format texte (ce que je souhaite!!!)

Comment faire pour que cela me crée juste une copie de la feuille active au format texte sans la renommer dans le classeur et sans faire une copie du classeur?????