Arreter la macro juste avant l'enregistrement

C

CHALET53

XLDnaute Barbatruc

• 12 Septembre 2013

• #2

Re : Arreter la macro juste avant l'enregistrement

bonjour,

Private Sub genererCSV_Click()
Feuil1.Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Stop
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\JULIEN\Documents\Import Vendange.csv", FileFormat:=xlCSV, _
CreateBackup:=True
End Sub

tu peux aussi mettre le nom dans une cellule et remplacer xlCSV par : range("A1").value (si le nom est dans cette cellule)

a+

 

Vote positif 0 Vote négatif

Y

Yohan

XLDnaute Occasionnel

• 12 Septembre 2013

• #3

Re : Arreter la macro juste avant l'enregistrement

salut un truc genre


Application.Dialogs(xlDialogSaveAs).Show

avant

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\JULIEN\Documents\Import Vendange.csv", FileFormat:=xlCSV, _
CreateBackup:=True

qui te permets de faire un enregistrer sous ne te conviens pas ????

 

Vote positif 0 Vote négatif

J

Joulsy

Guest

• 12 Septembre 2013

• #4

Re : Arreter la macro juste avant l'enregistrement

Merci à vous deux

CHALET53 à dit:

tu peux aussi mettre le nom dans une cellule et remplacer xlCSV par : range("A1").value (si le nom est dans cette cellule)

a+

Cliquez pour agrandir...

j'ai essayé comme tu dis :

Code:

Private Sub genererCSV_Click()
Cells.Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
        Application.Dialogs(xlDialogSaveAs).Show
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\JULIEN\Documents\Import Vendange.csv", FileFormat:=Feuil3.Range("A2").Value, _
        CreateBackup:=True
End Sub

mais il doit y avoir une erreur de syntaxe puis ce que ca bug, des idées ?

Et que veux dire :

Code:

 CreateBackup:=True

?

Merci

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 12 Septembre 2013

• #5

Re : Arreter la macro juste avant l'enregistrement

Si le nom complet du fichier (chemin + nom est en E1)

Private Sub genererCSV_Click()
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

a = Range("E1").Value
ActiveWorkbook.SaveAs Filename:= _
a, FileFormat:=xlCSV

End Sub

 

Vote positif 0 Vote négatif

J

Joulsy

Guest

• 12 Septembre 2013

• #6

Re : Arreter la macro juste avant l'enregistrement

Ca fonctionne, merci bcp !

 

Vote positif 0 Vote négatif