Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ouvrir le menu avec une macro

Ouvrir le menu avec une macro

3 réponses
Avatar
watdubef
Bonjour,
WinXP Office 2003
Je voudrais ouvrir le menu pour importé des données externes à l'aide
d'une macro. Mais je ne veux pas que ce soit toujours le meme fichier
qui soit ouvert, je veux que l'utilisateur ait le choix du fichier a
extraire.
Pouvez-vous me donner un petit coup de main avec sa... je suis assez
débutant avec les macros.

Merci à l'avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir Fredo,
Serait ce un truc comme ci que tu cherches ?
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/GetOpenSaveAsFileName.txt
sinon, 50 autres réponses au mot ouvrir ici :
http://www.excelabo.net/moteurs/moteurmultisites.php
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Fredo" a écrit dans le message de
news:
Bonjour,
WinXP Office 2003
Je voudrais ouvrir le menu pour importé des données externes à l'aide
d'une macro. Mais je ne veux pas que ce soit toujours le meme fichier
qui soit ouvert, je veux que l'utilisateur ait le choix du fichier a
extraire.
Pouvez-vous me donner un petit coup de main avec sa... je suis assez
débutant avec les macros.

Merci à l'avance


Avatar
watdubef
Bonjour,
Cher Philippe, ton lien m'a mener a 2 macros qui ne marchait pas...
De plus, sa en semblait pas être ce que je recherche (du moins j'ai
p-e pas réussi a le voir).

Tk, voila une macro que j'ai enregistrer avec l'enregistreur:

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;T:tests.txt",
_
Destination:=Range("A1"))
.Name = "tests"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:úlse
End With
End Sub

Comment faire pour que la macro ne regarde pas seulement le fichier
tests.txt mais plutot m'ouvre une boite pour que je choisisse le
fichier moi meme?

Merci a l'avance



PS:Le moteur de recherche de excelabo a eu des ratés avec moi, il ne
m'affichait que 2 pages sur 4 (les 3 dernières etant pareil a la
deuxieme... L'erreur est: "Warning: mysql_num_rows(): supplied
argument is not a valid MySQL result resource in moteurmultisites.php
on line 110")
Bonne fin de journée.

"Philippe.R" wrote in message news:...
Bonsoir Fredo,
Serait ce un truc comme ci que tu cherches ?
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/GetOpenSaveAsFileName.txt
sinon, 50 autres réponses au mot ouvrir ici :
http://www.excelabo.net/moteurs/moteurmultisites.php
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Fredo" a écrit dans le message de
news:
Bonjour,
WinXP Office 2003
Je voudrais ouvrir le menu pour importé des données externes à l'aide
d'une macro. Mais je ne veux pas que ce soit toujours le meme fichier
qui soit ouvert, je veux que l'utilisateur ait le choix du fichier a
extraire.
Pouvez-vous me donner un petit coup de main avec sa... je suis assez
débutant avec les macros.

Merci à l'avance




Avatar
michdenis
Bonjour Freedo,

Tu peux essayer ceci :

Dim Fichier As String

Fichier = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If Fichier = "Faux" Then Exit Sub

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fichier, _
Destination:=Range("A1"))
.Name = "tests"
.FieldNames = True
.RowNumbers = False

le reste du code :


Salutations!



"Fredo" a écrit dans le message de news:
Bonjour,
Cher Philippe, ton lien m'a mener a 2 macros qui ne marchait pas...
De plus, sa en semblait pas être ce que je recherche (du moins j'ai
p-e pas réussi a le voir).

Tk, voila une macro que j'ai enregistrer avec l'enregistreur:

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;T:tests.txt",
_
Destination:=Range("A1"))
.Name = "tests"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:úlse
End With
End Sub

Comment faire pour que la macro ne regarde pas seulement le fichier
tests.txt mais plutot m'ouvre une boite pour que je choisisse le
fichier moi meme?

Merci a l'avance



PS:Le moteur de recherche de excelabo a eu des ratés avec moi, il ne
m'affichait que 2 pages sur 4 (les 3 dernières etant pareil a la
deuxieme... L'erreur est: "Warning: mysql_num_rows(): supplied
argument is not a valid MySQL result resource in moteurmultisites.php
on line 110")
Bonne fin de journée.

"Philippe.R" wrote in message news:...
Bonsoir Fredo,
Serait ce un truc comme ci que tu cherches ?
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/GetOpenSaveAsFileName.txt
sinon, 50 autres réponses au mot ouvrir ici :
http://www.excelabo.net/moteurs/moteurmultisites.php
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Fredo" a écrit dans le message de
news:
Bonjour,
WinXP Office 2003
Je voudrais ouvrir le menu pour importé des données externes à l'aide
d'une macro. Mais je ne veux pas que ce soit toujours le meme fichier
qui soit ouvert, je veux que l'utilisateur ait le choix du fichier a
extraire.
Pouvez-vous me donner un petit coup de main avec sa... je suis assez
débutant avec les macros.

Merci à l'avance