Discussion :

[cameleon1970]

Bonjour,

Voici un code VBA me permettant non seulement de créer un nouveau fichier Excel mais aussi, de le sauvegarder automatiquement avec la date du jour :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub NewExcelDoc()
'
' NewExcelDoc Macro
    Dim MonFichier$
    MonFichier = "Migration_Report"
    ChDir "Z:\W7 Project\LaboMigration\BLM\"
    ActiveWorkbook.SaveAs Filename:="Z:\W7 Project\LaboMigration\BLM\" & MonFichier & "_" & FORMAT(Now, "dd-mm-yyyy") & ".xlsx", FileFormat:= _
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Set wbExcel = appExcel.Workbooks.Open("Z:\W7 Project\LaboMigration\BLM\") & MonFichier
End Sub

La dernière ligne de mon petit programme VBA n'est pas correcte, je le sais.
Ce que je voudrais, c'est que le fichier soit automatiquement ouvert et ce peu importe la date affectée. Il s'agit donc d'une variable et non d'un fichier ayant le même nom à chaque fois.

Comment puis-je faire ?

Merci à vous tous

Fred

[rvtoulon]

bonjour,
plusieurs problèmes se présente à toi.
Pour commencer,
Excel ouvre un fichier qui à une extension: .xls, .xlsx etc...
or ta variable n'a pas d'extension:

Code :

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

monfichier = "Migration_Report"

1) il faut redéfinir ta variable avec le "bon" nom de fichier, celui que tu lui donnes à l'enregistrement.

2) après ta ligne d'enregistrement ensuite corrige :

Code :

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

 Set wbExcel = appExcel.Workbooks.Open("Z:\W7 Project\LaboMigration\BLM\") & monfichier

par :

Code :

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

Set wbExcel = Workbooks.Open("Z:\W7 Project\LaboMigration\BLM\" & monfichier)

voici le principe pour ouvrir un fichier:
exemple j'ai un classeur qui se nomme test.xls dans le dossier c:\Test
je veux ouvrir ce classeur et l'instancier dans une variable:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim monfichier As String, chemin As String
Dim wbExcel As Workbook
 
monfichier = "Test.xls" 'le fichier que je veux ouvrir
chemin = "C:\Test\" 'le chemin où il se trouve
 
Set wbExcel = Workbooks.Open(chemin & monfichier)
 
End Sub

ou verras après pour le reste et si tu rencontres des erreurs merci de bien expliquer quelles sont-elles!

[cameleon1970]

Bonjour,

Merci de ta réponse. Elle me donne déjà quelques pistes.
Néanmoins, je ne comprends pas ton point 1) :

1) il faut redéfinir ta variable avec le "bon" nom de fichier, celui que tu lui donnes à l'enregistrement.

Pour info, le nom est généré à l'enregistrement et il n'y a pas d'autres nom.
Le nom générique est "Migration_Report".
A chaque création quotidienne d'un fichier de migration, le nom est complété par la date du jour.

Ensuite ce que je veux, c'est qu'immédiatement, il m'ouvre ce nouveau fichier.

Je teste et je te tiens informé

Merci beaucoup à toi et à tout le forum qui aidez les gens désireux d'apprendre.

Amicalement,

Fred

[cameleon1970]

Bonjour.

Suite à la dernière modification, le fichier se crée mais une succession d'erreurs se posent :

1. Lorsque j'exécute la Macro :



Pourtant il me crée bien plus ou moins le fichier :




2. J'appuie sur "OK" pour sortir de l'erreur 1 et j'arrive à cet écran :



3. Enfin, quand il me crée ce fichier, j'ai toujours le même problème ... à savoir la présence d'une seule feuille de calcul :



Merci pour vos infos,

Amicalement,

Fred

[cameleon1970]

Bjr RVTOULON,

Je viens de comprendre la nécessité de renommer le nom de départ ...
Il doit partir d'une valeur de départ et renommer cette valeur avec les bon paramêtres.
Est-ce comme celà que je dois le comprendre ?

Neanmoins, je ne vois pas trop comment correctement l'implémenter.

Merci d'avance,

Bien à toi,

Fred

[rvtoulon]

ton code actuel enregistre un fichier sous un nom : "Migration_report_24-04-2012.xlsx" ok?

mais tu donnes à la variable monfichier:

Code :

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

monfichier = "Migration_Report"

et tu cherches à ouvrir celui là et pas l'autre.

essai quelques choses comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Dim monfichier As String, chemin As String
Dim wbExcel As Workbook
 
    monfichier = "Migration_Report_" & Format(Now, "dd-mm-yyyy") & ".xlsx"
 
    chemin = "Z:\W7 Project\LaboMigration\BLM\"
 
    ActiveWorkbook.SaveAs Filename:=chemin & monfichier, FileFormat:= _
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
 
    Set wbExcel = Workbooks.Open(chemin & monfichier)

[cameleon1970]

Cher Hervé,

Je te remerci.

J'étais oqp à travailler sur le problème quand je me suis rendu sur le forum.
Là, j'ai constaté que nous étions sur la même piste.

Mais toi, tu avais la solution. ! Merci

A noter que j'ai du modifier l'extension de sauvegarde "xlsx" en "xls" car il ne reconnaissait soi-disant pas le format.

Enfin, ce n'est pas trop grave.

Pour moi le sujet est résolu.

J'ai un autre problème et j'aimerais voir si tu peux m'aider.

Il sera affiché dans quelques minutes.

Merci pour ton aide.

Amicalement

Fred