Discussion :

[alsimbad]

Bonjour tt le monde
j'ouvre successivement les fichiers d'un repertoire en utilisant cette méthode qui fonctionne tres bien avec des fichiers excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
Dim chemin As String, FirsWk As String
    Application.Dialogs(xlDialogOpen).Show
'''ici démarre l'assistant
        chemin = ActiveWorkbook.Path & "\"
    NomFich = Dir(chemin & "\*.xls", vbNormal)
    Do While NomFich <> ""    ' Commence la boucle.
            Workbooks.Open chemin & NomFich
MsgBox ActiveWorkbook.Name ' code
        ActiveWorkbook.Close True
        NomFich = Dir
    Loop
End Sub

mais les fichiers que je cherche a ouvrir , meme s'il ont l'extention .xls, ne sont pas du .xls. ils ont cette extention en sortant du logiciel SAP. donc, quand je les ouvre, cela déclenche l'assistant d'importation de texte. je souhaiterais donc , avant de les ouvrir, transformer leur extension en .csv qui ne déclenche pas cet assistant.
je ne sais pas comment faire et je ne trouve rien par la recherche. quelqu'un peut m'aider ? merci d'avance

[ucfoutu]

Bonjour,

Pas sûr d'avoir vraiment compris ce que tu cherches à faire...
S'il ne s'agit pour toi que de "rebaptiser" (sans modification de sa structure) un nom de fichier en transformant uniquement son extension :
- cherche la position du dernier signe . (le point) . InstrRev te le permet
- reconstitue en concaténant la partie du nom se trouvant jusqu'à cette position (utilise Left) avec le nom que tu souhaite ajouter pour l'extension (par exemple, donc "csv")...
Mais ceci, bien évidemment, ne fera que "rebaptiser"
donne ce nouveau nom à ton fichier (utilise Name)

[JackOuYA]

bonjour,

pourquoi ne pas utiliser OpenText ?

Code :

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

   Workbooks.OpenText Filename:=chemin & NomFich, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True

[alsimbad]

merci pour votre célérité
je n'arrive pas a utiliser opentext dans le cadre de ma boucle puisque l'assistant se déclenche avec la boite
Application.Dialogs(xlDialogOpen).Show
et je tiens a garder cette boite pour permettre de pointer sur le bon repertoire.
pour ce qui est d'utiliser name, cela ne doit modifier le nom du fichier qu'au niveau du code, or il faudrait que je modifie son nom sur le disque avant de faire ma boucle d'ouverture, c'est a dire faire une premiere boucle qui modifie les noms de fichier du repertoire . a la limite, je pense que je saurais faire la boucle mais je n'ai aucune idée de comment modifier le nom d'un fichier sur le disque

[JackOuYA]

Et pourquoi donc ...? remplace juste ta ligne Workbooks.open par workbooks.openText..

ton code :

...
Application.Dialogs(xlDialogOpen).Show

te permet seulement de récupérer le nom de fichier à ouvrir..!

[pgz]

Bonjour.

Si tu veux changer l'extension de tous les fichiers .xls qui se trouvent dans le même répertoire que ton application, avec la bibliothèque IWSH (Windows script host object model), tu peux faire

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
Sub subChangeExtensXLSEnCSV()
Dim fso As IWshRuntimeLibrary.FileSystemObject
Dim fld As IWshRuntimeLibrary.Folder
Dim fle As IWshRuntimeLibrary.File
 
Set fso = New IWshRuntimeLibrary.FileSystemObject
Set fld = fso.GetFolder(Application.ThisWorkbook.Path)
 
For Each fle In fld.Files
    If fle.Name <> Application.ThisWorkbook.Name Then fso.MoveFile fle.Path, Replace(fle.Path, ".xls", ".csv")
Next fle
 
Set fle = Nothing
Set fld = Nothing
Set fso = Nothing
 
End Sub

Pour l'idée. A adapter à ton besoin.

Bon courage,

PGZ

[Godzestla]

Bonjour tt le monde
mais les fichiers que je cherche a ouvrir , meme s'il ont l'extention .xls, ne sont pas du .xls. ils ont cette extention en sortant du logiciel SAP. donc, quand je les ouvre, cela déclenche l'assistant d'importation de texte. je souhaiterais donc , avant de les ouvrir, transformer leur extension en .csv qui ne déclenche pas cet assistant.
je ne sais pas comment faire et je ne trouve rien par la recherche. quelqu'un peut m'aider ? merci d'avance

Idée alternative mais je n'ai pas testé:

1) Tu crées un repertoire de travail (pas nécessaire mais plus propre).
2) Tu scannes ton répertoire après les fichiers XLS. DIR
3) Pour Chaque fichier trouvé tu utilises FileCopy pour le copier avec l'extension .CSV dans ton répertoire de travail
4) Tu traites ensuite ton répertoire de travail ou tes fichiers sont CSV
5) Tu conserves ou pas tes .CSV et .XLS selon tes besoins.

Ok ?

[alsimbad]

ça y est, je pense que j'ai trouvé un savant mélange entre vos reflexions, celles d'ouskel'nor et un tuto de thierry Aim

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
 
Public Function ExtractFilePath(ByVal sFullPath As String) As String
If Right(sFullPath, 1) = "\" Then
    ExtractFilePath = sFullPath
Else
    ExtractFilePath = Left(sFullPath, InStrRev(sFullPath, "\"))
End If
End Function
 
Sub test()
Dim chemin As String, FirsWk As String
    chemin = ExtractFilePath(Application.GetOpenFilename)
    NomFich = Dir(chemin & "\*.xls", vbNormal)
    Do While NomFich <> ""    ' Commence la boucle.
            Workbooks.Opentext chemin & NomFich
MsgBox ActiveWorkbook.Name ' code
        ActiveWorkbook.Close True
        NomFich = Dir
    Loop
End Sub

en reprenant getopenfilename, je ne prend que l'adresse du fichier et extractfilepath me done le repertoire. de la sorte opentext m'ouvre les fichier sans déclencher l'assistant.
merci a tous