Sauver un fchier deplacer en vba

[teodormircea]

Bonjour tout le monde
Un petit coup de pouce pour une methode sauver comme un fichier excel

Merci 🙂

Sub DeplacerSheet()
    Dim ws As Worksheet, ss As Worksheet, FolderName As String, Wb As Workbook, s As String
    s = InputBox(Prompt:="Choisir sheet a deplacer")
    Application.ScreenUpdating = False
    FolderName = ThisWorkbook.Path
    For Each ws In ThisWorkbook.Worksheets
    
        If ws.Name = s Then
            If Wb Is Nothing Then
                ws.Move
                Set Wb = ActiveWorkbook
            Else
                ws.Move after:=ss
            End If
            Set ss = ActiveSheet
        End If
    Next ws
    ThisWorkbook.Activate
  RAMPLACER CE CODE PAR LA METHODE SAUVER COMME
    '[COLOR="Red"][B]'Wb.SaveAs FolderName _
    ''& "\" & Wb.Sheets(1).Name & ".xls"
   ' Wb.Close False[/B][/COLOR]
     MsgBox "Regarder dans" & FolderName & " pour le fichier"
    Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : Sauver un fchier deplacer en vba

Bonjour Theodor

pas sur d'avoir tout compris de ton besoin, mais s'il s'agit de déplacer une feuille vers un nouveau classeur, en enregistrant ce dernier, essaye peut être le code ci-dessous :

Option Explicit
Sub DeplacerSheet()
Dim s As String
    s = InputBox(Prompt:="Choisir sheet a deplacer")
    Application.ScreenUpdating = False
    Sheets(s).Move
    With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\" & .Sheets(1).Name & ".xls"
        .Close False
    End With
    Application.ScreenUpdating = True
    MsgBox "Regarder dans" & FolderName & " pour le fichier"
End Sub

bonne fin d'après midi
@+

 

[teodormircea]

Re : Sauver un fchier deplacer en vba

Merci pour ton aide
J'ai reussit une approche plus performante, voila le code pour servir a tout le monde😀

Sub Deplacer()

' Macro recorded 1/29/2009 by teodor
Dim s As String
Dim file_name As Variant


'
    ActiveSheet.Select
    ActiveSheet.Move
    
        ' Get the file name.
    file_name = Application.GetSaveAsFilename( _
        FileFilter:="Excel Files,*.xls,All Files,*.*", _
        Title:="Save As File Name")

    ' See if the user canceled.
    If file_name = False Then Exit Sub

    ' Save the file with the new name.
    If LCase$(Right$(file_name, 4)) <> ".xls" Then
        file_name = file_name & ".xls"
    End If
    ActiveWorkbook.SaveAs Filename:=file_name
    ActiveWorkbook.Close True
    
    
End Sub

 

[teodormircea]

Re : Sauver un fchier deplacer en vba

Question?
est-il possible d'avoir deja dans la fenetre de sauvegarde le nom du fichier prit d'apres le nom du feuillet sauve