Discussion :

[Invité]

Bonjour,

Je reviens vers vous pour trouver une solution. Je sauvegarde un nouveau classeur par macro, mais dans le nom du classeur des caractères se rajoutent (%20), je n'ai pas compris pourquoi. Auriez-vous une idée?

voici le code que l'utilise:

Code :

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

1
2
3
4
chemin = ThisWorkbook.Path
nomfichier = "CmdP" & ThisWorkbook.Sheets("ConsultCMDP").Range("C2").Value
' j'ai essayé .Range("C2").text et [C2].Text mais j'obtiens le même résultat
ActiveWorkbook.SaveAs Filename:=chemin & nomfichier & ".xls"

Ceci est le nom obtenu: CmdPnov%202012.xls, j'ai en gras les caracères qui se rajoutent. je pense que c'est des espaces traduit ainsi par excel. Comment faire pour obtenir le nom du fichier: Cmdp nov 2012.

Pour info dans la cellule C2 j'ai cette formule:"=texte(C1;"mmm aaa")

Je vous remercie pour votre aide.

Cordialement,

[Marc-L]

Bonjour.

Code :

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

1
2
3
4
Sub Demo()
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\CmdP " & _
                          Replace(ThisWorkbook.Sheets("ConsultCMDP").[C2], "%20", " ") & " .xls"
End Sub

[Invité]

Bonjour,

Je te remercie beaucoup. J'avais entre temps trouvé qu'il fallait éliminer le chemin car j'enregistre dans le même répertoire.

Sinon, ton code fonctionne parfaitement. Encore merci!

Cordialement,

Bonjour, Bien que je sois débutant, j'édite mon code pour le partage et la critique.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Création_Classeur()
'
' Création nouveau Classeur + sauvegarde dans répertoire courant avec nom  du classeur contenu dans un cellule
Dim chemin As String, extension As String, nomfichier As String
Dim Fd As Variant
Fd = ThisWorkbook.Name
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
    'création nouveau classeur avec feuilles nommées
 
    Workbooks.Add.Activate
    Sheets("Feuil1").Name = "A"
    Sheets("Feuil2").Name = "B"
    Sheets("Feuil3").Name = "C"
 
    'copie
    Windows(Fd).Activate
    Sheets("Station").Select
    Columns("A:K").Select
    Selection.Copy
    'coller
    Windows(Workbooks(Workbooks.Count).Name).Activate
    Range("A1").Select
    Sheets("Station").Select
    ActiveSheet.Paste
 
'enregitrement classeur
extension = ".xls"
nomfichier = "CmdP " & ThisWorkbook.Sheets("ConsultCMDP").[C2]
With ActiveWorkbook
.SaveAs Filename:=nomfichier & extension
End With
ActiveWorkbook.Close
MsgBox "terminé!"
 
End Sub

Cordialement,

[Marc-L]

C'est parti !

• Correction du nom de fichier pas intégrée, donc retour au problème d'origine ‼

• Éviter ces affreux ralentisseurs de Select & Activate !

• La Méthode Copy d'un objet Range a un paramètre Destination, cf l'aide intégrée de VBA …

Exemple :

Code :

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

1
2
    ThisWorkbook.Sheets("Station").Columns("A:K").Copy _
        Workbooks(Workbooks.Count).Sheets("Station").[A1]