Discussion :

[yanngolf]

Bonjour tout le monde,

Je ne connais pas du tout VBA, c'est pour ca que je fait appel à vous.

En résumé, Voila ma mission :
Je dois réaliser un script qui permet d'ouvrir un classeur XLS et de le sauvegarder en CSV dans un répertoire.


Explication :
Le Lorsqu'on ouvre le classeur xls classeur1.xls, il va rechercher des informations dans d'autres classeurs.
Le fichier ne contient qu'une seule page.
Il faut ensuite enregistrer le classeur1.xls sous le format csv pour l'importer dans un site Web.



Scénario :
Je cherche donc à réaliser un code qui :
- Ouvre un classeur XLS qui lui va rechercher des documents dans d'autres classeurs.
- Puis enregistre ou écrase le classeur sous le format CSV dans le répertoire c:/travail/mes_classeurs_csv/.

Ce script sera donc lancé en tâche plannifiée sous windows pour que cela s'effectue chaque soir.

Questions :
- Est-ce possible ?
- Est-ce compliqué pour un débutant ?
- Je peux trouver des script rapidement ?

Merci d'avance pour votre aide ! Je dois fournir un retour mais la je suis un peur perdu

[rcordonnier]

bonjour

pour ouvrir un fichier voici le code :

Code :

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

1
2
3
4
5
 
' ouverture du fichier 
    ChDir "Z:\Diffusion MMG\recette\Docjour"
    Workbooks.Open Filename:= _
        "Z:\Diffusion MMG\recette\Docjour\MOD_TPU839RP0.xls"

Ici les autres fonctions que tu veut mettre puis

pour la sauvegarde :

Code :

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

1
2
3
4
5
6
7
8
 
 ' Sauvegarde du fichier avant envoi
    ChDir "Z:\xxxxxxxxxx\recette\Docjour"
    ActiveWorkbook.SaveAs Filename:= _
        "Z:\xxxxxxxxxxx\recette\Docjour\MMG_TPU839RP0.XLS", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close

ici du donne le nom et l'extension que tu veut a ta sauvegarde.
bien cordialement