Bonjour,
j'ai une macro qui va chercher un fichier .csv mais j'aimerais que l'utilisateur choisisse sont fichier et par la suite l'importe..
voici ma macro de base:
Sub fiche()
'
' fiche Macro
'
' Touche de raccourci du clavier: Ctrl+y
Range("a1:e800").Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Administrateur\Bureau\MLJ30071101.csv", _
Destination:=Range("$A$1"))
.Name = "MLJ30071101"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("A:E").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'Range("A1:D2").Select
'ActiveWorkbook.Names.Add Name:="ente", RefersToR1C1:="=Feuil1!R1C1:R2C4"
'ActiveWorkbook.Names("ente").Comment = ""
With ActiveSheet.PageSetup
'en-tête de page
.LeftHeader = Sheets(1).Range("a1") '<-- contenu de la cellule A1 (sans précision = style par défaut)
.CenterHeader = "&G&12&""Comic Sans Ms""Sommaire de Pesée" '<-- texte (style gras + taille 12 + style police)
.RightHeader = Sheets(1).Range("d1") '<-- texte + indice
'pied de page
.LeftFooter = "&I&D / &T" '<-- date / heure (style italique)
.CenterFooter = "&G&A" & Chr(10) & "&G&F" '<-- nom feuille (activation style gras) + saut de ligne + nom fichier (désactivation style gras)
.RightFooter = "&8&P/&N" '<-- numéro de page / nombre de pages (taille 8)
End With
End Sub
Je sais que c'est cette section qur je dois changer :With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Administrateur\Bureau\MLJ30071101.csv", _
Destination:=Range("$A$1"))
.Name = "MLJ30071101"
pouvez-vous m'aider..
Bonjour, j'ai une macro qui va chercher un fichier .csv mais j'aimerais que l'utilisateur choisisse sont fichier et par la suite l'importe.. voici ma macro de base:
Sub fiche() ' ' fiche Macro ' ' Touche de raccourci du clavier: Ctrl+y
Range("a1:e800").Select Selection.ClearContents With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:Documents and SettingsAdministrateurBureauMLJ30071 101.csv", _ Destination:=Range("$A$1")) .Name = "MLJ30071101" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:úlse End With Columns("A:E").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With 'Range("A1:D2").Select 'ActiveWorkbook.Names.Add Name:="ente", RefersToR1C1:="þui l1!R1C1:R2C4" 'ActiveWorkbook.Names("ente").Comment = "" With ActiveSheet.PageSetup 'en-tête de page .LeftHeader = Sheets(1).Range("a1") '<-- contenu de la cellule A1 (sans précision = style par défaut) .CenterHeader = "&G&12&""Comic Sans Ms""Sommaire de Pesée" '<- - texte (style gras + taille 12 + style police) .RightHeader = Sheets(1).Range("d1") '<-- texte + indice 'pied de page .LeftFooter = "&I&D /&T" '<-- date / heure (style italique) .CenterFooter = "&G&A"& Chr(10)& "&G&F" '<-- nom feuille (acti vation style gras) + saut de ligne + nom fichier (désactivation style gras) .RightFooter = "&8&P/&N" '<-- numéro de page / nombre de pages (taille 8) End With
End Sub
Je sais que c'est cette section qur je dois changer :With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:Documents and SettingsAdministrateurBureauMLJ30071 101.csv", _ Destination:=Range("$A$1")) .Name = "MLJ30071101" pouvez-vous m'aider..
Salutation Ghislaine
Bonjour,
Regarde du côté de Application.GetOpenFileName
ghislaineg a écrit, le 09/09/2011 17:03 :
Bonjour,
j'ai une macro qui va chercher un fichier .csv mais j'aimerais que
l'utilisateur choisisse sont fichier et par la suite l'importe..
voici ma macro de base:
Sub fiche()
'
' fiche Macro
'
' Touche de raccourci du clavier: Ctrl+y
Range("a1:e800").Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:Documents and SettingsAdministrateurBureauMLJ30071 101.csv",
_
Destination:=Range("$A$1"))
.Name = "MLJ30071101"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("A:E").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'Range("A1:D2").Select
'ActiveWorkbook.Names.Add Name:="ente", RefersToR1C1:="=Feui l1!R1C1:R2C4"
'ActiveWorkbook.Names("ente").Comment = ""
With ActiveSheet.PageSetup
'en-tête de page
.LeftHeader = Sheets(1).Range("a1") '<-- contenu de la cellule A1 (sans
précision = style par défaut)
.CenterHeader = "&G&12&""Comic Sans Ms""Sommaire de Pesée" '<- - texte
(style gras + taille 12 + style police)
.RightHeader = Sheets(1).Range("d1") '<-- texte + indice
'pied de page
.LeftFooter = "&I&D /&T" '<-- date / heure (style italique)
.CenterFooter = "&G&A"& Chr(10)& "&G&F" '<-- nom feuille (acti vation
style gras) + saut de ligne + nom fichier (désactivation style gras)
.RightFooter = "&8&P/&N" '<-- numéro de page / nombre de pages (taille 8)
End With
End Sub
Je sais que c'est cette section qur je dois changer :With
ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:Documents and SettingsAdministrateurBureauMLJ30071 101.csv",
_
Destination:=Range("$A$1"))
.Name = "MLJ30071101"
pouvez-vous m'aider..
Bonjour, j'ai une macro qui va chercher un fichier .csv mais j'aimerais que l'utilisateur choisisse sont fichier et par la suite l'importe.. voici ma macro de base:
Sub fiche() ' ' fiche Macro ' ' Touche de raccourci du clavier: Ctrl+y
Range("a1:e800").Select Selection.ClearContents With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:Documents and SettingsAdministrateurBureauMLJ30071 101.csv", _ Destination:=Range("$A$1")) .Name = "MLJ30071101" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:úlse End With Columns("A:E").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With 'Range("A1:D2").Select 'ActiveWorkbook.Names.Add Name:="ente", RefersToR1C1:="þui l1!R1C1:R2C4" 'ActiveWorkbook.Names("ente").Comment = "" With ActiveSheet.PageSetup 'en-tête de page .LeftHeader = Sheets(1).Range("a1") '<-- contenu de la cellule A1 (sans précision = style par défaut) .CenterHeader = "&G&12&""Comic Sans Ms""Sommaire de Pesée" '<- - texte (style gras + taille 12 + style police) .RightHeader = Sheets(1).Range("d1") '<-- texte + indice 'pied de page .LeftFooter = "&I&D /&T" '<-- date / heure (style italique) .CenterFooter = "&G&A"& Chr(10)& "&G&F" '<-- nom feuille (acti vation style gras) + saut de ligne + nom fichier (désactivation style gras) .RightFooter = "&8&P/&N" '<-- numéro de page / nombre de pages (taille 8) End With
End Sub
Je sais que c'est cette section qur je dois changer :With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:Documents and SettingsAdministrateurBureauMLJ30071 101.csv", _ Destination:=Range("$A$1")) .Name = "MLJ30071101" pouvez-vous m'aider..
