Ouvrir et afficher

Bonsoir,

Que vient faire le MsgBox ???

à la place de MsgBox "Open " & fileToOpen ;

Workbooks.Open fileToOpen

Rassure-toi, tu n'a pas gâhé mon week-end ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:40e82fd8$0$316$7a628cd7@news.club-internet.fr...

Bonjour,

Je bute encore sur cette macro.
Une ame très charitable pour me dépanner ?

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier. Où
est le problème ?

Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâher le WE a
personne.

Claude

Bonsoir Claude,

Une ame très charitable pour me dépanner ?
Il n'y a que des âmes très charitables, ici :o)

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier. Où
est le problème ?

Si tu veux l'ouvrir avec Notepad :
Sub Recharger()
filetoopen = Application.GetOpenFilename("Text Files (*.*), *.*")
If filetoopen <> False Then
With CreateObject("WScript.Shell")
.Run ("Notepad.exe " & filetoopen)
End With
End If
End Sub

Si tu veux l'ouvrir dans Excel (non testé) :
Sub Recharger()
filetoopen = Application.GetOpenFilename("Text Files (*.*), *.*")
If filetoopen <> False Then
workbooks.opentext filetoopen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâcher le WE a personne.
Absolutely no problem et aucun dérangement.

@+
FxM

je ne voudrais pas parier, claude, mais je crois qu'une Msgbox ainsi définie
ne te lancera aucun fichier ; il faut qu'elle soit égale à une variable (rep
= Msgbox( et ensuite tu suis le guide qui ca te parler de boutons a ajouter
tels que vbYESNOCancel et ensuite tu dis dans ta proc If rep = vbYes Then et
là tu demandes l'ouverture de ton fichier....
si tu n'as pas compris, ne t'inquiète pas ; moi non plus et quelqu'un de
plus calé et qui a horreur du foot va venir à ton secours...je pense aux
québécois entre autres pour qui le soccer n'est pas leur tasse de sirop
d'érable...
jps

"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:40e82fd8$0$316$7a628cd7@news.club-internet.fr...

Bonjour,

Je bute encore sur cette macro.
Une ame très charitable pour me dépanner ?

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier. Où
est le problème ?

Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâher le WE a
personne.

Claude

Bonjour Claude,

Voici une procédure qui te permettra d'ouvrir le fichier de ton choix. Elle est un peu plus longue mais c'est plus que
du bonbon !!!! ;-))

Remarque que tu dois lancer seulement la procédure suivante "Sub ShellOuvrirFichier()" pour obtenir ce que tu désires
!!!

Attention aux coupures de lignes de code intempestives par le service de messagerie.

'À copier dans le haut d'un module standard
'Déclaration des API requis pour la procédure

Option Explicit
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustomFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_PATHMUSTEXIST = &H800
Public Declare Function GetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long


'Api pour la commande ShellExecute
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Function OpenFileBox()
Dim filebox As OPENFILENAME ' open file dialog structure
Dim fname As String ' filename the user selected
Dim result As Long ' result of opening the dialog

' Configure how the dialog box will look
With filebox
' Size of the structure.
.lStructSize = Len(filebox)
' Handle to window opening the dialog.
'.hwndOwner = Me.hWnd
' Handle to calling instance (not needed).
.hInstance = 0
' File filters to make available: Excel Files and All Files
'.lpstrFilter = "Text Files (*.xls)" & vbNullChar & "*.xls" & vbNullChar & _
"All Files (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
'.lpstrCustomFilter is ignored -- unused string
.lpstrFilter = "Tous les fichiers (*.*)" & vbNullChar & "*.*" & vbNullChar
.nMaxCustomFilter = 0
' Default filter is the first one (Text Files, in this case).
.nFilterIndex = 1
' No default filename. Also make room for received
' path and filename of the user's selection.
.lpstrFile = Space(256) & vbNullChar
.nMaxFile = Len(.lpstrFile)
' Make room for filename of the user's selection.
.lpstrFileTitle = Space(256) & vbNullChar
.nMaxFileTitle = Len(.lpstrFileTitle)
' Initial directory is C:.
.lpstrInitialDir = "C:" & vbNullChar
' Title of file dialog.
.lpstrTitle = "Select a File" & vbNullChar
' The path and file must exist; hide the read-only box.
.flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
' The rest of the options aren't needed.
.nFileOffset = 0
.nFileExtension = 0
'.lpstrDefExt is ignored -- unused string
.lCustData = 0
.lpfnHook = 0
'.lpTemplateName is ignored -- unused string
End With

