Discussion :

[tioch]

Bonjour à tous,

J'ai un document avec de nombreuses données dont beaucoup de ne me servent pas à grand chose. Je voudrais donc créer un nouveau classeur avec seulement les données qui m'intéressent. Pour l'instant ca je sais le faire.
Par contre j'aimerai bien pouvoir
- choisir où l'enregistrer (avec la liste des repertoires qui s'affichent comme si on sauvegarder un fichier normalement) et
- pouvoir choisir le nom également (comme si on sauvegarder un fichier normalement).
- également j'aimerais que pour certaines cellules il n'y ai que la valeur (et non toute la formule) qui soit copiée.

Si quelqu'un a les bouts de code pour cela ca serait super sympa.

Merci d'avance

tioch

[francky74]

Salut,

Pour enregistrer avec le chemin et le nom du classeur:

Code :

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

1
2
Set NewBook = Workbooks.Add 'creation
NewBook.SaveAs "C:\chemin\NomDuClasseur.xlsm"

Et si il y a un message qui te demande si tu veux bien enregistrer ton classeur et que tu souhaite qu'il n'apparaisse pas, tu peux ajouter ceci au début de ton code :

Code :

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

Application.DisplayAlerts = False

[tioch]

Merci Francky.

Malheuresement pour la sauvegarde ce n'est pas exactement ce que je veux faire. Tout cela je sais le faire d'ailleur.
Je voudrais, pour enregistrer, que je doive choisir le repertoire dans un menu comme pour une vraie sauvegarde (où je peux naviguer dans tout l'ordinateur).

[biddal]

D'après mes recherches ceci devrait correspondre à ce que tu recherches :

Code :

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

Application.FileDialog(msoFileDialogSaveAs)

Je ne l'ai pas testé mais appriori cela a été approuvé par quelqu'un qui souhaitait faire la même chose que toi!

En espérant t'avoir aidé!

[francky74]

Salut !

En faisant cette macro pour tester, j'obtiens une erreur "utilisation incorrecte de la propriété":

Code :

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

1
2
3
4
Sub test()
Cells(1, 1) = "test"
Application.FileDialog (msoFileDialogSaveAs)
End Sub

Peux-tu nous donner le lien vers la discussion où tu l'as trouvé stp ?

merci,

Salut
... mais perso je ne m'y connais pas tellement c'était pour aider que j'ai donné cela ! Donc si cela ne convient pas j'en suis navré. J'essai d'aider au mieux avec mes petites connaissances lol.

Mais en fait nous nous aidons tous en en aidant les autres, on évolue sois même !
Moi aussi je suis un nabot en VBA, mais il faut se dire que le grand chêne un jour a lui aussi été un gland ....

Tu as raison :

Code :

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

1
2
3
4
Sub test()
Cells(1, 1) = "test"
Application.FileDialog(msoFileDialogSaveAs).Show
End Sub

Celui-ci fonctionne ! dépandemment de la version d'excel

[SfJ5Rpw8]

une petite recherche dans la

Comment utiliser la boîte de dialogue FileDialog ?

[tioch]

Ok merci biddal.
Il manque juste le .show pour pouvor l'afficher mais sinon c'est excatement ce que je cherchais.
Pour bbil je veux bien essayer de chercher dans le FAQ mais si je ne sais pas quoi aller chercher ca ne sert pas à grand chose tout de meme!
Merci à tous

tioch

[biddal]

De rien avec plaisir ! Bonne journée