Discussion :

[sepultura]

bonjour, je recherche a créer une macro qui me permettrais d' enregistrer sous format XLS mes fichiers ouvert en format XLSX.

je souhaiterais pouvoir dans l'ordre les :

- enregistrer sous XLS dans un répertoire défini
- fermer le fichier sauvegarder

après quand cela fonctionnera, j'aimerais rajouter le faite de lui dire de faire la même pour tout les fichier XLSX qui ce trouve dans un dossier précis.
kit a faire un dossier type où je déplace mes fichier (dossier source) et que cela me les enregistres dans un autre dossier type (dossier sav).

je ne sais pas si j'arrive a me faire comprendre parfaitement.

pourriez vous m'aidez s'il vous plait.

merci d'avance.

Nicolas

[patricktoulon]

bonjour

ta demande implique que tu travaille avec au moins la version 2007 de excel vu l'extention
pour cela rien de plus simple utilise la fonction
workbooks.open(chemincomplet du fichier)
activeworkbook.save as.......

tape F1 tu devrais trouver ton bonheur

au plaisir

[sepultura]

j'y arrive pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub sepulutra()
'
' sepulutra Macro
'
' Touche de raccourci du clavier: Ctrl+m
'
 
' ouverture du fichier
    ChDir "D:\chemin\source\"
    Workbooks.Open Filename:= _
        "D:\chemin\source\.xlsx"
 
 
 ' Sauvegarde du fichier avant envoi
    ChDir "D:\chemin\result\"
    ActiveWorkbook.SaveAs Filename:= _
        "D:\chemin\result\.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
 
    End Sub

je dois me gourrer cela ne fonctionne pas

[titou31000]

Qu'est-ce qui ne fonctionne pas? Message d'erreur? Résultat inattendu? Peux-tu préciser?

[sepultura]

j'ai effacer l'ouverture des fichier, j'ouvrirais tous mes fichiers en masse et lancerais ma macro.

j'ai ceci comme erreur

erreur d'execution 1004
la méthode 'saveas' de l'objet'_workbook' a echoué

[patricktoulon]

re

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub conversion_xlsx_to_xls_fichier() 
application.displayalerts=false
' ouverture du fichier
Workbooks.Open Filename:= _
"D:\chemin\source\nomdufichier.xlsx"


' Sauvegarde du fichier avant envoi
ChDir "D:\chemin\result\"
ActiveWorkbook.SaveAs Filename:= _
"D:\chemin\result\nomdufichier.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close

End Sub

si tu ne donne pas de nom au fichier tu risque pas d'aller bien loin

au plaisir

[sepultura]

merci c'est très gentil le problème c'est que je recherche a faire cela en masse, j'ai plus de 600 fichier et s'il me faut le nom de chaque fichier a mettre dans la macro autant les ouvrir a la main et puis F12 choisir xls et entrer.

c'est pour cela que je recherchais plutôt un code qui puisse enregistrer un fichier au format XLS du même nom que l'original dans un dossier différent ou même pareil (trierais après par type) et me ferme le fichier ensuite. pour que je puisse ouvrir un 50 de fichier sur le même excel et puisse lancer ma macro sur les un après les autres.

je sais faire cela que sur des soft de dessins comme Photoshop

merci d'avance

[patricktoulon]

re
dans ce cas la il va te falloir faire une recherche sur les boucles recursives avec la fonction "dir" tu a ca dans l'aide aussi

un peu comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim chemin As String, filtre As String, fichiers As String
  chemin ="D:\chemin\source\"
   filtre = "*.xlsx" ' ou le filtre que tu veux ... par exemple "*.txt" ou même "toto*.*"
   fichiers = Dir(chemin & filtre, vbNormal Or vbHidden)
   Do While fichiers <> ""
   'c'est ici que tu dois implanter ton ouverture et sauvegarde de ton fichier 
 msgbox fichiers' ici ca va t'affichier le nom de fichier 
 fichiers = Dir
   Loop

tu commence a voir la lumiere
Au plaisir

[sepultura]

je regarderais cela lundi, merci