VBA copier/coller valeurs d'une feuille vers nouveau classeur Fermé

Question

Bonjour à tous, 

Je souhaiterai copier/coller les valeurs d'une feuille d'un fichier source (A1:N10000), vers un nouveau classeur avec une seule feuille, puis l'enregistrer sous un format "entité_date_heure_initiales" au format .csv. Vous l'aurez compris je ne suis pas un expert en VBA.. Grand merci pour votre aide.

Dim WB As Workbook
        Dim Username As String
        Dim BU As Range

Sheets("database CSV").Select
        Range("A1:N10000").Select
        'Range("A4").Activate
        Selection.Copy
        WB = Workbooks.Add
        ActiveSheet.Paste

'Demander les initiales de l'utilisateur'
        Username = Application.inputbox(" Vos initiales ? ", Type:=2)
        
        'Reprendre les initiales pour les insérer dans titre de sauvegarde'
        If Username = Empty Then
        MsgBox Prompt:="Vous ne vous êtes pas identifiez"
        End If

'Prendre la BU
        BU = Worksheets("JT_CASH_ALLOCATION").Range("A3").Select

'Enregistrer sous avec format sauvegarde'
        ChDir "C:\Users\...\..."
        WB.SaveAs Filename:="BU" & "_" & Format(Date, "ddmmyyyy") & "_" &   Format(Time, "hhmm") & "_" & Username, FileFormat:=xlCSVMSDOS _
        , CreateBackup:=False

'Message de validation de sauvegarde'
        MsgBox "Le document a bien été enrégistré", vbOKOnly


J'imagine que mon code est bourré de faute de syntaxe, je vous remercie pour votre aide.
Configuration: Windows 7 / Chrome 42.0.2311.90

thev · Answer

Bonjour,

Bon début.

Mes premières remarques  :
1- La définition d'objets tels que Workbook ou Range se fait avec l'instruction "set"
set WB = Workbooks.Add
set BU  = Worksheets("JT_CASH_ALLOCATION").Range("A3")

2- si ta BU se trouve sur ton classeur de départ, il faut la référencer par rapport à ce classeur et donc le définir au début de ta procédure comme ceci
set Wdépart = ActiveWorkbook  
puis
set BU  = Wdépart.Worksheets("JT_CASH_ALLOCATION").Range("A3")
et
WB.SaveAs Filename:=BU.Value & ... 

3- "Vous ne vous êtes pas identifié"  

4- A noter que le nom d'utilisateur est donné par :
nom_utilisateur = application.UserName
 
--

ThauTheme · Answer

Bonjour Needhelp, bonjour le forum,

Ton code légèrement modifié :

Sub Macro1()
Dim CS As Workbook
Dim OS As Worksheet
Dim CD As Workbook
Dim OD As Worksheet
Dim NU As Variant
Dim BU As String

Set CS = ThisWorkbook
Set OS = CS.Sheets("database CSV")
ici:
'Demander les initiales de l'utilisateur'
NU = Application.InputBox(" Vos initiales ? ", Type:=2)
If NU = False Then Exit Sub
'Reprendre les initiales pour les insérer dans titre de sauvegarde'
If NU = "" Then
    MsgBox "Vous ne vous êtes pas identifiez !"
    GoTo ici
End If
Set CD = Workbooks.Add
Set OD = CD.Sheets(1)
OS.Range("A1:N10000").Copy OD.Range("A1")
'Prendre la BU
BU = CS.Worksheets("JT_CASH_ALLOCATION").Range("A3").Value
'Enregistrer sous avec format sauvegarde'
ChDir "C:\Users\...\..."
WB.SaveAs Filename:="BU" & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmm") & "_" & NU, FileFormat:=xlCSVMSDOS _
, CreateBackup:=False
'Message de validation de sauvegarde'
MsgBox "Le document a bien été enrégistré", vbOKOnly
End Sub

VBA copier/coller valeurs d'une feuille vers nouveau classeur

2 réponses

Discussions similaires