[E-07] modifier extension

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:

---

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

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)

bonjour,

pourquoi ne pas utiliser OpenText ?

Code:

---

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

---

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

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

ton code :

Citation:

---

Envoyé par alsimbad

...
Application.Dialogs(xlDialogOpen).Show

---

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

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:

---

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

pour jackouya, je te confirme que opentext ne change rien.. le declenchement de l'assistant se produit quans le fichier est ouvert avec xldialogopen. en fait, il semblerais que j'ai 2 ouvertures du premier fichier du repertoire. je n'avais pas remarqué jusque là..
voila ce qui se passe :
quand je designe un fichier du repertoire dans la boite xlopen, il ouvre imediatement le fichier en question, puis il entre dans la boucle et réouvre le fichier. effectivement, ya un point noir qu'est pas clair. toute mes excuses a ouskel'nor. il m'avais prevenu

Citation:

---

Envoyé par ouskel

En "simplifiant", tu sais tu ouvres deux fois le fichier actif en sortant de la boîte de dialogue ?

---

pour pgz, merci ausssi pour ta reponse. je ne peux pas tester ce matin, mais je te tiens au courant

bonjour,

tu aura le même probléme avec la solution à pgz, c'est ta méthode de sélection du répertoire de travail qui n'est pas bonne...!

Citation:

---

Envoyé par alsimbad

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 ? :?

ç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:

---

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