Besoin d'aide pour save as par macro

[jofdm]

Bonjour à tous,
Je souhaite recopier la feuille CoA de mon classeur dans un nouveau classeur (jusque là ça va).
Ce nouveau classeur devrait être nommé d'après les valeurs de A1 et A2 de ma feuille CoA et laissez le choix à l'utilisateur du dossier de sauvegarde (c'est là que je bloque).
Je pensais utiliser Application.Dialogs(xlDialogSaveAs).Show mais comment prérenseigner le nom du fichier ?
Merci d'avance pour votre aide

 

[Pierrot93]

Re : Besoin d'aide pour save as par macro

Bonjour jofdm,

peut être comme ceci :

Application.Dialogs(xlDialogSaveAs).Show "nomclasseur.xls"

bonne journée
@+

 

[PascalXLD]

Re : Besoin d'aide pour save as par macro

Bonjour

Un autre essai en faisant choisir que le répertoire pour être sûr du nom

Dim objShell, objFolder, Chemin, SecuriteSlash

Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
Chemin = "C:\Windows\Bureau"
End If
If objFolder.Title = "" Then
Chemin = ""
End If

SecuriteSlash = InStr(objFolder.Title, ":")

If SecuriteSlash > 0 Then
Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ActiveWorkbook.SaveAs Filename:=chemin & "\" & [COLOR=Red]récup des valeurs ici[/COLOR] & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:=""

 

[jofdm]

Re : Besoin d'aide pour save as par macro

OK, merci de votre rapidité, je vais tester ça.
@ PascalXLD : quand dans ton code tu écris récup des valeurs ici , je dois taper un truc du style sheets("CoA").cells(2,"A").value ?

 

[PascalXLD]

Re : Besoin d'aide pour save as par macro

OK, merci de votre rapidité, je vais tester ça.
@ PascalXLD : quand dans ton code tu écris récup des valeurs ici , je dois taper un truc du style sheets("CoA").cells(2,"A").value ?

Oui en fonction de ton classeur aussi si besoin

 

[jofdm]

Re : Besoin d'aide pour save as par macro

OK encore merci, je teste ça de suite.

 

[jofdm]

Re : Besoin d'aide pour save as par macro

@ PascalXLD : encore une petite question : le chemin d'accès à mon fichier sera du style L:\Commun\PRODUCTION\Olivier\dossier cible.
Comment faire pour que la macro d'enregistrement m'amène directement à L:\Commun\PRODUCTION\Olivier ?
Merci d'avance ;-)

 

[PascalXLD]

Re : Besoin d'aide pour save as par macro

re

modifies la ligne

Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)

par

Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&,"L:\Commun\PRODUCTION\Olivier")

 

[jofdm]

Re : Besoin d'aide pour save as par macro

Merci Pascal, ça marche nickel.
Par contre, j'ai un autre petit souci : le code que tu m'as donné permet de recopier l'intégralité du classeur. Comme je ne souhaite que recopier la feuille dans laquelle j'envoie les données, j'ai modifié ton code comme suit :
ActiveSheet.SaveAs Filename:=Chemin & "\" & ActiveSheet.Cells(16, "B").Value & " " & ActiveSheet.Cells(18, "B").Value & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:=""
Et là, ça ne fonctionne pas : les fichiers obtenus portent le nom Book1, Book2 ... au fur et à mesure des essais.
Enfin dernier point, y a-t-il un moyen de refermer automatiquement le nouveau fichier créé ?
Merci d'avance

 

[jofdm]

Re : Besoin d'aide pour save as par macro

@ Pascal : c'est bon, j'ai résolu le problème du nom du fichier.

 

[PascalXLD]

Re : Besoin d'aide pour save as par macro

RE

ppour fermer le fichier

activeworkbook.close false

 

[jofdm]

Re : Besoin d'aide pour save as par macro

Pascal, un grand merci pour ton aide qui m'a permis de finaliser mon fichier en un temps record.
Bonne journée et @ sur le forum