web-dev-qa-db-fra.com

Ouvrez un classeur à l'aide de FileDialog et manipulez-le dans Excel VBA

J'apprends à utiliser les macros Excel et j'ai trouvé ce code:

Dim fd As Office.FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd

    .AllowMultiSelect = False
    .Title = "Please select the file to kill his non colored cells"
    .Filters.Add "Excel", "*.xls"
    .Filters.Add "All", "*.*"

    If .Show = True Then
        txtFileName = .SelectedItems(1)
    End If

End With

Ce code ouvre le FileDialog. Comment puis-je ouvrir le fichier Excel sélectionné sans écraser celui précédemment ouvert?

excelvbaexcel-vbaopenfiledialog
13
user3576866

Merci Frank. J'ai eu l'idée. Voici le code de travail.

Option Explicit
Private Sub CommandButton1_Click()

  Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
  Dim fd As Office.FileDialog

  Set fd = Application.FileDialog(msoFileDialogFilePicker)

  With fd
    .AllowMultiSelect = False
    .Title = "Please select the file."
    .Filters.Clear
    .Filters.Add "Excel 2003", "*.xls?"

    If .Show = True Then
      fileName = Dir(.SelectedItems(1))

    End If
  End With

  Application.ScreenUpdating = False
  Application.DisplayAlerts = False

  Workbooks.Open (fileName)

  For Each sheet In Workbooks(fileName).Worksheets
    total = Workbooks("import-sheets.xlsm").Worksheets.Count
    Workbooks(fileName).Worksheets(sheet.Name).Copy _
        after:=Workbooks("import-sheets.xlsm").Worksheets(total)
  Next sheet

  Workbooks(fileName).Close

  Application.ScreenUpdating = True
  Application.DisplayAlerts = True

End Sub
24
user3576866

À moins que je ne comprenne mal votre question, vous pouvez simplement ouvrir un fichier en lecture seule. Voici un exemple simple, sans aucun contrôle.

Pour obtenir le chemin du fichier de l'utilisateur, utilisez cette fonction:

Private Function get_user_specified_filepath() As String
    'or use the other code example here.
    Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = False
    fd.Title = "Please select the file."
    get_user_specified_filepath = fd.SelectedItems(1)
End Function

Il suffit ensuite d'ouvrir le fichier en lecture seule et de l'affecter à une variable:

dim wb as workbook
set wb = Workbooks.Open(get_user_specified_filepath(), ReadOnly:=True)
7
Frank