XL 2007 Cellules d'Excel liées à une page Word sujet

Bonjour à tous !

Je suis actuellement en plein souci car je n'arrive pas à lier mes cellules d'Excel avec mon document Word sous Office 2007.

Veuillez trouver mon fichier ci joint, mon but étant de créer exactement le même rendu sous Word que mon fichier Excel et que les données se mettent à jour automatiquement (fichier source : Excel)

Pour le "nombre 1" "nombre 2" et "Graphique 1" je n'ai aucun souci, mais lorsqu'il s'agit de lier les autres cellules de mon fichier excel, étant donné que certaines cellules sont fusionnées, tout se décale et soit il ne me laisse pas accès au collage spécial (qui me permet de créer la liaison) soit je ne voit pas carrément plus rien dans ma cellule... Je ne sais pas quoi faire :( !


Merci de votre aide !

Fichiers attachés

• 
  
  TEST.xlsx‎
  (15,3 Ko)
  

XL 2010 Création d'un rdv outlook à partir d'excel dans plusieurs calendriers sujet

Bonjour,

Je vous sollicite car j'ai une macro qui fonctionne très bien mais qui ne créé un rendez-vous que dans le calendrier outlook de la personne qui ouvre le fichier excel.

Je souhaiterait pouvoir adapter la macro de façon à pouvoir créer un rendez-vous également dans un autre calendrier pour lequel j'ai les droits d'accès en tant qu'éditeur.

Merci pour votre aide.

Voici la macro :

Code :

---

Option Explicit

Sub AjoutRV()
  Dim DLig As Long, Lig As Long
  Dim OutObj As Outlook.Application
  Dim OutAppt As Outlook.AppointmentItem
  Dim DateRdv As Date, FlgRdv As Boolean

  ' Créer une instance d'Outlook
  Set OutObj = CreateObject("outlook.application")
  ' Avec la feuille
  With Sheets("2014")
    DLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Pour chaque ligne
    For Lig = 2 To DLig
      ' Si une date de relance existe
      If .Range("B" & Lig) <> "" Then
        ' Si un RDV n'a pas déjà été créé
        If .Range("N" & Lig) <> "" Then
          ' Si le commentaire à changé
          If .Range("N" & Lig).Comment.Text <> .Range("C" & Lig).Value Then
            FlgRdv = True
          Else
            ' Sinon le commentaire n'a pas changé = pas de RDV
            FlgRdv = False
          End If
        Else
          ' Sinon, pas de RDV déjà créé
          FlgRdv = True
        End If
      Else
        ' Sinon, pas de date de relance
        FlgRdv = False
      End If
      ' Si le FLAG est à vrai on créé le RDV
      If FlgRdv Then
        DateRdv = Range("G" & Lig)
        Set OutAppt = OutObj.CreateItem(olAppointmentItem)
        With OutAppt
          .Subject = "Rappeler " & Sheets("2014").Range("A" & Lig) & " pour " & Sheets("2014").Range("A" & Lig)
          .Start = DateRdv & " 08:00"
          .Duration = 60
          .ReminderSet = True
          .Save
        End With
        ' Créer le commentaire et inscrire Oui
        On Error Resume Next
        .Range("N" & Lig).Comment.Delete
        .Range("N" & Lig).AddComment Text:=.Range("C" & Lig).Value
        .Range("N" & Lig) = "Oui"
        On Error GoTo 0
      End If
    Next Lig
  End With
  Set OutAppt = Nothing
End Sub

---