VBA : créer un configurateur...

Une petite appli que je me suis faite, et qui tourne bien :
Private Sub choix_annule_Click()
Range("Path") = old_repertoire.Caption
Range("Printer") = old_printer.Caption
Range("Coef") = Val(old_coeficient.Caption)
Range("Fichier") = old_fichier.Caption
Unload Me
End Sub


Private Sub choix_file_Click()
Dim var
var = Application.Application.GetOpenFilename("Text Files (*.txt),
*.txt", , _
"Selectionner le fichier :")
If var <> "" Then fichiers.Value = var
End Sub


Private Sub choix_imp_Click()
Dim var As Boolean
var = Application.Dialogs(xlDialogPrinterSetup).Show
If var Then imprimante.Value = Application.ActivePrinter
End Sub


Private Sub choix_ok_Click()
SaveSetting "FichesSuiveuses", "Startup", "PathAppli",
ThisWorkbook.path & ""
SaveSetting "FichesSuiveuses", "Startup", "Printer", Range("Printer")
SaveSetting "FichesSuiveuses", "Startup", "Path", Range("Path") & ""
SaveSetting "FichesSuiveuses", "Startup", "Coef", Range("Coef")
SaveSetting "FichesSuiveuses", "Startup", "Fichier", Range("Fichier")
Unload Me
End Sub

Private Sub choix_rep_Click()
Dim var
var = GetDirectory
If var <> "" Then repertoire.Value = var
End Sub


Private Sub coeficient_AfterUpdate()
If coeficient < 1 Then coeficient.Value = Val(coeficient.Value) * 100
End Sub


Private Sub coeficient_Change()
If coeficient = "0" Or coeficient = "." Or coeficient = "," Then
coeficient.Value = ""
End If
End Sub


Private Sub UserForm_Initialize()
old_repertoire.Caption = repertoire.Value
old_printer.Caption = imprimante.Value
old_coeficient.Caption = coeficient.Value
old_fichier.Caption = fichiers.Value
End Sub

Ricou avait soumis l'idée :

Bonjour,

Voici la situation : J'ai un fichier Excel avec des macros qui appellent
d'autres fichiers avec le chemin d'accès exact.

