Incrementer nom fichier enregistrement sous

**pomny** · 02/11/2007, 09h39

Bonsoir à Tout le monde de Developpez.com.

Tout dabords, je dois vous dire que je suis un gros débuttant, j'essais mon tout premier exercice sous VB EXCEL, merci de votre indulgence

.

J'essai de mettre en place une macro, ses objectifs:
1° Imprimer le document Excel
2° Enregistrer celui-ci en incrementant le nom avec la date du jour automatiquement.
3° Effacer les données de certaines zones de saisie.

Le code à été obtenu à partir du menu "Outil/Macro/Enregister.."
...Début de code...

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
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/11/2007 par JEAN
'
 
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ChDir "D:\MES DOCUMENTS JEAN\MA_COMPTA"
Dim strDate As String
strDate = Date 'dd-mm-yy
ActiveWorkbook.SaveAs Filename:= _
"D:\MES DOCUMENTS JEAN\MA_COMPTA\BANQUE_VIERGE_2.1.xls" & Format(Date, "dd-mm-yy") & ".xls", FileFormat:=
xlNormal , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("C6:H36").Select
Selection.ClearContents
Range("K6:O36").Select
Selection.ClearContents
Range("R6:T36").Select
Selection.ClearContents
Range("R6:T6").Select
Selection.ClearContents
Range("U7").Select
Selection.ClearContents
Range("U6").Select
Selection.AutoFill Destination:=Range("U6:U36"), Type:=xlFillDefault
Range("U6:U36").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
End Sub

...Fin de code...

Si quelqu'un savais faire se serait top, moi je m'embrouille avec les macros

Quand j'exécute la macro j'ai un message d'erreur:

...Début code erreur...

Erreur de compilation:
Attendu: nom de type

...Fin code erreur...

