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
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