Problème macro msgbox

[annov]

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

 

[Hellboy]

Re : Problème macro msgbox

MsgBox "Vous consultez le" & _
Range("A30").End(xlUp).Value
CommandButton1.Visible = False


Insérer après le End With ???

 

[annov]

Re : Problème macro msgbox

Bonsoir, Hellboy

J'ai essayé mais sans succès ?

Merci

 

[annov]

Re : Problème macro msgbox

Bonsoir,

Je reviens vers vous au cas ou vous auriez une piste pour résoudre ce problème .

d'avance merci .

 

[Hellboy]

Re : Problème macro msgbox

Bonsoir à toi,

Pourrais-tu joindre ton fichier s.v.p.
Je risque moins de te répondre n'importe quoi.

merci

 

[annov]

Re : Problème macro msgbox

Bonsoir, Hellboy

Ci joint le bout de fichier car je transfert les données d'un .csv externe pour les convertir au passage.

Merci

 

[Hellboy]

Re : Problème macro msgbox

excuse moi, mais ça va aller à demain pour moi.
Si personne n'a prit la balle je regarde ça demain.

 

[annov]

Re : Problème macro msgbox

Ok bon repos

@+

 

[Hellboy]

Re : Problème macro msgbox

Bonjour annov,

Je dois avouer que c'est un peu plus difficle à déverminer sans l'autre fichier que tu utilise. En fait, qu'est-ce que tu cherche à accomplir et ou est-ce que ça se goure ?

 

[Isearch]

Re : Problème macro msgbox

Bonjour à tous,
chu new dans le forum et souhaitais solliciter votre aide pour un sujet qui n'a rien avoir avec celui là mais
je n'arrive à trouver dans le site où aller pour ouvrir une nlle discution.
pourriez vous m'indiquer comment faire?

merci à tous.

 

[annov]

Re : Problème macro msgbox

Bonjour, Hellboy

En fait le début du code concerne le chargement et la convertion des données csv d'un fichier sur clé usb , là pas de problème . A la fin de cette action, pour informer la personne qui utilise cette fonction je souhaite lui indiquer ce quelle vient d'importer dans ce cas précis le n° de semaine dans la cellule "A30" et c'est à ce moment précis que ça bloque . J'ai bien éssayé de joindre à ce post le fichier csv mais je n'y suis pas arrivé ?

Merci de 't interresser à mon problème.

 

[laurent950]

Re : Problème macro msgbox

Bonsoir,


Peut-être comme cela :

si vous considérer que Semaine (A33) est la dernière cellule de la colonne A:A alors il faut remonter à la dernière cellule non vide de cette même colonne A:A est c'est donc la cellule A30.

MsgBox "Vous consultez le " & _
Range("A33").End(xlUp).Value

Laurent