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
Notepad est un éditeur (simple, voire simplet) de texte (et presque rien d'autre).
Si tu as des carrés, ça peut vouloir dire que : - ton fichier n'est pas du texte pur mais contient de la mise en forme, - ton fichier texte est peut-être vérolé - ce n'est peut-être pas un fichier texte.
Si tu nous donne le nom du fichier en question (surtout son extension), ça va aider à déterminer l'origine. Si ton fichier est un fichier Excel par exemple, il te faut passer par workbooks.open filetoopen
@+ François-Xavier
Claude HERRMANN wrote:
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" a écrit dans le message de news:
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,
Notepad est un éditeur (simple, voire simplet) de texte (et presque rien
d'autre).
Si tu as des carrés, ça peut vouloir dire que :
- ton fichier n'est pas du texte pur mais contient de la mise en forme,
- ton fichier texte est peut-être vérolé
- ce n'est peut-être pas un fichier texte.
Si tu nous donne le nom du fichier en question (surtout son extension),
ça va aider à déterminer l'origine. Si ton fichier est un fichier Excel
par exemple, il te faut passer par workbooks.open filetoopen
@+
François-Xavier
Claude HERRMANN wrote:
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
Notepad est un éditeur (simple, voire simplet) de texte (et presque rien d'autre).
Si tu as des carrés, ça peut vouloir dire que : - ton fichier n'est pas du texte pur mais contient de la mise en forme, - ton fichier texte est peut-être vérolé - ce n'est peut-être pas un fichier texte.
Si tu nous donne le nom du fichier en question (surtout son extension), ça va aider à déterminer l'origine. Si ton fichier est un fichier Excel par exemple, il te faut passer par workbooks.open filetoopen
@+ François-Xavier
Claude HERRMANN wrote:
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" a écrit dans le message de news:
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
Claude HERRMANN
Bonjour François Xavier
Le fichier n'a justement aucune extension. Il provient d'un fichier .XLS et peut être ouvert avec excel. Il provient d'un fichier excel appellé "sauvegarde"qui contient des liaisons avec d'autres classeurs( sous forme d'equations = copie de fichier, cellule etc...).. Je l'appelle par exemple "save 100". Ce dernier contient les mêmes liaisons. Les 2 fichiers sauvegarde et save 100 sont donc identiques, mais ce dernier ne porte pas l'extension .XLS. Mon problème justement est que je veux ouvrir ce dernier pour rompre les liaisons pour récuperer les valeurs.
Pour l'instant j'explore la solution de michdenis. Mais j'aimerais pas mourir idiot, même si ma femme me dis que je deviens "mettons dingo pour varier" avec le VBA.
Cordialement Claude
"FxM" a écrit dans le message de news:
Bonjour,
Notepad est un éditeur (simple, voire simplet) de texte (et presque rien d'autre).
Si tu as des carrés, ça peut vouloir dire que : - ton fichier n'est pas du texte pur mais contient de la mise en forme, - ton fichier texte est peut-être vérolé - ce n'est peut-être pas un fichier texte.
Si tu nous donne le nom du fichier en question (surtout son extension), ça va aider à déterminer l'origine. Si ton fichier est un fichier Excel par exemple, il te faut passer par workbooks.open filetoopen
@+ François-Xavier
Claude HERRMANN wrote:
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" a écrit dans le message de news:
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 François Xavier
Le fichier n'a justement aucune extension. Il provient d'un fichier .XLS et
peut être ouvert avec excel.
Il provient d'un fichier excel appellé "sauvegarde"qui contient des liaisons
avec d'autres classeurs( sous forme d'equations = copie de fichier, cellule
etc...).. Je l'appelle par exemple "save 100". Ce dernier contient les mêmes
liaisons. Les 2 fichiers sauvegarde et save 100 sont donc identiques, mais
ce dernier ne porte pas l'extension .XLS.
Mon problème justement est que je veux ouvrir ce dernier pour rompre les
liaisons pour récuperer les valeurs.
Pour l'instant j'explore la solution de michdenis.
Mais j'aimerais pas mourir idiot, même si ma femme me dis que je deviens
"mettons dingo pour varier" avec le VBA.
Cordialement
Claude
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de
news:uECryfpYEHA.3944@tk2msftngp13.phx.gbl...
Bonjour,
Notepad est un éditeur (simple, voire simplet) de texte (et presque rien
d'autre).
Si tu as des carrés, ça peut vouloir dire que :
- ton fichier n'est pas du texte pur mais contient de la mise en forme,
- ton fichier texte est peut-être vérolé
- ce n'est peut-être pas un fichier texte.
Si tu nous donne le nom du fichier en question (surtout son extension),
ça va aider à déterminer l'origine. Si ton fichier est un fichier Excel
par exemple, il te faut passer par workbooks.open filetoopen
@+
François-Xavier
Claude HERRMANN wrote:
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
Le fichier n'a justement aucune extension. Il provient d'un fichier .XLS et peut être ouvert avec excel. Il provient d'un fichier excel appellé "sauvegarde"qui contient des liaisons avec d'autres classeurs( sous forme d'equations = copie de fichier, cellule etc...).. Je l'appelle par exemple "save 100". Ce dernier contient les mêmes liaisons. Les 2 fichiers sauvegarde et save 100 sont donc identiques, mais ce dernier ne porte pas l'extension .XLS. Mon problème justement est que je veux ouvrir ce dernier pour rompre les liaisons pour récuperer les valeurs.
Pour l'instant j'explore la solution de michdenis. Mais j'aimerais pas mourir idiot, même si ma femme me dis que je deviens "mettons dingo pour varier" avec le VBA.
Cordialement Claude
"FxM" a écrit dans le message de news:
Bonjour,
Notepad est un éditeur (simple, voire simplet) de texte (et presque rien d'autre).
Si tu as des carrés, ça peut vouloir dire que : - ton fichier n'est pas du texte pur mais contient de la mise en forme, - ton fichier texte est peut-être vérolé - ce n'est peut-être pas un fichier texte.
Si tu nous donne le nom du fichier en question (surtout son extension), ça va aider à déterminer l'origine. Si ton fichier est un fichier Excel par exemple, il te faut passer par workbooks.open filetoopen
@+ François-Xavier
Claude HERRMANN wrote:
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" a écrit dans le message de news:
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
