Comment changer l'adresse d'un fichier dans une macro ?

[Pac41]

Bonjour,

j'utilise une macro (réalisée grâce à l'assistant...) pour récupérer un fichier et le coller dans une cellule excel. Le fichier que je vais chercher se trouve dans un dossier qui va changer tous les trimestres.
Je voudrai avoir une boîte qui demande quel trimestre utiliser afin qu'il puisse aller chercher automatiquement ce-dit fichier et ne pas avoir à modifier le chemin dans la macro.

Voici la macro:
Sub recup_messages()
'
' recup_messages Macro
' Macro enregistrée le 22/10/2012 par Boulin Pascal
'

'
ActiveWindow.SmallScroll Down:=18
Range("A100:C358").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-243
Range("A100").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;I:\CAPI\EEC12D\MESSAGES\MESSAGES.ENQ", Destination:=Range("A100"))
.Name = "MESSAGES_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
End With
End Sub


Tous les trimestres le fichier Message.enq va être dans un dossier différent. Ici, c'est le dossier EEC12D qui change régulièrement.
Quelqu'un pourrait-il me donner la solution ?

Merci à vous !!

 

[JONEY76]

Re : Comment changer l'adresse d'un fichier dans une macro ?

supprime

On error goto er1

et
er1 : call error





Que dit le message d'erreur ??

 

[JONEY76]

Re : Comment changer l'adresse d'un fichier dans une macro ?

ou sinon

.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
End With


EXIT SUB

er1: Call erreur

 

[Pac41]

Re : Comment changer l'adresse d'un fichier dans une macro ?

Super !!!! ça marche !!!
merci encore !

 

[Pac41]

Re : Comment changer l'adresse d'un fichier dans une macro ?

encore une question...
serait-il possible de rajouter quelques lignes pour que je puisse également imprimer le fameux fichier message.enq qui sert dans la macro ??

 

[JONEY76]

Re : Comment changer l'adresse d'un fichier dans une macro ?

Si le fichier est importé sur le fichier excel, il faut préparer la mise en page et utiliser la méthode PRINT



ActiveWindow.SelectedSheets.PrintOut Copies:=1


A mettre juste avant le exit sub

PS, le mieux et de définir au préalable, la zone à imprimer

 

[Pac41]

Re : Comment changer l'adresse d'un fichier dans une macro ?

OK, merci, c'est ce que je pensais... juste au niveau optimal, il y a des fois où le fichier contient 1 page et d'autres 3 ou 4... Si je défini une zone d'impression, à chaque coup, il l'imprimera même si les cellules sont vides...
Sinon, oui, le fichier est importé sous excel