' Display the dialog box.
result = GetOpenFileName(filebox)
If result <> 0 Then
' Remove null space from the file name.
fname = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
OpenFileBox = fname
End If
End Function


'--------------------------------
Sub ShellOuvrirFichier()

Const SW_SHOWNORMAL = 1
Dim hwnd As Long
Dim Fich As String

Fich = OpenFileBox
If Fich <> "" Then
If Right(Fich, 3) = "xls" Then
Workbooks.Open Fich
Else
hwnd = FindWindow(vbNullString, Application.Caption)
ShellExecute hwnd, "open", Fich, vbNullString, vbNullString, SW_SHOWNORMAL
End If
End If

End Sub
'--------------------------------


Salutations!



"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:40e82fd8$0$316$7a628cd7@news.club-internet.fr...
Bonjour,

Je bute encore sur cette macro.
Une ame très charitable pour me dépanner ?

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier. Où
est le problème ?

Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâher le WE a personne.
Claude

Bonsoir Claude

Ne sachant exactement ce que tu souhaites
2 solutions dans la proc suivante
Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen

'Solution qui suit pour gérer un fichier texte
'enregistrement/enregistrement et tu ne le "vois" pas

Monfic = FreeFile
Open fileToOpen For Input As #Monfic
Do While Not EOF(Monfic)
'tu traites ici tes enregistrements
Line Input #Monfic, Maligne
Loop
Close Monfic 'tu le fermes

'Solution qui suit pour voir un classeur texte
Workbooks.OpenText Filename:=fileToOpen ' _
'avec eventuellement la prise en charge de séparateurs/délimiteurs... _
, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:úlse,
_
Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Stop
ActiveWindow.Close 'tu le fermes

End If

End Sub
Salutations
RaMa

"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:40e82fd8$0$316$7a628cd7@news.club-internet.fr...

Bonjour,

Je bute encore sur cette macro.
Une ame très charitable pour me dépanner ?

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier. Où
est le problème ?

Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâher le WE a
personne.

Claude

Bonjour et merçi à tous
Je n'ai pas encore tout essayé, ce sera en partie pour les longues soirées
d'hiver.

Pour michel denis:

J'ai testé ta procédure qui fonctionne très bien.
Mais là je n'y comprends rien, j'ai donc joué à l'apprenti sorcier.
Je n'avais effectivement pas besoin d'un Msgbox.

Un petit problème malgré tout.Je tombe cette fois-ci sous C:
Je voudrais que "Ouvrir" tombe dans le dossier courant, là où j'ai rangé
tous les classeurs et fichiers de sauvegarde de cette application.

Et comme un problème n'est jamais seul:
L'ensemble constitue une simulation de calcul. J'effectue donc différentes
sauvegardes constituées chacune par un fichier regroupant des valeurs.
Pour sélectionner ces valeurs j'ai créé un classeur appelé "sauvegarde"
constitué d'une sélection de feuilles contenant toutes des cellules avec
une équation (=valeur dans d'autres fichiers).
Par ailleurs j'ai une procédure appelée "sauvegarde" qui crée une copie du
fichier de sauvegarde pour chaque application avec un nom à injecter par une
Inputbox.
La procédure qui suit me donne un résultat correct.
La sauvegarde s'effectue sous une forme que je ne sait pas définir mais qui
s'ouvre avec Excel.
J'aimerais que cette sauvegarde me donne un fichier xls. Mieux encore je
souhaiterai un fichier constitué uniquement par les valeurs (en non une
recopie des équations).

Voici ma procédure de sauvegarde.
Sub Sauvegarder()
'
' Sauvegarder Macro
' Macro enregistrée le 01/07/2004 par HERRMANN
''
Windows("sauvegarde.xls").Activate
NomClasseur = Application.InputBox("entrez un nom pour le fichier de
sauvegarde")
ActiveWorkbook.SaveCopyAs Filename:=NomClasseur
Windows("Copie de fichier client_a.xls").Activate '(c'est le retour au
fichier origine)'

End Sub
____________________________________________________________________________
_________________________________


"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23D0OfrfYEHA.4092@TK2MSFTNGP11.phx.gbl...

Bonjour Claude,

Voici une procédure qui te permettra d'ouvrir le fichier de ton choix.
Elle est un peu plus longue mais c'est plus que

du bonbon !!!! ;-))

Remarque que tu dois lancer seulement la procédure suivante "Sub
ShellOuvrirFichier()" pour obtenir ce que tu désires

!!!

Attention aux coupures de lignes de code intempestives par le service de
messagerie.

