Discussion :

[Vincent32]

Bonjour à tous,

Je souhaiterais qu'à la fin de ma macro mon document excel soit sauvegardé automatiquement et que le nom de la sauvegarde soit le texte contenu dans une cellule bien défini.

Merci pour votre aide, bonne journée

Cordialement

Vincent

[MarcelG]

Bonjour,

Tu peux affecter le contenu d'une cellule à la propriété FileName de la propriété Saveas.

Regarde l'aide en ligne dans ton éditeur VBE sur ces mots-clés, et reviens si nécessaire.

[Vincent32]

Bonjour Marcel,

En fait j'ai trouvé quelques lignes de codes dans un des tutos proposé, mais j'ai du mal à l'adapter pourrais-tu m'aider à le décrypter ?

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
 
Sub TestSave ()
 
dim MonClasseur As Workbook 'déclaration de variable
Dim ws0 As Worksheet 'Déclaration des variables
    Set ws0 = Worksheets("Macro") 'Attribution de la valeur
Dim nom as String
Set nom= ws0.[E34]'nom du fichier
 
Set MonClasseur = Application.Workbooks.Add
With MonClasseur.Worksheets (1).Cells(1, 1)
.Value=1
.resize(100).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=100, Trend:=False
End With
MonClasseur.SaveCopyAs nom".xls"'la syntaxe est correcte ?
Debug. Print MonClasseur.Saved
End Sub

Merci pour ton aide

Cordialement,

Vincent

[MarcelG]

Salut Vincent,

La question est de savoir l'action que tu souhaites voir réalisée par ton code.
Ensuite, vient son développement.

Néammoins, quelques remarques :

- Généralement, les déclaration Dim débutent le code
- Suivent les affectations de variables aux objets par la mérhode Set
- Ces variables sont vidées en fin de code

Ex:

Code :

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

Set lavariable = Nothing

- Il ne faut pas abuser de ces affectations. Elles trouvent vraiment leur utilité dans les nombreux appels aux objets auxquels elles sont affectées.

Dans ton cas (la variable "wso" ne semble pas affectée dans ta proposition)

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
Sub TestSave()
 
Dim MonClasseur As Workbook 'déclaration de variable
Dim nom As String
 
nom = Sheets(1).[E34] 'nom du fichier
 
Set MonClasseur = Application.Workbooks.Add
 
With MonClasseur
        With .Worksheets(1).Cells(1, 1)
            .Value = 1
            .Resize(100).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=100, Trend:=False
        End With
        'Si sauvegarde d'une copie
        '.SaveCopyAs nom & ".xls"
        'Si sauvegarde du classeur actif
        .SaveAs Filename:=nom & ".xls"
End With
 
Set MonClasseur = Nothing
 
End Sub

[Golonne]

Code :

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

MonClasseur.SaveCopyAs "nom.xls"'la syntaxe est correcte ?

Bonjour,

Regarde plutôt la méthode SaveAs plutôt que SaveCopyAs. La première va enregistrer ton fichier tandis que la seconde va créer une copie de ce dernier.

Si ta macro est attachée à ton classeur alors tu peux utiliser :

Code :

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

ThisWorkbook.SaveAs Filename:="nom.xls"

Dans l'exemple de ton tuto le programme crée une variable objet MonClasseur qui réagit comme un objet workbook.

Pour répondre à ta question initiale, si le nom de ton fichier se trouve dans une cellule, récupère la valeur de cette cellule, affecte la à une variable string et passe cette variable comme paramètre de SaveAs.

Reviens moi si je ne suis pas clair.

Cordialement,

Guillaume

Edit : Désolé Marcel je n'avais pas vu ta réponse

[Vincent32]

Je n'ai pas encore essayé le code mais j'aimerais comprendre cette partie. Qu'est ce qu'il se passe et si j'ai plusieurs feuilles dans mon classeur ça marche également ?

Code :

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

1
2
3
4
5
With MonClasseur
        With .Worksheets(1).Cells(1, 1)
            .Value = 1
            .Resize(100).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=100, Trend:=False
        End With

Cordialement

Vincent

[MarcelG]

Salut Vincent,

Il te suffit de balayer la collection des feuilles de travail de ton classeur

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
Public Sub essai()
 
'le code précédent
 
Dim wk As Worksheets
 
With monclasseur
        For Each wk In .Worksheets
            With wk.Cells(1, 1)
                .Value = 1
                .Resize(100).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=100, Trend:=False
            End With
            'la suite du code
        Next wk
End With
'la suite du code
 
End Sub

[Vincent32]

Désolé mais je ne comprends toujours pas le code :

Qu'entends tu par : "le code précédent" et "la suite du code"

D'autre part j'ai du mal à saisir :

Code :

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

1
2
3
With wk.Cells(1, 1) ' pourquoi sélectionner une cellule en particulier (A1)?
                .Value = 1 'pourquoi lui attribuer une valeur ?
                .Resize(100).DataSeries Rowcol:=xlColumns, Type:=xlLinear, ' Step:=1, Stop:=100, Trend:=False'et là je ne cerne pas l'intérêt de cette ligne

Merci pour vos explications