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
Partager