Ouverture d'un fichier Excel par VBA

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:

---

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 :ccool:

Fred

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:

---

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:

---

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

---

par :

Code:

---

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:

---

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!

Bonjour,

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

Citation:

---

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.:ccool:

Amicalement,:zoubi:

Fred

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 :

http://www.developpez.net/forums/att...1&d=1335259477

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


http://www.developpez.net/forums/att...1&d=1335259477

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

http://www.developpez.net/forums/att...1&d=1335259477

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 :

http://www.developpez.net/forums/att...1&d=1335259843

Merci pour vos infos, :ccool:

Amicalement,;)

Fred

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 ;)

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

mais tu donnes à la variable monfichier:

Code:

---

monfichier = "Migration_Report"

---

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

essai quelques choses comme ceci:

Code:

---

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)

---

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