Copie de classeur

[nextrevolution]

Bonjour,

J'ai crée un classeur modéle et j'aimerais le garder vierge. J'utilise pour cela cette formule

ActiveWorkbook.SaveCopyAs "C:\chemin\nom classeur.xls"

J'aimerais savoir si c'est possible que l'utilisateur puisse choisir le chemin du dossier et le nom?

 

[Hulk]

Re : Copie de classeur

Hello Forum, Nextrevolution,

Comme ceci si c'est bien pour choisir le chemin d'enregistrement.

Application.Dialogs(xlDialogSaveAs).Show

Cdt, Hulk.

 

[nextrevolution]

Re : Copie de classeur

Merci Hulk,

Ta formule est mieux adapté mais il faudrait juste que le nom du fichier dans la boite de dialogue enregistrer sous prennent le nom indiqué dans ma TextBox si c'est possible?

 

[mromain]

Re : Copie de classeur

bonjour nextrevolution, Hulk

je te propose une autre solution :

Sub test()
Dim nomFichier As String, nomDefautFichier As String
nomDefautFichier = "blablabla"

nomFichier = Application.GetSaveAsFilename(InitialFileName:=nomDefautFichier, _
    filefilter:="Fichiers Excel, *.xls")
    
MsgBox nomFichier
End Sub

a+

 

[Hulk]

Re : Copie de classeur

Hello, Next, Mromain,

Ou encore comme ça peut-être...

Deux solutions, une depuis un UserForm et l'autre depuis la feuille.

Bon week, Hulk.

 

[Hulk]

Re : Copie de classeur

Re,

Avec des petites MsgBox de confirmation...

Cdt, Hulk.

 

[nextrevolution]

Re : Copie de classeur

Merci pour vos réponses.

A mon avis il faudra un mix entre les deux, l'userform de hulk avec le code de mromain.
Enfin faut que je regarde.
Je fait ça lundi et je vous tiens au courant.

Pour le moment j'ai mon fichier qui c'est mis en lecture seule et donc toutes mes sauvegarde dans l'userform fait bogué le fichier.

J'ai essayé de décocher toutes les options en rapport avec la lecture seule. Rien à faire, je cherche sur les forums une solution (apparament ca viens des fichiers temporaires, je verrais).

 

[vbacrumble]

Re : Copie de classeur

Bonsoir à tous

EDITION: code vba testé cette fois-ci et fonctionnel
(qui je viens de le voir est similaire à la proposition de Hulk de 08h17 , houps désolé )

Sub testenreg2()
Dim fic$
fic = InputBox("Saisir le nom de la copie de ce fichier?")
Application.Dialogs(xlDialogSaveAs).Show fic
End Sub

Une autre possibilité (qui ne fonctionne pas tel quel après test , voir plus haut )
(non testée car pas d'Excel ici)

sub testenreg()
Dim fic$
fic=InputBox("Saisir le nom de la copie de ce fichier?")
With Dialogs(xlDialogSaveAs)
.Name=fic
.Show
End With
end sub

 

[nextrevolution]

Re : Copie de classeur

Merci à vous tous, au final j'ai utilisé le code de vbacrumble car j'ai modifié ce que je voulais faire.

Par contre sur le même principe que enregistrer sous il faudrait que j'ouvre la fenêtre pour choisir le chemin du fichier, j'aimerais faire ca pour charger mon image.

C'est à dire pour:

Private Sub CommandButton1_Click()
Image2.Picture = LoadPicture [COLOR="Red"](c:/...)[/COLOR]
End

Qu'il y est une fenêtre qui s'ouvre pour montrer qu'elle image charger.

Avant on avait

Application.GetSaveAsFilename

Qu'elle est le nom pour sélectionner un fichier (image)?