'À copier dans le haut d'un module standard
'Déclaration des API requis pour la procédure

Option Explicit
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustomFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_PATHMUSTEXIST = &H800
Public Declare Function GetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long


'Api pour la commande ShellExecute
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Function OpenFileBox()
Dim filebox As OPENFILENAME ' open file dialog structure
Dim fname As String ' filename the user selected
Dim result As Long ' result of opening the dialog

' Configure how the dialog box will look
With filebox
' Size of the structure.
.lStructSize = Len(filebox)
' Handle to window opening the dialog.
'.hwndOwner = Me.hWnd
' Handle to calling instance (not needed).
.hInstance = 0
' File filters to make available: Excel Files and All Files
'.lpstrFilter = "Text Files (*.xls)" & vbNullChar & "*.xls" &
vbNullChar & _

"All Files (*.*)" & vbNullChar & "*.*" & vbNullChar &
vbNullChar

'.lpstrCustomFilter is ignored -- unused string
.lpstrFilter = "Tous les fichiers (*.*)" & vbNullChar & "*.*" &
vbNullChar

.nMaxCustomFilter = 0
' Default filter is the first one (Text Files, in this case).
.nFilterIndex = 1
' No default filename. Also make room for received
' path and filename of the user's selection.
.lpstrFile = Space(256) & vbNullChar
.nMaxFile = Len(.lpstrFile)
' Make room for filename of the user's selection.
.lpstrFileTitle = Space(256) & vbNullChar
.nMaxFileTitle = Len(.lpstrFileTitle)
' Initial directory is C:.
.lpstrInitialDir = "C:" & vbNullChar
' Title of file dialog.
.lpstrTitle = "Select a File" & vbNullChar
' The path and file must exist; hide the read-only box.
.flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or
OFN_HIDEREADONLY

' The rest of the options aren't needed.
.nFileOffset = 0
.nFileExtension = 0
'.lpstrDefExt is ignored -- unused string
.lCustData = 0
.lpfnHook = 0
'.lpTemplateName is ignored -- unused string
End With

' Display the dialog box.
result = GetOpenFileName(filebox)
If result <> 0 Then
' Remove null space from the file name.
fname = Left(filebox.lpstrFile, InStr(filebox.lpstrFile,
vbNullChar) - 1)

OpenFileBox = fname
End If
End Function


'--------------------------------
Sub ShellOuvrirFichier()

Const SW_SHOWNORMAL = 1
Dim hwnd As Long
Dim Fich As String

Fich = OpenFileBox
If Fich <> "" Then
If Right(Fich, 3) = "xls" Then
Workbooks.Open Fich
Else
hwnd = FindWindow(vbNullString, Application.Caption)
ShellExecute hwnd, "open", Fich, vbNullString, vbNullString,
SW_SHOWNORMAL

End If
End If

End Sub
'--------------------------------


Salutations!



"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:40e82fd8$0$316$7a628cd7@news.club-internet.fr...
Bonjour,

Je bute encore sur cette macro.
Une ame très charitable pour me dépanner ?

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier. Où
est le problème ?

Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâher le WE a
personne.

Claude

Bonjour,

Juste pour te remerçier. Tu avais raison sur deux points:
Je n'avais pas besoin d'un Msgbox
J'ai trahi mon etat d'enervement en laissant passer des fautes de frappe
enormes. Je me suis donc arreté ce soir là.

J'ai pris le temps de regarder ton site: Il est très bien.Juste la couleur
verte ne passe pas bien.
Nous avons un point commun: j'organise des séminaires de formation, mais
uniquement dans le métier de la métallurgie. Le travail actuel correspond à
un simulateur.
Si cela t'interresse www.LBCF.fr
Si tu organise une formation VBA pas trop loin de Nantes cela m'interresse.

Cordialement
Claude
________________________________

"Joel" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:cc9c7v$lc5$1@news-reader4.wanadoo.fr...

Bonsoir,

Que vient faire le MsgBox ???

à la place de MsgBox "Open " & fileToOpen ;

Workbooks.Open fileToOpen

Rassure-toi, tu n'a pas gâhé mon week-end ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:40e82fd8$0$316$7a628cd7@news.club-internet.fr...

Bonjour,

Je bute encore sur cette macro.
Une ame très charitable pour me dépanner ?

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier.
Où

est le problème ?

Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâher le WE a
personne.

Claude

Merci à toi Claude,

Pour info, couleur verte modifée sur la page Procédures VBA. En effet, ce
n'était pas terrible !

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:40e93d03$0$306$7a628cd7@news.club-internet.fr...

