Forums Rue-Montgallet.com
Rue-Montgallet.comRue-Hardware.comRue-Occasion.comRue-DVD.comRue-Jeuxvideo.comRue-AudioVideo.comRue-Telephone.comForums
S'inscrire | S'identifier |
| Recherche avancée | Aide
 
 

Il y a 63 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

créer doc Word via VBA-Outlook

 
n°19149
dirtsa
Profil : Jeune recrue
Posté le 11-01-2008 à 11:10:59  profilanswer
 

SOS !
Bonjour tout le monde !
 
J'ai un petit problème avec VBA-Outlook :
A partir d'outlook, il me faut créer un document word (qui servira à concaténer automatiquement plusieurs pièces jointes (de format word)). Pour se faire, il me faut déclarer un nouveau document word dans les variables locales.
Le problème est que je n'arrive pas à trouver le type d'objet que c'est :
 
Sub new_doc ()
Dim docWord As ???
 
j'ai essayé

  • "new office application"
  • "Word.application"
  • et bien d'autres sans succès car ils ne sont pas reconnu


Auriez-vous une idée pour faire le lien avec les autres éléments du pack office ?
 
Merci d'avance


Message édité par dirtsa le 11-01-2008 à 11:14:52
n°19152
chitiwi
Profil : Membre
Posté le 18-01-2008 à 14:35:53  profilanswer
 

Bonjour,
 
Voici un petit exemple ou j'ai fai le lien entre excel et powerpoint, ici je pilote l'ouverture et la fermeture de fichier powerpoint grace à un macro excel, tu pourra certainement y trouver des chose pour faire le lien
 
Sub Demarrage_Click()
Dim FichierEcranPpt, FichierModifppt As String
Dim newHour, newMinute, newSecond As Integer
Dim waitTime As Date
 
FichierEcranPpt = Affiche.Value
FichierModifppt = Modifie.Value
On Error GoTo Fin
Set PptApp = CreateObject("PowerPoint.Application" )
PptApp.Visible = True
 
1: Set PptDoc = PptApp.Presentations.Open(Filename:=FichierEcranPpt, ReadOnly:=True)
DoEvents
PptDoc.SlideShowSettings.Run
 
'Timer d'attente (45 minutes d'attente avant reprise de la macro)
newHour = Hour(Now())
newMinute = Minute(Now()) + 45
newSecond = Second(Now())
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
 
'ferme la présentation affichée
PptDoc.Close
Set PptDoc = Nothing
 
Set PptDoc = PptApp.Presentations.Open(Filename:=FichierModifppt, ReadOnly:=True, WithWindow:=msoFalse)
DoEvents
PptDoc.SaveAs Filename:=Affiche.Value
DoEvents
 
'ferme la présentation modifiée
PptDoc.Close
Set PptDoc = Nothing
GoTo 1
 
Fin: End Sub

n°19158
dirtsa
Profil : Jeune recrue
Posté le 21-01-2008 à 16:26:41  profilanswer
 

Merci pour ton aide, ça m'a bien débloqué !
 
Le problème maintenant c'est qu'il me faudrait passer les pièces jointes une à une en paramètre dans une procédure VBA-Outlook, et récupérer la pièce jointe avec VBA-Word pour ainsi pouvoir la traiter afin d'en faire un seul et même document.
Je ne suis même pas sûre qu'il soit possible d'effectuer ce type d'action ? comment puis-je faire ?
 

n°19161
chitiwi
Profil : Membre
Posté le 23-01-2008 à 20:13:09  profilanswer
 

Bonsoir,
 
LA je suis désolé mais je pense que je ne peux pas t'aider plus, envoyer un mail avec pièce jointe de word ok, mais l'inverse je sais pas, si on peut dans un sens on devrait pouvoir dans l'autre!!!


Aller à :
Ajouter une réponse