Discussion :

[pepsister]

Bonjour,

Je souhaite créer une macro vba assez simple (ou plutôt sans aucune règle particulière). Je souhaite quand je lance ma macro aller chercher un fichier csv dans ma boite mail et l'importer dans un autre onglet. Ensuite je ferais des traitements de comparaison avec mon premier fichier et je veux vider l'onglet où j'ai importé mes données.
Et en fait, je souhaiterais de l'aide surtout pour importer mon fichier.
Quand je lance la macro, je veux qu'il aille chercher dans ma boite mail, le fichier csv du jour qui a toujours le même nom et qu'il l'importe.

Quelqu'un peut-il m'aider ou me donner une piste. Je ne trouve rien sur les autres discussions à ce sujet.

Merci,

[defluc]

Bonjour,

http://excel.developpez.com/sources/...JointesOutlook

Source à revoir en fonction du nom du fichier csv recherché.

[Marc-L]

Bonjour, bonjour,

le plus rapide et le plus simple serait d'exporter manuellement le fichier d'Outlook vers le disque dur
car, si la messagerie contient beaucoup de messages, il faudra être patient, voir même très patient !

[pepsister]

Je ne suis pas contre l'exporter dans ce cas manuellement mais ensuite comme aller le chercher et l'importer dans mon fichier excel?

[Marc-L]

Déjà, rien qu'en l'ouvrant via un double-clic ou via Excel …

Et en utilisant l'Enregistreur de macros, une base de code est livrée sur un plateau !

Sans compter la et la Ainsi que les nombreux exemples dans diverses discussions …

[pepsister]

Bon je trouve en effet des choses, et j'avais déjà essayé pas mal de trucs. Là j'arrive à le sélectionner à l'ouvrir.
Par contre mon fichier csv, quand je l'ouvre avec excel il s'ouvre comme un tableau.
Avec la macro quand je l'importe, il importe toutes les données dans une seule colonne séparée par des ";". Je suis obligée ensuite d'aller manuellement dans l'onglet données > Convertir.
Comment puis-je l'importer une donnée une cellule, comme il est quand je l'ouvre directement via excel?
Voici ma macro:

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
40
41
42
43
44
45
46
47
 
Sub Comparaison()
 
Dim j As Long
Dim n As Long
Dim ws As Worksheet
 
Set wbdest = ActiveWorkbook
FileToOpen = Application _
  .GetOpenFilename("supervision (exemple*), exemple*")
 
If FileToOpen = False Then
    Close #1
    Exit Sub
End If
 
wb = Right$(FileToOpen, Len(FileToOpen) - InStr(FileToOpen, "exemple*") + 1)
 
'ouvre le fichier actuel à importer
Set wbsource = Workbooks.Open(wb)
'sélectionne la feuille de données à importer
Set ws = wbsource.Sheets("exemple")
'active cette feuille
ws.Activate
ws.Select
'compte le nombre de lignes dans ce fichier
j = ActiveSheet.UsedRange.Rows.Count
'compte le nombre de lignes dans ce fichier
n = ActiveSheet.UsedRange.Columns.Count
'selection des données que l’on veut importer
Range(Cells(1, 1), Cells(j, n)).Select
'copie les données sélectionnées
Selection.Copy
'retourne vers le fichier de départ
wbdest.Activate
'sélection de la cellule où on veut coller les données (la première vide)
Cells(1, 1).Select
'colle les données
ActiveSheet.Paste
'ferme le fichier source
wbsource.Close
wbdest.Activate
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
End Sub

Merci de votre aide,