Nouveau prob dans une macro EXCEL

[xmaz]

G a nouveau un prob pour une macro sous Excel.

Je souhaite faire ceci dans mon prog:

- Ouvrir un masque (fichier EXCEL).

- Ouvrir un fichier EXCEL contenant les données.

- Effectuer les copies entre c deux fichiers.

- Sauvegarder le fichier masque avec le nom =>

SUIVI_PROD (date) (heure)

Il me reste à faire la sauvegarde mais je n'arrive po à donner un nom valide et encore à retravailler ma chaine.

Voilà mon code:

ActiveWorkbook.SaveAs Filename:= _

    "C:\Documents and Settings\Stéfan\Bureau\SUIVI_PROD 11_03_03 12-12.xls", _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

Pour le filename, il faudrait faire un truc du style:

ActiveWorkbook.SaveAs Filename:= _

    "C:\Documents and Settings\Stéfan\Bureau\SUIVI_PROD" + {DATE} + {HEURE} ".xls", _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

Ca ne marche po ça car je n'arrive po à avoir la date sans les / et l'heure sans les :

[T0uT0uNeS]

Dc ton soucis c'est juste les / pour la date et le : pour l'heure ???

Bah tu n'as qu'a remplacer / et : par un caractere quelconque ou par _ ...

Je vois pas le probleme

[xmaz]

lol je c ça .

Mais c po ça le problème, c comment le programmer :)

[Irgoff]

Mais c po ça le problème, c comment le programmer :)

J'ai repondu a ton MP, par un autre MP...

Tu utilises les fonctions :

- Date : pour recuperer la date du jour

- Now : pour recuperer l'heure du jour

- Day, Month, Year, Hour, Minute, Second : pour decomposer ta date et ton heure.

- CStr : pour convertir en String.

Exemple :

Dim myDate as String
myDate = CStr(Day(Date))+"-"+CStr(Month(Date))+"-"+CStr(Year(Date))

pour avoir une date du style "18-11-2003"

Concretement : tu fais un copier/coller du MP que je t'ai envoye

J'espere que ca t'aide.

[T0uT0uNeS]

lol je c ça  .

Mais c po ça le problème, c comment le programmer :)

Bon alors je sais pas si ca va t'aider mais admettons que tu aies Heure qui s'affiche 06:32:12

bah si tu fais Temp = Format(Heure, "hh_mm_ss") et que tu affiches Temp ca va l'afficher 06_32_12

et tu dois pouvoir le mettre en nom de fichier ...

Je sais pas si ca va t'aider mais bon ...

[xmaz]

lol j'avais lu ton MP Irgoff, cété pour répondre a Toutounes.

Merci à vous deux, je vous si ça marche tt a l'heure.

[T0uT0uNeS]

- Date : pour recuperer la date du jour

- Now : pour recuperer l'heure du jour

- Day, Month, Year, Hour, Minute, Second : pour decomposer ta date et ton heure.

- CStr : pour convertir en String.

J'avais pas pensé a ca mais c'est aussi bien

Ca fait surement plus de lignes mais c'est bien plus propre que le Format ...

[Irgoff]

C'est marrant j'allais justement dire que le Format est plus prore...

[xmaz]

Autre question, comme je lance la macro au lancement du fichier EXCEL, si je sauvegarde le fichier sous un autre nom, g un problème.

Quand je l'ouvre, ben la macro se lance :(.

Y a un moyen de la supprimer avant de faire la sauvegarde ou alors une dernière question, comment faire pour récupérer une chaine dans un texte en l'occurence le chemin d'un fichier complet pour ensuite l'ouvrir dans la macro.

Peut être un truc dans le style là :

Dim Chemin1, Chemin2 As String

Open "c:\excel.ini" For Input As #1 'On ouvre le fichier

Line Input #1, Chemin1 'On lit la première ligne que l'on stock dans Chemin1

Line Input #1, Chemin2 'On lit la deuxième ligne que l'on stock dans Chemin2

Close #1

Open Chemin1 For Input As #1

Open Chemin2 For Input As #2

Est ce que c comme ça que l'on fait pour lire la deuxième ligne du fichier et ouvrir un fichier dans le chemin est contenu dans une variable