Discussion :

[sonia599]

Bonjour,

Je me permet de revenir vers vous ayant été très satisfaite la dernière fois que je suis venu sur ce site.

Donc voila je fait appel à un fichier qui s'appelle structure clients mais ce fichier va se modifier chaque jour et s'appeller structure_clients_.2014-05-28.xls et cela va se modifier chaque jour

Code :

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

Set structure_clients_ = Application.Workbooks.Open(Filename:="C:\Users\SJH5594\Desktop\test\structure_clients_.xls")

Je voulais donc savoir s'il y'avait une solution pour que mon fichier que j'appelle se modifie également sans que je le tape moi même à la main.

Merci

[letudiant68]

Bonsoir, est-ce que c'est quelque chose comme ça que vous cherchez ?

Code :

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

Set structure_clients_ = Application.Workbooks.Open(Filename:="C:\Users\SJH5594\Desktop\test\structure_clients_." & Format(Now, "yyyy-mm-dd") & ".xls")

Si ce n'est pas le cas merci de donner plus de précisions.

[sonia599]

Bonjour letudiant68,

J'ai testé ce que tu m'as donné mais j'ai rencontré d'autres problèmes est ce que c'est normal que si je déclare un workbook qui ne correspond pas au fichier excel ou j'ai mit mon code cela ne fonctionne pas.

exemple:

Code :

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

Dim structure_clients_ As Workbook, structure_clients_gourmand As Workbook

quand je met le code dans mon fichier excel structure_clients_ cela fonctionne mais si je déclare un workbook autre que celui-ci cela ne fonctionne pas.

De plus,quand je déclare un workbook ou je met un point ou des chiffres

Code :

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

Dim structure_clients_.2014-06-03 As Workbook

il me le met en rouge il me dit que c'est faux.

Est ce que cela est normal ?

Merci d'avance

[letudiant68]

Bonjour, j'ai du mal à vous suivre, qu'essayez-vous de faire exactement ?

Les points sont interdits dans les noms de variables car ils sont utilisés en VBA pour marquer la différence entre un objet et un membre de cet objet.
Exemple : Workbook.Open
Workbook est un objet et Open est un membre de cet objet (une méthode pour être plus précis)

[Invité]

on vas utiliser le fichier comme un modèle!

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim structure_clients_ As Workbook
Set structure_clients_ = Application.Workbooks.Add("C:\MyTest\Classeur1.xlsm")
MonNouveauFichier = "C:\MyTest\toto.xlsm"
structure_clients_.SaveAs Filename:=MonNouveauFichier, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

[sonia599]

Je récuppère des rapports BO sous fichier excel chaque mois donc le nom de mon fichier se modifie chaque mois et il se modifie toujours de la même façon c'est à dire mon nom de fichier.ladate(yyyy-mm-dd).xls.

Je cherche à copier chacune des cellules que je récuppère dans un fichier excel et donc faire en sorte que chaque mois elle se modifie également de façon automatique.