Discussion :

[cyberboy00]

Salut,
je suis débutant en VBA, et j'ai une question à vous poser:
j'ai créé une application sous VBA qui importe et lit dans un fichier excel, et je voudrais désctiver toutes les macros de ce fichier avant de l'importer.
Merci d'avance.

mon prog est le suivant:

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
Public Sub Demarrer_Click()
Dim filt As String
Dim index As Integer
Dim cheminFichier As Variant
Dim titre As String
Dim i As Integer
Dim Msg As String
'Définit la liste des fichiers
 
filt = "fichiers xls (*.xls),*.xls,"
 
index = 3
titre = "Délectionner un fichier à importer"
 
cheminFichier = Application.GetOpenFilename(filefilter:=filt, Filterindex:=index, Title:=titre, MultiSelect:=True)
If Not IsArray(cheminFichier) Then
MsgBox "Aucun fichier n'a été sélectionné"
Exit Sub
End If
 
 
For i = LBound(cheminFichier) To UBound(cheminFichier)
    Msg = Msg & cheminFichier(i)
 
Next i
 
 
 
'MsgBox "Vous avez sélectionné :" & vbCrLf & Msg
Workbooks.Open Filename:=Msg
Sheets(1).Select
 
End Sub

[ouskel'n'or]

Teste en mettant

Code :

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

1
2
3
4
5
6
'...ton code
'...
Application.enableEvents = false
Workbooks.Open Filename:=Msg
Sheets(1).Select
Application.enableEvents = True

Tu dis

[cyberboy00]

ça marche, Merci beaucoup!!
je voudrais savoir si tu as une méthodes pour importer plusieurs fichiers de ce type à la fois?

[ouskel'n'or]

As-tu testé ça ?

Code :

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

1
2
3
4
5
6
7
8
For i = LBound(cheminFichier) To UBound(cheminFichier)
    Application.enableEvents = false
    Workbooks.Open cheminFichier(i)
    'Sheets(1).Select 'on n'est jamais obligé de sélectionner 
    'une feuille pour travailler dedans... 
    'sauf peut-être pour placer des filtres (à tester)
    Application.enableEvents = True
Next i

Si ton tableau ne comporte qu'un fichier, LBound(cheminFichier) = UBound(cheminFichier) et tu n'auras pas d'erreur.
S'il en comporte plusieurs... non plus
Tu dis
A+

[cyberboy00]

Merci Beaucoup!!
en fait je suis en train de developper une application qui fait du traitement de masse sur des fichiers excel. En effet je veux récupperer des données sur ces fichiers, et je ne pense pas que ça serais vraimment nécéssaire de tous les ouvrir pour la récuppération des données, mais comme je suis débutant c'est le seul moyen que j'ai trouvé pour l'instant afin de faire ce traitement.
Si tu as des propositions je suis toujours prennant.
Et encore Mille Mercis.

[ouskel'n'or]

Tu peux toujours regarder ici si tu as plusieurs données à récupérer dans tes classeurs.
Tu sais aussi qu'on peut écrire dans une cellule
='Chemin[Nom du fichier.xls]Nom de la feuil'!Adresse de la cellule
Ce qui donne, pour avoir la valeur de la cellule B12 de la feuille "Feuil1 du classeur "LeClasseur.xls" placé dans le répertoire "D:\xls\" :

Code :

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

='D:\xls\[LeClasseur.xls]Feuil1'!$B$12

Tu as également une autre méthode ici, pour des données ponctuelles.
Bonnes lecture et bon courage
A+