Bonjour

L

lanoe

XLDnaute Occasionnel

• 2 Octobre 2008

• #2

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

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 2 Octobre 2008

• #3

Re : Bonjour

Bonjour,
Essaies ceci

Code:

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

 

Vote positif 0 Vote négatif

kromitou

XLDnaute Occasionnel

• 2 Octobre 2008

• #4

Re : Bonjour

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

 

Vote positif 0 Vote négatif

kromitou

XLDnaute Occasionnel

• 2 Octobre 2008

• #5

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.......

..

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 2 Octobre 2008

• #6

Re : Bonjour

Bonjour,
Essaies ceci ...

Code:

    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

 

Vote positif 0 Vote négatif

kromitou

XLDnaute Occasionnel

• 2 Octobre 2008

• #7

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.

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 2 Octobre 2008

• #8

Re : Bonjour

Bonjour,
Il faut mettre ceci

Code:

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

 

Vote positif 0 Vote négatif

kromitou

XLDnaute Occasionnel

• 2 Octobre 2008

• #9

Re : Bonjour

Haaaaaaaaaaaa et bé voilà...

ça fonctionne bien....

Grand merci, Messieurs Renauder & Lanoe


@@++

 

Vote positif 0 Vote négatif