Dans l'éditeur VB la page du source s'ouvre (Nom de fichier Excel.xls - [ThisWorkbook (Code)]

...Début code inscrit dans page...

Code :

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

1
2
3
4
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
SaveSetting "MyApp", "Startup", "Top", Range("A2")
End Sub

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
If Range("A1").Value <> 1 Then
Range("A2").Value = GetSetting(appname:="MyApp", section:="Startup",
key:="Top", Default:="=5"") + 1
Range("A1").Value = 1
End If
End Sub

...Fin code inscrit dans page...

Je pense que je vais pas me faire de copains sur ce coup là mais je continu à cherche aussi

Merci bien.
Jean.

**Jean-Philippe André** · 02/11/2007, 10h08

bonjour pomny, et bienvenue sur le forum

Comme on va pas essayer de tout faire d'un coup, je vais t'aider dans un premier temps sur l'incrémentation :
par soucis de lisibilité, on évite de mettre des . dans un nom de fichier.

Ici, je te conseille plutôt cette syntaxe :

Code :

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

1
2
3
4
ActiveWorkbook.SaveAs Filename:= _
"D:\MES DOCUMENTS JEAN\MA_COMPTA\BANQUE_VIERGE_2_1_" & Format(Date, "dd_mm_yy") & ".xls", FileFormat:=
xlNormal , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Autre point, ajoute cette ligne tout en haut de ton code, avant même ta macro :

Code :

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

Option Explicit

Ca te permettra que l'ordinateur te dise avant la compilation où sont les erreurs.

Bon courage

**pomny** · 02/11/2007, 10h52

Bonjour et grand merci jpcheck de m'aider.

Je n'accéde plus au code

lorsque je passe par "Outil/Macro/Choix de la Macro/Modifier"
Je n'ai plus rien, la fenêtre contenant mes macros est vide.

ça commence mal.

désolé !

**Jean-Philippe André** · 02/11/2007, 11h00

avec alt+F11 tu n'atteinds plus de code ?

**pomny** · 02/11/2007, 11h01

Envoyé par jpcheck

avec alt+F11 tu n'atteinds plus de code ?

Non, la page est toute vide

regarde : http://cjoint.com/?lckdOf1DqI

**Jean-Philippe André** · 02/11/2007, 11h06

il faut juste recopier le code que tu nous avais posté alors ^^
pense à mettre le code non pas dans les macros enregistrées, mais dans la feuille directement

**pomny** · 02/11/2007, 11h59

Envoyé par jpcheck

il faut juste recopier le code que tu nous avais posté alors ^^
pense à mettre le code non pas dans les macros enregistrées, mais dans la feuille directement

Voila, je viens de recoller le code, lorsque j'appuis sur le bouton auquele la macro est affectée, l'appli de VB s'ouvre et cela est sélectionner:

Ci dessous s'est surligné en jaune:
Sub Macro1()

Ceci est sélectionné:
ActiveWorkbook.SaveAs Filename:= _
"D:\MES DOCUMENTS JEAN\MA_COMPTA\BANQUE_VIERGE_2_1_" & Format(Date, "dd_mm_yy") & ".xls", FileFormat:=

et j'ai le message d'erreur suivant à l'exécution de la macor:
Erreur de compilation:
Erreur de syntaxe

J'avoue que dans la partie de codesuivante:
Dim strDate As String
strDate = Date 'dd-mm-yy

J'ai remplacer les [-] par des [_] ainsi:
Dim strDate As String
strDate = Date 'dd_mm_yy

Autre chose, ma macro est de nouveau présente dans la liste des macros disponibles, et le code [Option Explicit] que tu m'a demandé de rajouter tout en haut de la page à été supprimé

Question: je dois le placer avant ceci ?

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/11/2007 par JEAN

**Jean-Philippe André** · 02/11/2007, 12h01

euh, quel est l'intérêt d'utiliser une variable strDate ?

**pomny** · 02/11/2007, 12h08

Envoyé par jpcheck

euh, quel est l'intérêt d'utiliser une variable strDate ?

Avant de m'adresser à vous, je recherché sur un forum qui traite d'Excel et il y avait un exemple d'incrementation de nom de fichier avec l'ajout de la date du jours exemple:
Avant: Mon_fichier.xls
Après: Mon-Fichier-dd/mm/yyyy.xls

**patbou** · 02/11/2007, 12h09

bonjour

"D:\MES DOCUMENTS JEAN\MA_COMPTA\BANQUE_VIERGE_2_1_" & Format(Date, "dd_mm_yy") & ".xls", FileFormat:=

FileFormat:= 'doit etre = à qq chose ou omis si facultatif

**pomny** · 02/11/2007, 12h12

Envoyé par patbou

bonjour

FileFormat:= 'doit etre = à qq chose ou omis si facultatif

Bonjour patbou et merci de ton intervention,
Peut-tu être plus précis STP ?

**patbou** · 02/11/2007, 12h24

pour enregistrer ton classeur tu utlise la methode saveas.
cette fonction necessite des arguments obligatoire et certain facultatif

SaveAs, méthode

Méthode SaveAs telle qu'elle s'applique à l'objet Workbook.

Cette méthode enregistre les modifications effectuées dans le classeur dans un autre fichier.

expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

expression Obligatoire. Expression qui renvoie un des objets ci-dessus.

Filename Argument de type Variant facultatif. Chaîne qui indique le nom du fichier à enregistrer. Vous pouvez inclure un chemin complet ; si vous ne le faites pas, Microsoft Excel enregistre le fichier dans le dossier en cours.

FileFormat Argument de type Variant facultatif. Format de fichier à utiliser quand vous enregistrez le fichier. Pour obtenir une liste des choix possibles, consultez la propriété FileFormat. Dans le cas d'un fichier existant, le format par défaut est le dernier format de fichier spécifié. Dans le cas d'un nouveau fichier, la valeur par défaut est le format de la version de Microsoft Excel en cours d'utilisation.

Password Argument de type Variant facultatif. Chaîne qui respecte la casse (maximum 15 caractères) et indique le mot de passe de protection à donner au fichier.

WriteResPassword Argument de type Variant facultatif. Chaîne qui indique le mot de passe de protection en écriture pour ce fichier. Si un fichier est enregistré avec un mot de passe et que ce mot de passe n'est pas fourni lorsque le fichier est ouvert, ce dernier est ouvert en lecture seule.

ReadOnlyRecommended Argument de type Variant facultatif. Affectez-lui la valeur True pour afficher, à l'ouverture du fichier, un message qui conseille d'ouvrir celui-ci en lecture seule.

CreateBackup Argument de type Variant facultatif. Affectez-lui la valeur True pour créer un fichier de sauvegarde.

AccessMode Argument XlSaveAsAccessMode facultatif.

XlSaveAsAccessMode peut être l'une de ces constantes XlSaveAsAccessMode.
xlExclusive (mode exclusif)
xlNoChange par défaut (ne modifiez pas le mode d'accès)
xlShared (share list)
Si vous ne spécifiez pas cet argument, le mode d'accès n'est pas modifié. Cet argument est ignoré si vous enregistrez une liste partagée sans changer le nom du fichier. Pour changer le mode d'accès, utilisez la méthode ExclusiveAccess.

ConflictResolution Argument XlSaveConflictResolution facultatif.

XlSaveConflictResolution peut être l'une de ces constantes XlSaveConflictResolution.
xlUserResolution (affiche la boîte de dialogue de résolution des conflits)
xlLocalSessionChanges (accepte automatiquement les changements de l'utilisateur local)
xlOtherSessionChanges (accepte d'autres changements à la place des changements de l'utilisateur local)
Si cet argument n'est pas spécifié, la boîte de dialogue de résolution de conflit s'affiche.

AddToMru Argument de type Variant facultatif. Affectez-lui la valeur True pour ajouter ce classeur à la liste des fichiers utilisés récemment. La valeur par défaut est False.

TextCodePage Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel.

TextVisualLayout Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel.

Local Argument de type Variant facultatif. La valeur True enregistre les fichiers en fonction de la langue de Microsoft Excel (y compris les paramètres du Panneau de configuration). La valeur False (valeur par défaut) enregistre les fichiers en fonction de la langue de Visual Basic pour Applications (VBA) (qui est généralement l'anglais des États-Unis, sauf si le projet VBA où Workbooks.Open est exécuté est un ancien projet VBA XL5/95 de niveau international).

Exemple
Cet exemple montre comment créer un classeur, inviter l'utilisateur à taper un nom de fichier et enregistrer le classeur.

Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName

en mettant l argument
FileFormat:= 'la fonction attend une valeur

**patbou** · 02/11/2007, 12h27

j avais oublié
tu remplaces par

Code :

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

1
2
3
 
ActiveWorkbook.SaveAs Filename:= _
"D:\MES DOCUMENTS JEAN\MA_COMPTA\BANQUE_VIERGE_2_1_" & Format(Date, "dd_mm_yy") & ".xls"

**LeForestier** · 02/11/2007, 12h50

bonjour,
D'accord avec patbou pour modification de la ligne.
Dans la macros que tu a fait en automatique tu peu supprimer les lignes en trop

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
'Range("C6:H36").Select
'Selection.ClearContents
'Range("K6:O36").Select
'Selection.ClearContents
'Range("R6:T36").Select
'Selection.ClearContents
'Range("R6:T6").Select
'Selection.ClearContents
'Range("U7").Select
Selection.ClearContents
Range("U6").Select
Selection.AutoFill Destination:=Range("U6:U36"), Type:=xlFillDefault
Range("U6:U36").Select
'ActiveWindow.ScrollRow = 4
'ActiveWindow.ScrollRow = 3
'ActiveWindow.ScrollRow = 2
'ActiveWindow.ScrollRow = 1
End Sub

Ce sont des actions d'approche que tu a fait manuellement
Tu peu aussi supprimé..

Code :

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

ChDir "D:\MES DOCUMENTS JEAN\MA_COMPTA"

Puisque tu donne le chemin complet dans la fonction save
A+

**pomny** · 02/11/2007, 13h03

Envoyé par LeForestier

bonjour,
D'accord avec patbou pour modification de la ligne.
Dans la macros que tu a fait en automatique tu peu supprimer les lignes en trop

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
'Range("C6:H36").Select
'Selection.ClearContents
'Range("K6:O36").Select
'Selection.ClearContents
'Range("R6:T36").Select
'Selection.ClearContents
'Range("R6:T6").Select
'Selection.ClearContents
'Range("U7").Select
Selection.ClearContents
Range("U6").Select
Selection.AutoFill Destination:=Range("U6:U36"), Type:=xlFillDefault
Range("U6:U36").Select
'ActiveWindow.ScrollRow = 4
'ActiveWindow.ScrollRow = 3
'ActiveWindow.ScrollRow = 2
'ActiveWindow.ScrollRow = 1
End Sub

Ce sont des actions d'approche que tu a fait manuellement
Tu peu aussi supprimé..

Code :

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

ChDir "D:\MES DOCUMENTS JEAN\MA_COMPTA"

Puisque tu donne le chemin complet dans la fonction save
A+

Bonjour et merci LeForestier.
Mais cela ne fonctionne pas.
Lorsque je supprime "D:\MES DOCUMENTS JEAN\MA_COMPTA"

le message d'erreur est
Erreur compilation:
Attendu: Fin d'instruction

et lorsque je supprime:

'Range("C6:H36").Select
'Selection.ClearContents
'Range("K6:O36").Select
'Selection.ClearContents
'Range("R6:T36").Select
'Selection.ClearContents
'Range("R6:T6").Select
'Selection.ClearContents
'Range("U7").Select

'ActiveWindow.ScrollRow = 4
'ActiveWindow.ScrollRow = 3
'ActiveWindow.ScrollRow = 2
'ActiveWindow.ScrollRow = 1

le message d'erreur est
Erreur compilation:
Erreur de syntaxe

**Jean-Philippe André** · 02/11/2007, 13h04

peux-tu nous préciser sur quel ligne ca coince stp ?

**LeForestier** · 02/11/2007, 13h07

Pour simplifié remet le code actuel

**pomny** · 02/11/2007, 14h01

Je croyais avoir trouver la réponse mais non.

voici mon code:

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
Sub MacroPrintSaveReinitialise()
'
' MacroPrintSaveReinitialise Macro
' Macro enregistrée le 02/10/2007 par Christophe
'
 
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.SaveAs Filename:= _
        "D:\MES DOCUMENTS CHRISTOPHE\MA_COMPTA\CAISSE_RESTO-AMIRAL_" & Format(Date, "dd_mm_yy"), FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    Range("C6:H36").Select
    Selection.ClearContents
    Range("K6:O36").Select
    Selection.ClearContents
    Range("G9").Select
    ActiveSheet.Unprotect
    Range("R6:T6").Select
    Selection.AutoFill Destination:=Range("R6:T36"), Type:=xlFillDefault
    Range("R6:T36").Select
    Range("W4").Select
    ActiveCell.FormulaR1C1 = "=IF(R[2]C18=""NEANT OR SELECT"",""0,00 "","""")"
    Range("U6").Select
    ActiveCell.FormulaR1C1 = "=IF(RC18=""NEANT OR SELECT"",""0,00 "","""")"
    Range("U6").Select
    Selection.AutoFill Destination:=Range("U6:U36"), Type:=xlFillDefault
    Range("U6:U36").Select
    Range("M16").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWorkbook.SaveAs Filename:= _
        "D:\MES DOCUMENTS CHRISTOPHE\MA_COMPTA\CAISSE_AMIRAL_VIERGE.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
End Sub

Au final le fichier EXCEL est enregistré avec la date en plus de son nom puis il est vidé des données saisies.

Mais il y a un mais, je reçois le message d'erreur suivant :
Erreur d'exécution '1004':
la méthode 'SaveAs' de l'objet '_Worbook' à échoué

Je fini par croire que s'est plus pour moi tout ça

vous remerciant à tous,
Jean.

**patbou** · 02/11/2007, 15h42

pour l enregistrement ceci est suffisant

Code :

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

1
2
3
 
ActiveWorkbook.SaveAs Filename:= _
"D:\MES DOCUMENTS CHRISTOPHE\MA_COMPTA\CAISSE_RESTO-AMIRAL_" & Format(Date, "dd_mm_yy")

**pomny** · 02/11/2007, 17h58

Envoyé par patbou

pour l enregistrement ceci est suffisant

Code :

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

1
2
3
 
ActiveWorkbook.SaveAs Filename:= _
"D:\MES DOCUMENTS CHRISTOPHE\MA_COMPTA\CAISSE_RESTO-AMIRAL_" & Format(Date, "dd_mm_yy")

Merci patbou.
Je test desuite.

Sais-tu si l'erreur 1004 est en rapport avec cette syntaxe ?

Incrementer nom fichier enregistrement sous

Macros et VBA Excel

Discussions similaires

Partager

Partager