variable string fixe

[Jean Michel CROQUETTES]

Bonjour à tous,

Supposons 3 docs .xls
123_test.xls
456_test.xls
789_test.xls

Je souhaite ouvrir tous les docs d'un dossier dont le nom est 3 caractères & "_test.xls"
J'ai tenté de passer par une variable fixe (dim Prefixe as string * 3) mais je ne sais quoi en faire après pour mon problème.

Auriez vous une piste de réflexion?

Merci beaucoup,

 

[Staple1600]

Re : variable string fixe

Bonjour à tous


Cette macro devrait répondre à ton besoin

Sub ouvrir_fichiers_specifik()
'adapté de :ListFilesWithoutSelection()
'auteur: Don Guillett
Dim Rep As String
Dim Masque_Nom_Fichier As String
Dim Nom_Fichier As String
Rep = "C:\Temp\" ' adapter ici le nom du répertoire
Masque_Nom_Fichier = "???_test"
Nom_Fichier = Dir(Rep & Masque_Nom_Fichier & "*.xls")
 r = 1
   While Nom_Fichier <> ""
    Workbooks.Open (Nom_Fichier)
    Nom_Fichier = Dir
     r = r + 1
   Wend
End Sub

 

[Jean Michel CROQUETTES]

Re : variable string fixe

Bravo!
Merci beaucoup je ne savais pas qu'il pouvait analyser les ???

Sinon j'avais juste une autre solution à l'instant :

Code:

Sub creation_csv()
'
' creation_csv Macro
' Macro enregistrée le 14/01/2008 par Mikaël CLEUZIOU
' 027_C015_Fichier_Enrichissement_Saisi.csv





Dim MonChantier As String * 6
Dim w As Object
Dim Rep As Object
Dim Chemin As String
Dim Suffix As String
Suffix = "_C015_Fichier_Enrichissement.xls"

Chemin = ThisWorkbook.Path
Set Rep = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)

For Each w In Rep.Files
    If w.Name <> ThisWorkbook.Name Then
        If Right(w.Name, Len(Suffix)) = Suffix And Len(w.Name) = (Len(Suffix) + 6) Then
        Workbooks.Open Filename:=w
        End If
    End If
Next
End Sub

Merci beaucoup!

JMC

 

[Jean Michel CROQUETTES]

Re : variable string fixe

Encore une question,

Comment faire un joli carré dans le corps du message pour y placer le code?

C'est chouette!

 

[Staple1600]

Re : variable string fixe

Re


Il suffit d'utiliser les balises CODE
(dédoubler les caractères en double)
[

]
code vba
[[//CODE]]

ou de sélectionner le code VBA puis de cliquer
sur #

 

[Jean Michel CROQUETTES]

Re : variable string fixe

magnifique

merci!
;-)