Bonsoir,
J'ai mis dans un module (cidessous) un msgbox juste avant de masqué le bouton le problème c'est que ça marche lorsque je le teste
MsgBox "Vous consultez le" & _
Range("A30").End(xlUp).Value
sur une feuille vierge mais inclus dans mon code ci dessous ça ne marche pas
?
Merci.
'
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\ghsty.csv" _
, Destination:=Range("$C$34"))
Name = "ghsty_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierSingleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = True
.TextFileOtherDelimiter = """"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
MsgBox "Vous consultez le" & _
Range("A30").End(xlUp).Value
CommandButton1.Visible = False
End With