Discussion :

[mick77]

Il s'agit en fait de l'importation et de la mise en forme de fichier txt dans excel. Une macro automatisera l'importation et la mise en forme et un formulaire servira a choisir le fichier avec 4 listes deroulantes (numero magasin, journal, année, mois). Les choix seront stocké dans des variables du même nom pour reconstitiuer le nom du fichier txt. Mais ca marche pas, j'ai retourner ca dans tout les sens et je trouve pas de solution, je solicite donc votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Import()
 
Dim Adresse As String ' Variable qui va contenir l'adresse du dossier + les éléments pour
'identifier le documents à importer.
 
Adresse = "C:\Documents and Settings\JESSICA\Mes documents\Documents\magasin & journal & annee & mois.txt"
' Affectation de l'adresse du dossier à la variable Adresse
 
    With ActiveSheet.QueryTables.Add(Connection = Adresse, Destination = Range("A1"))
        .Name = "004RE704"
        .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 = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(1, 8, 1, 11, 1, 9, 1, 9, 1, 11, 1, 11, 1, 11, 1, 11, 1, 8 _
        , 1)
        .Refresh BackgroundQuery:=False

Merci d'avance

[dadavyvy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Import()
 
Dim Adresse As String ' Variable qui va contenir l'adresse du dossier + les éléments pour
'identifier le documents à importer.
 
Adresse = "C:\Documents and Settings\JESSICA\Mes documents\Documents\magasin & journal & annee & mois.txt"

Su cette derniere ligne de code, tu melanges variables et chaine de caracteres. Je suppose que "magasin", "journal", "annee" et "mois" sont des variables publiques ou globales définies à l'extérieur de cette procédure Import(). Essaie donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Adresse = "C:\Documents and Settings\JESSICA\Mes documents\Documents\" & magasin & journal & annee & mois & ".txt"

[mick77]

Désolé de ne pas avoir pu repondre avant.
Effectivement magasin, journal, annee et mois sont des variables globale déclarer dans un module associé au formulaire. Je te remercie, en effet c'est beaucoup plus clair mais ca ne résout pas mon probleme car je crois que les variables en questions sont mal déclaré (en global):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Public Sub ComboBox_annee_Change()
 Dim Anne As String ' Declaration d'une variable annee
 
Annee = ComboBox_annee ' ' Affectation du contenu selectionné de la liste déroulante_
'à la variable
 
End Sub

Il m'affiche "Argument ou appel de procédure incorrect", je pense que c'est les variables qui sont mal déclarée car j'ai mis le premier caractère en majuscule et dans le module elles reste en minuscule.
De plus je ne sais pas si j'ai choisi la bonne methode pour enregistrer le choix fais dans la liste déroulante dans la variable.

Merci beaucoup de votre aide

[ouskel'n'or]

Tu peux expliquer ce qu'est censé faire cette macro ? Parce que là, je ne vois pas