VBA Excel - Enregistrer un document dans 2 répertoires différents (.txt et .xls)Résolu

Question

Bonjour &#224; tous,



Je d&#233;bute en macro sous VBA (sous Excel)

Je recherche le moyen d'enregistrer un fichier Excel dans 2 r&#233;pertoires diff&#233;rents.

Un fichier aura l'extention .txt et l'autre .xls



J'ai vraiment tenter plein de truc, j'ai plus ou moins r&#233;ussi mais c'est vrament fastidieux. Il dois y avoir bien plus simple.



Voila le projet en quelques lignes :



La macro importe la page HTML d'un site (autoris&#233; par le dit site)

La page importer est d&#233;plac&#233; dans le workbook excel, un formatage du fichier selon mes besoins est effectu&#233;.

Tout &#231;a, pas de probl&#232;me.



Ensuite je souhaite sauvegarder le resultat de ce formatage.

1) Dans 2 repertoires diff&#233;rents. Exemple : 

    - C:\Mes Fichiers\Trait&#233;

    - D:\R&#233;sultat\Site





2) Avec 2 noms diff&#233;rents. Exemple :

    - Resultat_Site_"date"_"heure".xls

    - LeResultat_OK_"date"_"heure".txt

Ou "date" et "heure" sont la date et l'heure ou le fichier &#224; &#233;t&#233; trait&#233; (ou g&#233;n&#233;r&#233; peut importe)



Tout cela sans modifier le nom du fichier source qui contient la macro qui : Importe, formate, sauvegarde.





Mille merci aux personnes qui pourraient m'aider.

Si je n'ai pas &#233;t&#233; assez clair dans mes explications n'hesitez pas &#224; me demander plus d'info.



Merci encore et bonne journ&#233;e &#224; tous.

kalobit · Accepted Answer

salut,

effectue le traitement dans un nouveau classeur puis enregistre le deux fois.

dim WBK as workbook

set wbk = application.workbooks.add

traitement, mise en forme.... dans wbk

enregistrement du classeur
wbk.saveas "C:\Mes Fichiers\Trait&#233;\Resultat_Site_" & date & "_"& time & ".xls
enregistrement du fichier text
wbk.save "D:\R&#233;sultat\Site\LeResultat_OK_" & date & "_" & time & ".txt , xltextmsdos

voil&#224;

+++

altarez · Answer

Génial.

Merci beaucoup de ta réponse.
J'essaye tout sans plus tarder :-)

altarez · Answer

Lorsque la macro sauvegarde j'ai une erreur car : 

Resultat_Site_" & date & "_"& time & ". 

Génère un fichier avec des "/" (30/01/2006) et les "/" ne sont pas accepté 
par windows comme nom de fichier. (je pense que pour "time" ca sera pareil a 
cause des ":") 

Y'a t'il une solution pour contourner cela ?

J'ai penser a ça :

Annee = Year(Date)
Mois = Month(Date)
    If Mois < 10 Then
        Mois = "0" + Mois
    End If
Jour = Day(Date)
    If Jour < 10 Then
        Jour = "0" + Jour
    End If

et ensuite sauvegarder avec "AnneeMoisJour" & "_" & "time" .xls

Je pense que "time" va poser problème a cause des ":"

J'ai entendu parler de la fonction IsDate 
Une idée ?

Merci d'avance

kalobit · Answer

Salut, 

Pour ton pb, utilise la fonction format qui te permet de remplacer les / et les : par ce que tu veux. Par exemple, ici je mets des -

dim madate as string, mon heure as string

madate = format(date,"dd-mm-yy")
mon heure = format(time, "hh-mm-ss")

mon fichier = Resultat_Site_" & madate & "_"& monheure & ".xls"

mais tu peux faire 
madate = format(date, "dd...mm...yyyy")
ou ce qui te plaira.
+++
K@lobit

altarez · Answer

BOn et bien il me reste plus qu'a te dire un grand merci pour ton ecoute et ton aide.



Ca fonctionne niquel.



Merci encore et bonne journ&#233;e.

VBA Excel - Enregistrer un document dans 2 répertoires différents (.txt et .xls)

5 réponses

Discussions similaires