je me dit que peut etre ce serait plus simple de passer par un programme C++...mais j'avoue que rien que l'idee d'y penser me donne des boutons...
voici la macro que j'ai enregistre :
mais a mon avis le probleme vient du site ftp et du mot de passe. Meme en dehors de la macro, des fois il me redemande le mot de passe (que j'ai enregistrer lors de la saisi du site ftp), et des fois non, des fois ca marche plusieur fois d'affile, et des fois non. J'ai l'impression que ca marche si il me demande mon mot de passe, sinon non. Comme si le fait de ne pas le demander signifiait que je suis deja dans le site ftp, et du coup quand j'y suis deja, je ne peux pas ouvrir et enregistrer de fichiers....enfin ce sont juste des impressions.
Sub essaimacro2()
'
' essaimacro2 Macro
' Macro enregistrée le 19/04/2005 par ernandes lydia
'
'
Range('A1').Select
ActiveCell.FormulaR1C1 = 'lat'
Range('B1').Select
ActiveCell.FormulaR1C1 = 'long'
Range('C1').Select
ActiveCell.FormulaR1C1 = 'brightness'
Range('D1').Select
ActiveCell.FormulaR1C1 = 'scan'
Range('E1').Select
ActiveCell.FormulaR1C1 = 'track'
Range('F1').Select
ActiveCell.FormulaR1C1 = 'acqdate'
Range('G1').Select
ActiveCell.FormulaR1C1 = 'acqtime'
Range('H1').Select
ActiveCell.FormulaR1C1 = 'satellite'
Range('I1').Select
ActiveCell.FormulaR1C1 = 'confidence'
Range('A2').Select
With ActiveSheet.QueryTables.Add(Connection:= _
'TEXT;
ftp://mapsftp.geog.umd.edu/Europe', Destination:= _
Range('A2'))
.Name = 'Europe.A2004309'
.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 = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\ernandes\\Bureau\\EuropeA2004309.xls'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\ernandes\\Bureau\\EuropeA2004309.txt', FileFormat:= _
xlText, CreateBackup:=False
End Sub
PS : il m'indique un probleme au niveau du .Refresh BackgroundQuery:=False