Bonjour

[kromitou]

Bonjour,


Je voudrais faire une commande Bouton du style :

ENREGISTRER SOUS.

je voudrais avoir un bouton de commande

et quand on clic dessus , cela nous emmener directement dans un certain dossier

(je suis sous serveur)

ex : "I:\2-chapon-2007\Affaipa\...

ensuite il ne resterais qu'a clic sur enregistrer


Voilà voilà ........


Merci d'avance..

 

[lanoe]

Re : Bonjour

Bonjour,

Cette macro:

Copie la feuille en cours
ouvre un nouveau fichier
colle la feuille dans le nouveau fichier
selectionne le nom du fichier situé en AA1
et propose de l'enregistrer

A adapter...

Sub enregistrerfact()
'
' enregistrerfact Macro
' Macro enregistrée le 24/08/2007 par ABC
'

'
Cells.Select
Selection.Copy
Range("a1").Select
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.DisplayGridlines = False
Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("aa1").Value)
End Sub

lanoe

 

[RENAUDER]

Re : Bonjour

Bonjour,
Essaies ceci

ChDrive "I:"
ChDir "I:\2-chapon-2007\Affaipa\"

 

[kromitou]

Re : Bonjour

nan, ça va po........ ça fonctionne po

 

[kromitou]

Re : Bonjour

Private Sub CommandButton2_Click()
Sheets("NOM").Select
Sheets("NOM").Copy Before:=Sheets(2)
Application.Dialogs(xlDialogSaveAs).Show

Sheets("NOM (2)").Select
ActiveWindow.SelectedSheets.Delete

End Sub

sur cet exemple , cela m'ouvre la Fenêtre Enregistrer sous....mais je voudrais que ça ouvre un Dossier qui ce trouve dans un certain emplacement.......

..

 

[RENAUDER]

Re : Bonjour

Bonjour,
Essaies ceci ...

    ChDrive "I:"
    ChDir "I:\2-chapon-2007\Affaipa\"
    FileSVG = Application.GetSaveAsFilename( _
              fileFilter:="Excel Files (*.xls), *.xls")
    If FileSVG = "" Then End
     ActiveWorkbook.SaveAs Filename:=FileSVG, FileFormat:=xlNormal, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

 

[kromitou]

Re : Bonjour

Private Sub CommandButton2_Click()
Sheets("NOM").Select
Sheets("NOM").Copy Before:=Sheets(2)

ChDrive "I:"
ChDir "I:\2-BURET-2007\Affa\"
FileSVG = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
If FileSVG = "" Then End
ActiveWorkbook.SaveAs Filename:=FileSVG, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=eric

Sheets("NOM (2)").Select
ActiveWindow.SelectedSheets.Delete

End Sub


Bon voilà ce que ça me donne.....ça fonctionne mais..... il faudrait juste que je puisse àvoir le nom qui s'affiche (faisantrapporte à une cellule ) comme dans l'exemple de LANOE.

 

[RENAUDER]

Re : Bonjour

Bonjour,
Il faut mettre ceci

FileSvg = Application.GetSaveAsFilename(ActiveSheet.Range("AA1").Value, _
                                            fileFilter:="Excel Files (*.xls), *.xls")

 

[kromitou]

Re : Bonjour

Haaaaaaaaaaaa et bé voilà...

ça fonctionne bien....

Grand merci, Messieurs Renauder & Lanoe


@@++