Bonjour,

Juste pour te remerçier. Tu avais raison sur deux points:
Je n'avais pas besoin d'un Msgbox
J'ai trahi mon etat d'enervement en laissant passer des fautes de frappe
enormes. Je me suis donc arreté ce soir là.

J'ai pris le temps de regarder ton site: Il est très bien.Juste la couleur
verte ne passe pas bien.
Nous avons un point commun: j'organise des séminaires de formation, mais
uniquement dans le métier de la métallurgie. Le travail actuel correspond
à

un simulateur.
Si cela t'interresse www.LBCF.fr
Si tu organise une formation VBA pas trop loin de Nantes cela
m'interresse.

Cordialement
Claude
________________________________

"Joel" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:cc9c7v$lc5$1@news-reader4.wanadoo.fr...

Bonsoir,

Que vient faire le MsgBox ???

à la place de MsgBox "Open " & fileToOpen ;

Workbooks.Open fileToOpen

Rassure-toi, tu n'a pas gâhé mon week-end ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:40e82fd8$0$316$7a628cd7@news.club-internet.fr...

Bonjour,

Je bute encore sur cette macro.
Une ame très charitable pour me dépanner ?

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier.
Où

est le problème ?

Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâher le WE a
personne.

Claude

Bonjour,(fxmanceaux ?)
Juste pour te remerçier.
En attendant j'ai pris la version de michel denis .
J'ai essayé la version Notepad et je suis tombé sur un fichier en caractères
... des carrés et autres dessins.
C'est quoi Notepad ?J'ai rien trouvé dans les aides.
A par cela la procédure est ok. La boite ouvrir se presente bien.
Encore merçi et si tu peux me renseigner sur Notepad
Cordialement,
Claude,


"FxM" <fxmanceaux@chello.fr> a écrit dans le message de
news:uYZl4eeYEHA.3420@TK2MSFTNGP12.phx.gbl...

Bonsoir Claude,

Une ame très charitable pour me dépanner ?
Il n'y a que des âmes très charitables, ici :o)

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier.
Où

est le problème ?

Si tu veux l'ouvrir avec Notepad :
Sub Recharger()
filetoopen = Application.GetOpenFilename("Text Files (*.*), *.*")
If filetoopen <> False Then
With CreateObject("WScript.Shell")
.Run ("Notepad.exe " & filetoopen)
End With
End If
End Sub

Si tu veux l'ouvrir dans Excel (non testé) :
Sub Recharger()
filetoopen = Application.GetOpenFilename("Text Files (*.*), *.*")
If filetoopen <> False Then
workbooks.opentext filetoopen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâcher le WE a
personne.

Absolutely no problem et aucun dérangement.

@+
FxM

Bonjour, Ra ( Raymond peut être ?)
Merçi même si je n'ai pas encore testé ta solution. Ce sera pour plus tard,
pour l'instant j'ai choisi la solution de denis.
Cordialement
Claude



"RaMA" <rmarceauPas2Spam@free.fr> a écrit dans le message de
news:%23B9PgZgYEHA.2736@TK2MSFTNGP10.phx.gbl...

Bonsoir Claude

Ne sachant exactement ce que tu souhaites
2 solutions dans la proc suivante
Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen

'Solution qui suit pour gérer un fichier texte
'enregistrement/enregistrement et tu ne le "vois" pas

Monfic = FreeFile
Open fileToOpen For Input As #Monfic
Do While Not EOF(Monfic)
'tu traites ici tes enregistrements
Line Input #Monfic, Maligne
Loop
Close Monfic 'tu le fermes

'Solution qui suit pour voir un classeur texte
Workbooks.OpenText Filename:=fileToOpen ' _
'avec eventuellement la prise en charge de séparateurs/délimiteurs... _
, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:úlse,

_
Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Stop
ActiveWindow.Close 'tu le fermes

End If

End Sub
Salutations
RaMa

"Claude HERRMANN" <chezclh@club-internet.fr> a écrit dans le message de
news:40e82fd8$0$316$7a628cd7@news.club-internet.fr...

Bonjour,

Je bute encore sur cette macro.
Une ame très charitable pour me dépanner ?

Je désire ouvrir un fichier au travers d'un Msgbox; mais également de
l'afficher ( ou activer ?)
La macro ci après semble fonctionner mais ne m'affiche pas le fichier.
Où

est le problème ?

Sub Recharger()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub

Merçi d'avance, mais cela peut attendre ; je ne veux gâher le WE a
personne.

Claude