Discussion :

[benoitvdh]

Bonjour à tous.

Je suis novice dans le VBA et je souhaiterais Copier des colonnes dans un nouveau classeur et l'enregistrer sous le nom entré dans une cellule.
J'ai essayé avec l'enregistreur de macro mais ça coince pas mal.

Si quelqu'un pouvait m'apporter son aide précieuse, je serais très reconnaissant.

Merci d'avance pour vos conseils

[defluc]

Bonjour,
Qu'est-ce qui coince ?
Cordialement

[benoitvdh]

Bonjour Defluc,

Il me dit erreur de syntaxe pour la copie des colonnes et je ne sais pas comment lui donner l'instruction de prendre le contenu de la case B13 pour nommer le classeur et l'enregistrer.

Merci pour ton aide

[defluc]

Pour la copie de colonne, inspires toi de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim FromSh As Worksheet, ToSh  As Worksheet
 
  Set FromSh = ThisWorkbook.Sheets(x)
  Set ToSh = ThisWorkbook.Sheets(y)
 
  FromSh.Columns(i).Copy
  ToSh.Cells(1, DestCol).Insert
 
  Set FromSh = Nothing
  Set ToSh = Nothing

Et pour la sauvegarde,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveAs Filename:= ThisWorkbook.Sheets(x).Cells("B13")

[benoitvdh]

Merci beaucoup Defluc,

Pour le copier/coller, ça fonctionne nikel.
Avec le code de la sauvegarde, si je souhaite qu'il le fasse avec le contenu de la cellule B13 dans un dossier qui se trouve dans le dossier où le fichier avec la macro sera, je dois le modifier comment?

Merci pour ton aide

Pour le moment, ceci fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Columns("A:E").Select
    Selection.Copy
    Workbooks.Add
    Columns("A:E").Select
    ActiveSheet.Paste
    Range("C14").Select
    Application.CutCopyMode = False
    ChDir "C:\2014"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\2014\2.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Range("A20").Select

Mais ce que je souhaiterais modifier, c'est le 2.xlsx

[defluc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveAs Filename:= ThisWorkbook.Path & "\" & ThisWorkbook.Sheets(x).Cells("B13")

[benoitvdh]

Il me répond:

Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.

ça veut dire quoi?

Pour simplifier, comment devrais-je faire s'ouvrir la boite de dialogue "Enregistrer sous"?

[benoitvdh]

J'ai réussi.

Voiçi ce que ça donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub enreg_devis_0()
'
' enreg_devis_0 Macro
'
 
'
    Columns("A:E").Select
    Selection.Copy
    Workbooks.Add
    Columns("A:E").Select
    ActiveSheet.Paste
    Range("C14").Select
    Application.CutCopyMode = False
    ChDir "C:\2014"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\2014\" & Range("C14").Value & ".xls", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Range("A20").Select
End Sub

Merci beaucoup pour ton aide.

[defluc]

ça marche mais c'est un peu lourd comme programmation.

A l'avenir, il faut éviter les "Select". Ils ralentissent le programme et créent de clignotement de l'écran.

Mon code devrait fonctionner.

Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.

Cela provient probablement du fait que tu n'as pas remplacé x par le numéro ou le nom de la feuille.