Discussion :

[marie33000]

Bonjour tout le monde,

Je suis etudiante en master et je dois realiser une application permettant d'analyser et extraire les produit petrolier dans un diagramme et je suis debutante en programmation...
Est ce que quelqu'un pourrait m'aider a trouver les etapes pour reussir a realiser ce projet ?
Je n'ai pas du tout la logique de programmation

merci par avance

[aalex_38]

1. Pose exactement ce que tu dois faire
2. Regarde les tutoriaux
3. Cherche dans les forums des réponses.
4. Utilises l'enregistreur de macro pour t'aider dans la syntaxe de programmation, tu peux utiliser F1 aussi dans l'editeur VBA pour l'aide.
5. Une fois que tu as avancé, si tu as des problèmes, poste le bout de code qui te bloque.

[marie33000]

Merci pour ta réponse
C'est ce que je vais faire , étape par étape tu as raison.
Je dois charger un fichier excel à l'aide de vba (je met un bouton, lorsque je dois cliquer ça devrait m'afficher le fichier à choisir), je dois utiliser la fonction common dialog, le problème c'est que je ne la trouve pas ... (je travail sous excel 2007). Je suis allée dans boite à outil -> contrôle supplémentaire mais c'est introuvable ...

Quelqu'un aurait une idée ???

Merci par avance

Help please:

en appuyant sur le bouton "CommandButton1_Click()" je souhaite choisir puis charger un fichier de donnée excel et les placer (range) dans une feuille excel afin de traiter ces données.
Est ce que quelqu'un aurait une idée, je suis une néophyte ...

merci

[Krovax]

Utilise l'enregistreur de macro pour savoir comment faire la macro qui charge les données avec les option que tu souhaites. J'ai obtenue quelque chose comme

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
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\Mes documents\Damien\exemple.txt", _
        Destination:=Range("A1"))
        .Name = "exemple"
        .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 = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Dans ta subroutine CommandButton1_Click()
Ecrit

Code :

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

1
2
3
4
 
dim fichier as string
fichier = Application.GetOpenFilename("Fichier txt (*.txt), *.txt")
'remplace les .txt par ton type de fichier

copie à la suite ce que l'enregistreur ta mis et remplace

Code :

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

1
2
 
        "TEXT;C:\Documents and Settings\Mes documents\Damien\exemple.txt", _

par

Code :

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

1
2
 
        "TEXT;" & fichier, _

Chez moi ca marche

[marie33000]

Merci beaucoup pour ton aide Damien

Alors chez moi ça marche à moitié, je t'explique:
- lorsque je clique sur le bouton j'ai le choix d'imposer l'endroit ou se trouve le fichier (bureau, mes documents etc etc) par contre sur le bureau j'ai un fichier excel s'appelant "a.xls" contenant que des chiffres (1 2 3 4 5 6 7 8 9 pour la colonne A et 10 11... 19 pour la colonne B) mais lorsque je clique donc sur bureau il ne me détecte pas ce fichier (a.xls) :s

voici mon code (je te cache pas qu'il ressemble beaucoup au tien ):

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
35
36
37
38
39
Private Sub CommandButton1_Click()
TextBox1 = Time
TextBox2 = Date
 
 
 
Dim fichier As String
fichier = Application.GetOpenFilename("Fichier excel (*.xls), *.xls")
    With ActiveSheet.QueryTables.Add(Connection:= _
        " TEXT;" & fichier, _
        Destination:=Range("A1"))
        .Name = "exemple"
        .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 = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
 
 
End Sub

[Krovax]

En fait toute la partie

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
 With ActiveSheet.QueryTables.Add(Connection:= _
" TEXT;" & fichier, _
Destination:=Range("A1"))
.Name = "exemple"
.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 = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False

Change en fonction du type de fichier que tu ouvre il faut que tu utilise l'enregistreur de macro et que tu regarde le code quand tu l'ouvre manuellement; Si tu as plusieurs type de fichier possible va peut falloir adapter et détecter le type de fichier et lancer l'ouverture qui correspond

ps : pour rendre les codes de tes post plus lisible après l'avoir tapé sélectionne le code et apuie sur le petit # au dessus de la zone de frappe
Cela rajoute [CODE"] au début et [/CODE"] a la fin (sans les " )