Mon souci : J'aimerais dupliquer ce fichier pour des personnes différentes
(donc pour des chemins d'accès différents)

Ma solution : créer une sorte de maccro "configurateur" qui peut être lancée
à la demande de l'utilisateur (ca, je sais faire) qui permettrait à
l'utilisateur de rentrer le chemin exact qu'il veut et qui serait mémoriser
une fois pour toute (jusqu'à ce que l'utilisateur décide de changer de
chemin...). Là ca se complique pour moi...

Merci d'avance pour votre aide ;-)

Bonjour
Si j'ai bien compris ?
Pour aller chercher un répertoire en VBA il doit y avoir quelque chose ici
chez Frédéric :
http://perso.wanadoo.fr/frederic.sigonneau/Fichiers.htm
Cordialement
Pascal

"Ricou" <Ricou@discussions.microsoft.com> a écrit dans le message de news:
8BA8EEDE-36E6-45BB-8831-0F0DF2644DC6@microsoft.com...

Bonjour,

Voici la situation : J'ai un fichier Excel avec des macros qui appellent
d'autres fichiers avec le chemin d'accès exact.

Mon souci : J'aimerais dupliquer ce fichier pour des personnes différentes
(donc pour des chemins d'accès différents)

Ma solution : créer une sorte de maccro "configurateur" qui peut être
lancée
à la demande de l'utilisateur (ca, je sais faire) qui permettrait à
l'utilisateur de rentrer le chemin exact qu'il veut et qui serait
mémoriser
une fois pour toute (jusqu'à ce que l'utilisateur décide de changer de
chemin...). Là ca se complique pour moi...

Merci d'avance pour votre aide ;-)

Bonjour.
Essaie le code suivant :
La macro test te permets de récupérer le chemin d'après une boîte de
dialogue :

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

'32-bit API declarations
Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As
String) _
As Long

Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long


Sub Test()
Dim Msg As String
Msg = "Choisissez un chemin."
MsgBox GetDirectory(Msg)
End Sub

Function GetDirectory(Optional Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer

' Root folder = Desktop
bInfo.pidlRoot = 0&

' Title in the dialog
If IsMissing(Msg) Then
bInfo.lpszTitle = "Select a folder."
Else
bInfo.lpszTitle = Msg
End If

' Type of directory to return
bInfo.ulFlags = &H1

' Display the dialog
x = SHBrowseForFolder(bInfo)

' Parse the result
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Else
GetDirectory = ""
End If
End Function

"Ricou" <Ricou@discussions.microsoft.com> a écrit dans le message de news:
8BA8EEDE-36E6-45BB-8831-0F0DF2644DC6@microsoft.com...

Bonjour,

Voici la situation : J'ai un fichier Excel avec des macros qui appellent
d'autres fichiers avec le chemin d'accès exact.

Mon souci : J'aimerais dupliquer ce fichier pour des personnes différentes
(donc pour des chemins d'accès différents)

Ma solution : créer une sorte de maccro "configurateur" qui peut être
lancée
à la demande de l'utilisateur (ca, je sais faire) qui permettrait à
l'utilisateur de rentrer le chemin exact qu'il veut et qui serait
mémoriser
une fois pour toute (jusqu'à ce que l'utilisateur décide de changer de
chemin...). Là ca se complique pour moi...

Merci d'avance pour votre aide ;-)

Bonjour Daniel,

OK, cela fonctionne plutôt bien mais cela va m'obliger à redemander le
chemin à chaque fois. Hors moi, j'aimerais le figer assez durablement et
qu'il soit conservé d'une fois sur l'autre. Il faudrait donc un système qui
enregistre le chemin de manière durable... Et ça, je ne sais pas si ça
existe...

Merci pour ton aide

Bonjour.
Essaie le code suivant :
La macro test te permets de récupérer le chemin d'après une boîte de
dialogue :

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

'32-bit API declarations
Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As
String) _
As Long

Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long


Sub Test()
Dim Msg As String
Msg = "Choisissez un chemin."
MsgBox GetDirectory(Msg)
End Sub

Function GetDirectory(Optional Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer

' Root folder = Desktop
bInfo.pidlRoot = 0&

' Title in the dialog
If IsMissing(Msg) Then
bInfo.lpszTitle = "Select a folder."
Else
bInfo.lpszTitle = Msg
End If

' Type of directory to return
bInfo.ulFlags = &H1

' Display the dialog
x = SHBrowseForFolder(bInfo)

' Parse the result
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Else
GetDirectory = ""
End If
End Function

"Ricou" <Ricou@discussions.microsoft.com> a écrit dans le message de news:
8BA8EEDE-36E6-45BB-8831-0F0DF2644DC6@microsoft.com...

Bonjour,

Voici la situation : J'ai un fichier Excel avec des macros qui appellent
d'autres fichiers avec le chemin d'accès exact.

Mon souci : J'aimerais dupliquer ce fichier pour des personnes différentes
(donc pour des chemins d'accès différents)

Ma solution : créer une sorte de maccro "configurateur" qui peut être
lancée
à la demande de l'utilisateur (ca, je sais faire) qui permettrait à
l'utilisateur de rentrer le chemin exact qu'il veut et qui serait
mémoriser
une fois pour toute (jusqu'à ce que l'utilisateur décide de changer de
chemin...). Là ca se complique pour moi...

Merci d'avance pour votre aide ;-)

Bonjour JLuc,

merci pour ton aide mais j'ai du mal à voir comment fonctionne ton userform.
Tu pourrais l'upload pour que je puiss le télécharger STP?

Merci.

Une petite appli que je me suis faite, et qui tourne bien :
Private Sub choix_annule_Click()
Range("Path") = old_repertoire.Caption
Range("Printer") = old_printer.Caption
Range("Coef") = Val(old_coeficient.Caption)
Range("Fichier") = old_fichier.Caption
Unload Me
End Sub


Private Sub choix_file_Click()
Dim var
var = Application.Application.GetOpenFilename("Text Files (*.txt),
*.txt", , _
"Selectionner le fichier :")
If var <> "" Then fichiers.Value = var
End Sub


Private Sub choix_imp_Click()
Dim var As Boolean
var = Application.Dialogs(xlDialogPrinterSetup).Show
If var Then imprimante.Value = Application.ActivePrinter
End Sub


Private Sub choix_ok_Click()
SaveSetting "FichesSuiveuses", "Startup", "PathAppli",
ThisWorkbook.path & ""
SaveSetting "FichesSuiveuses", "Startup", "Printer", Range("Printer")
SaveSetting "FichesSuiveuses", "Startup", "Path", Range("Path") & ""
SaveSetting "FichesSuiveuses", "Startup", "Coef", Range("Coef")
SaveSetting "FichesSuiveuses", "Startup", "Fichier", Range("Fichier")
Unload Me
End Sub

Private Sub choix_rep_Click()
Dim var
var = GetDirectory
If var <> "" Then repertoire.Value = var
End Sub


Private Sub coeficient_AfterUpdate()
If coeficient < 1 Then coeficient.Value = Val(coeficient.Value) * 100
End Sub


Private Sub coeficient_Change()
If coeficient = "0" Or coeficient = "." Or coeficient = "," Then
coeficient.Value = ""
End If
End Sub


Private Sub UserForm_Initialize()
old_repertoire.Caption = repertoire.Value
old_printer.Caption = imprimante.Value
old_coeficient.Caption = coeficient.Value
old_fichier.Caption = fichiers.Value
End Sub

Ricou avait soumis l'idée :

Bonjour,

Voici la situation : J'ai un fichier Excel avec des macros qui appellent
d'autres fichiers avec le chemin d'accès exact.

Mon souci : J'aimerais dupliquer ce fichier pour des personnes différentes
(donc pour des chemins d'accès différents)

Ma solution : créer une sorte de maccro "configurateur" qui peut être lancée
à la demande de l'utilisateur (ca, je sais faire) qui permettrait à
l'utilisateur de rentrer le chemin exact qu'il veut et qui serait mémoriser
une fois pour toute (jusqu'à ce que l'utilisateur décide de changer de
chemin...). Là ca se complique pour moi...

Merci d'avance pour votre aide ;-)

J'y pensais justement, mais là, je suis au boulot :/ alors des que je
rentre, je te fais ca, promis
:')
Ricou avait soumis l'idée :

Bonjour JLuc,

merci pour ton aide mais j'ai du mal à voir comment fonctionne ton userform.
Tu pourrais l'upload pour que je puiss le télécharger STP?

Merci.

Une petite appli que je me suis faite, et qui tourne bien :
Private Sub choix_annule_Click()
Range("Path") = old_repertoire.Caption
Range("Printer") = old_printer.Caption
Range("Coef") = Val(old_coeficient.Caption)
Range("Fichier") = old_fichier.Caption
Unload Me
End Sub


Private Sub choix_file_Click()
Dim var
var = Application.Application.GetOpenFilename("Text Files (*.txt),
*.txt", , _
"Selectionner le fichier :")
If var <> "" Then fichiers.Value = var
End Sub


Private Sub choix_imp_Click()
Dim var As Boolean
var = Application.Dialogs(xlDialogPrinterSetup).Show
If var Then imprimante.Value = Application.ActivePrinter
End Sub


Private Sub choix_ok_Click()
SaveSetting "FichesSuiveuses", "Startup", "PathAppli",
ThisWorkbook.path & ""
SaveSetting "FichesSuiveuses", "Startup", "Printer", Range("Printer")
SaveSetting "FichesSuiveuses", "Startup", "Path", Range("Path") & ""
SaveSetting "FichesSuiveuses", "Startup", "Coef", Range("Coef")
SaveSetting "FichesSuiveuses", "Startup", "Fichier", Range("Fichier")
Unload Me
End Sub

Private Sub choix_rep_Click()
Dim var
var = GetDirectory
If var <> "" Then repertoire.Value = var
End Sub


Private Sub coeficient_AfterUpdate()
If coeficient < 1 Then coeficient.Value = Val(coeficient.Value) * 100
End Sub


Private Sub coeficient_Change()
If coeficient = "0" Or coeficient = "." Or coeficient = "," Then
coeficient.Value = ""
End If
End Sub


Private Sub UserForm_Initialize()
old_repertoire.Caption = repertoire.Value
old_printer.Caption = imprimante.Value
old_coeficient.Caption = coeficient.Value
old_fichier.Caption = fichiers.Value
End Sub

Ricou avait soumis l'idée :

Bonjour,

Voici la situation : J'ai un fichier Excel avec des macros qui appellent
d'autres fichiers avec le chemin d'accès exact.

Mon souci : J'aimerais dupliquer ce fichier pour des personnes différentes
(donc pour des chemins d'accès différents)

Ma solution : créer une sorte de maccro "configurateur" qui peut être
lancée à la demande de l'utilisateur (ca, je sais faire) qui permettrait à
l'utilisateur de rentrer le chemin exact qu'il veut et qui serait mémoriser
une fois pour toute (jusqu'à ce que l'utilisateur décide de changer de
chemin...). Là ca se complique pour moi...

Merci d'avance pour votre aide ;-)

Change la macro Test comme suit. J'ai supposé que le chemin était stocké
dans la cellule A1 de la feuille active. A modifier selon tes besoins.

Sub Test()
Dim Msg As String, Rep As Integer, Repertoire As String
Rep = MsgBox("Voulez-vous changer de répertoire ?", 1)
Msg = "Choisissez un chemin"
If Rep = 1 Then
Repertoire = GetDirectory(Msg)
Range("A1").Value = Repertoire
Else
Repertoire = Range("A1").Value
End If
End Sub

Daniel
"Ricou" <Ricou@discussions.microsoft.com> a écrit dans le message de news:
93B7F455-6C7E-4C6C-80E2-662A224B25D5@microsoft.com...

Bonjour Daniel,

OK, cela fonctionne plutôt bien mais cela va m'obliger à redemander le
chemin à chaque fois. Hors moi, j'aimerais le figer assez durablement et
qu'il soit conservé d'une fois sur l'autre. Il faudrait donc un système
qui
enregistre le chemin de manière durable... Et ça, je ne sais pas si ça
existe...

Merci pour ton aide

Bonjour.
Essaie le code suivant :
La macro test te permets de récupérer le chemin d'après une boîte de
dialogue :

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

'32-bit API declarations
Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath
As
String) _
As Long

Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long


Sub Test()
Dim Msg As String
Msg = "Choisissez un chemin."
MsgBox GetDirectory(Msg)
End Sub

Function GetDirectory(Optional Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer

' Root folder = Desktop
bInfo.pidlRoot = 0&

' Title in the dialog
If IsMissing(Msg) Then
bInfo.lpszTitle = "Select a folder."
Else
bInfo.lpszTitle = Msg
End If

' Type of directory to return
bInfo.ulFlags = &H1

' Display the dialog
x = SHBrowseForFolder(bInfo)

' Parse the result
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Else
GetDirectory = ""
End If
End Function

"Ricou" <Ricou@discussions.microsoft.com> a écrit dans le message de
news:
8BA8EEDE-36E6-45BB-8831-0F0DF2644DC6@microsoft.com...

Bonjour,

Voici la situation : J'ai un fichier Excel avec des macros qui
appellent
d'autres fichiers avec le chemin d'accès exact.

Mon souci : J'aimerais dupliquer ce fichier pour des personnes
différentes
(donc pour des chemins d'accès différents)

Ma solution : créer une sorte de maccro "configurateur" qui peut être
lancée
à la demande de l'utilisateur (ca, je sais faire) qui permettrait à
l'utilisateur de rentrer le chemin exact qu'il veut et qui serait
mémoriser
une fois pour toute (jusqu'à ce que l'utilisateur décide de changer de
chemin...). Là ca se complique pour moi...

Merci d'avance pour votre aide ;-)

*Bonjour Ricou*,
Chose promise, chose dut alors voila le lien :
http://cjoint.com/?lyuQJE1Yha
Reviens nous dire

Bonjour JLuc,

merci pour ton aide mais j'ai du mal à voir comment fonctionne ton userform.
Tu pourrais l'upload pour que je puiss le télécharger STP?

Merci.

Une petite appli que je me suis faite, et qui tourne bien :
Private Sub choix_annule_Click()
Range("Path") = old_repertoire.Caption
Range("Printer") = old_printer.Caption
Range("Coef") = Val(old_coeficient.Caption)
Range("Fichier") = old_fichier.Caption
Unload Me
End Sub


Private Sub choix_file_Click()
Dim var
var = Application.Application.GetOpenFilename("Text Files (*.txt),
*.txt", , _
"Selectionner le fichier :")
If var <> "" Then fichiers.Value = var
End Sub


Private Sub choix_imp_Click()
Dim var As Boolean
var = Application.Dialogs(xlDialogPrinterSetup).Show
If var Then imprimante.Value = Application.ActivePrinter
End Sub


Private Sub choix_ok_Click()
SaveSetting "FichesSuiveuses", "Startup", "PathAppli",
ThisWorkbook.path & ""
SaveSetting "FichesSuiveuses", "Startup", "Printer", Range("Printer")
SaveSetting "FichesSuiveuses", "Startup", "Path", Range("Path") & ""
SaveSetting "FichesSuiveuses", "Startup", "Coef", Range("Coef")
SaveSetting "FichesSuiveuses", "Startup", "Fichier", Range("Fichier")
Unload Me
End Sub

Private Sub choix_rep_Click()
Dim var
var = GetDirectory
If var <> "" Then repertoire.Value = var
End Sub


Private Sub coeficient_AfterUpdate()
If coeficient < 1 Then coeficient.Value = Val(coeficient.Value) * 100
End Sub


Private Sub coeficient_Change()
If coeficient = "0" Or coeficient = "." Or coeficient = "," Then
coeficient.Value = ""
End If
End Sub


Private Sub UserForm_Initialize()
old_repertoire.Caption = repertoire.Value
old_printer.Caption = imprimante.Value
old_coeficient.Caption = coeficient.Value
old_fichier.Caption = fichiers.Value
End Sub

Ricou avait soumis l'idée :

Bonjour,

Voici la situation : J'ai un fichier Excel avec des macros qui appellent
d'autres fichiers avec le chemin d'accès exact.

Mon souci : J'aimerais dupliquer ce fichier pour des personnes différentes
(donc pour des chemins d'accès différents)

Ma solution : créer une sorte de maccro "configurateur" qui peut être
lancée à la demande de l'utilisateur (ca, je sais faire) qui permettrait à
l'utilisateur de rentrer le chemin exact qu'il veut et qui serait mémoriser
une fois pour toute (jusqu'à ce que l'utilisateur décide de changer de
chemin...). Là ca se complique pour moi...

Merci d'avance pour votre aide ;-)

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Bonjour JLuc,

ça m'a l'air plutôt bien cette petite appli !!! J'ai du mal à suivre... Donc
arrête-moi si cela te paraît faux
Voilà, si j'ai bien compris, ca va "configurer" le chemin que j'indique dans
le premier cadre, dans le registre.
En revanche, le nom du fichier à traiter me permet d'indiquer à quel fichier
cela s'applique. Là j'ai un souci car on ne me propose que des *.txt or mon
fichier est un xls...
Merci pour ton aide.

*Bonjour Ricou*,
Chose promise, chose dut alors voila le lien :
http://cjoint.com/?lyuQJE1Yha
Reviens nous dire

Bonjour JLuc,

merci pour ton aide mais j'ai du mal à voir comment fonctionne ton userform.
Tu pourrais l'upload pour que je puiss le télécharger STP?

Merci.

Une petite appli que je me suis faite, et qui tourne bien :
Private Sub choix_annule_Click()
Range("Path") = old_repertoire.Caption
Range("Printer") = old_printer.Caption
Range("Coef") = Val(old_coeficient.Caption)
Range("Fichier") = old_fichier.Caption
Unload Me
End Sub


Private Sub choix_file_Click()
Dim var
var = Application.Application.GetOpenFilename("Text Files (*.txt),
*.txt", , _
"Selectionner le fichier :")
If var <> "" Then fichiers.Value = var
End Sub


Private Sub choix_imp_Click()
Dim var As Boolean
var = Application.Dialogs(xlDialogPrinterSetup).Show
If var Then imprimante.Value = Application.ActivePrinter
End Sub


Private Sub choix_ok_Click()
SaveSetting "FichesSuiveuses", "Startup", "PathAppli",
ThisWorkbook.path & ""
SaveSetting "FichesSuiveuses", "Startup", "Printer", Range("Printer")
SaveSetting "FichesSuiveuses", "Startup", "Path", Range("Path") & ""
SaveSetting "FichesSuiveuses", "Startup", "Coef", Range("Coef")
SaveSetting "FichesSuiveuses", "Startup", "Fichier", Range("Fichier")
Unload Me
End Sub

Private Sub choix_rep_Click()
Dim var
var = GetDirectory
If var <> "" Then repertoire.Value = var
End Sub


Private Sub coeficient_AfterUpdate()
If coeficient < 1 Then coeficient.Value = Val(coeficient.Value) * 100
End Sub


Private Sub coeficient_Change()
If coeficient = "0" Or coeficient = "." Or coeficient = "," Then
coeficient.Value = ""
End If
End Sub


Private Sub UserForm_Initialize()
old_repertoire.Caption = repertoire.Value
old_printer.Caption = imprimante.Value
old_coeficient.Caption = coeficient.Value
old_fichier.Caption = fichiers.Value
End Sub

Ricou avait soumis l'idée :

Bonjour,

Voici la situation : J'ai un fichier Excel avec des macros qui appellent
d'autres fichiers avec le chemin d'accès exact.

Mon souci : J'aimerais dupliquer ce fichier pour des personnes différentes
(donc pour des chemins d'accès différents)

Ma solution : créer une sorte de maccro "configurateur" qui peut être
lancée à la demande de l'utilisateur (ca, je sais faire) qui permettrait à
l'utilisateur de rentrer le chemin exact qu'il veut et qui serait mémoriser
une fois pour toute (jusqu'à ce que l'utilisateur décide de changer de
chemin...). Là ca se complique pour moi...

Merci d'avance pour votre aide ;-)

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

En fait, cette application est un grand bout de ce dont javais besoin
pour mes propres traitement, si tu va dans le code (Alt + F11) tu
pourra modifier ce que tu veux pour l'adapter a tes besoins

Ricou avait soumis l'idée :

Bonjour JLuc,

ça m'a l'air plutôt bien cette petite appli !!! J'ai du mal à suivre... Donc
arrête-moi si cela te paraît faux
Voilà, si j'ai bien compris, ca va "configurer" le chemin que j'indique dans
Ca ne "configure" pas, tu choisi un chemin et ca le sauvegarde dans la

base de registre pour une utilisation ulterieur

le premier cadre, dans le registre.
En revanche, le nom du fichier à traiter me permet d'indiquer à quel fichier
cela s'applique. Là j'ai un souci car on ne me propose que des *.txt or mon
fichier est un xls...
En fait, j'avais besoin d'un chemin pour les fichiers xls (chemin de

sauvegarde) et d'un fichier txt a traiter (resultat d'une impression
dans un fichier texte) mais tu n'a pas forcement besoin des deux. A toi
de voir ce que tu veux faire et adapter
Si tu as des soucis, le forum est là ;-)

Merci pour ton aide.