Les cookies nous permettent d'offrir nos services. En utilisant nos services, vous acceptez notre utilisation des cookies.
Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
Inscription
x

or

Comment créer un rendez-vous à partir de données Excel?

En supposant que vous ayez une table de données de rendez-vous dans une feuille de calcul Excel, comme illustré ci-dessous, vous souhaitez maintenant importer ces données dans le calendrier Outlook. Comment pouvez-vous gérer ce travail rapidement?

doc exporter des données Excel sur rendez-vous 1

Créer des rendez-vous à partir de données Excel avec du code VBA


Créer des rendez-vous à partir de données Excel avec du code VBA

Pour créer des rendez-vous à partir de données Excel, vous pouvez appliquer le code VBA suivant, veuillez procéder comme suit:

1. Lancez Outlook et maintenez la ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Importer des données Excel sur rendez-vous:

Public Sub CreateOutlookApptz()
    Dim xAppointmentItem As Outlook.AppointmentItem
    Dim xNameSpace As Outlook.NameSpace
    Dim xCalendarFld As Outlook.MAPIFolder, xSubFolder As Outlook.MAPIFolder
    Dim xCalendarStr As String
    Dim I As Long
    Dim xFileDialog As FileDialog
    Dim xFilePath As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Workbook
    Dim xWs As Worksheet
    On Error GoTo Err_Execute
    Set xExcelApp = New Excel.Application
    Set xFileDialog = xExcelApp.FileDialog(msoFileDialogFilePicker)
    With xFileDialog
        .Title = "Select a file"
        .Filters.Add "Microsoft Excel", "*.xlsx"
    End With
    If xFileDialog.Show = 0 Then Exit Sub
    xFilePath = xFileDialog.SelectedItems(1)
    Set xWb = xExcelApp.Workbooks.Open(xFilePath)
    Set xNameSpace = Outlook.Application.Session
    Set xCalendarFld = xNameSpace.GetDefaultFolder(olFolderCalendar)
    I = 2
    Set xWs = xWb.Worksheets.Item(1)
    xCalendarStr = xWb.Name
    If FolderExist(xCalendarFld, xCalendarStr) = False Then
        Set xSubFolder = xCalendarFld.Folders.Add(xCalendarStr, olFolderCalendar)
    Else
        Set xSubFolder = xCalendarFld.Folders(xCalendarStr)
    End If
    Do Until Trim(xWs.Cells(I, 1).Value) = ""
        Set xAppointmentItem = xSubFolder.Items.Add(olAppointmentItem)
        With xAppointmentItem
            .Start = xWs.Cells(I, 5) + xWs.Cells(I, 6)
            .End = xWs.Cells(I, 7) + xWs.Cells(I, 8)
            .Subject = xWs.Cells(I, 1)
            .Location = xWs.Cells(I, 2)
            .Body = xWs.Cells(I, 3)
            .BusyStatus = olBusy
            .ReminderMinutesBeforeStart = xWs.Cells(I, 9)
            .ReminderSet = True
            .Categories = xWs.Cells(I, 4)
            .Save
        End With
        I = I + 1
    Loop
    Set xAppointmentItem = Nothing
    Set olApp = Nothing
    xExcelApp.Quit
    Set xExcelApp = Nothing
    MsgBox "Import successfully!", vbInformation, "Kutools for Outlook"
    Exit Sub
Err_Execute:
    MsgBox "An error occurred - Exporting items to Calendar.", vbInformation, "Kutools for Outlook"
End Sub
Function FolderExist(CalFolder As Folder, FolderName As String) As Boolean
    Dim I As Integer
    Dim xSubFolder As Folder
    For I = 1 To CalFolder.Folders.Count
        Set xSubFolder = CalFolder.Folders.Item(I)
        If xSubFolder.Name = FolderName Then
            FolderExist = True
            Exit Function
        End If
    Next I
End Function

3. Toujours dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur Outils > Les références pour aller à la Références-Project1 boîte de dialogue et vérifiez Bibliothèque d'objets Microsoft Excel Option de Références disponibles zone de liste, voir capture d'écran:

doc exporter des données Excel sur rendez-vous 2

4. Puis clique OK bouton, maintenant, appuyez sur F5 clé pour exécuter ce code, et un Sélectionner un fichier fenêtre est affichée, veuillez sélectionner le fichier Excel que vous souhaitez importer dans Outlook, voir capture d'écran:

doc exporter des données Excel sur rendez-vous 3

5. Et puis cliquez OK, une boîte de dialogue est affichée comme suit:

doc exporter des données Excel sur rendez-vous 4

6. Puis clique OK, les données Excel ont été importées dans le calendrier comme suit:

doc exporter des données Excel sur rendez-vous 5



Kutools for Outlook

Plus que les fonctions avancées 100 pour Outlook 2010, 2013, 2016, 2019 et 365

Capture d'écran de kutools pour Outlook tiny pour la bannière 201812

Plus de fonctionnalités | Téléchargement Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.