Forums - Tous les messages : myDearFriend! Excel Pages

Forums XLPages

Tous les messages (pierre3401)

Importer plusieurs tableaux word en gérant les sauts de lignes...		#1
pierre3401 Débutant XLPages Inscription: 29/06/2011 Messages: 5 Système d'exploitation: PC Version Excel utilisée: 2003,2007	Posté le : 18-04-2012 09h39 Bonjour, Dans le code ci-dessous, j'importe un tableau word en effacant les sauts de lignes que sa copie génère... Sub tableauSansLignes() Dim WordDoc As Object Dim i As Integer, j As Integer Dim Wb As Workbook Dim Cible As Variant Dim Fichier As Variant 'affichage boite de dialogue pour choisir un document Word Fichier = Application.GetOpenFilename("Text Files (.doc), .doc") If Fichier = False Then Exit Sub Set WordDoc = GetObject(Fichier) Set Wb = Workbooks.Add(1) For i = 1 To WordDoc.Tables(1).Rows.Count For j = 1 To WordDoc.Tables(1).Columns.Count Cible = WordDoc.Tables(1).Columns(j).Cells(i) Sheets(1).Cells(i, j) = _ Application.WorksheetFunction.Substitute(Cible, vbCr, vbLf) Sheets(1).Cells(i, j) = _ Left(Sheets(1).Cells(i, j), Len(Sheets(1).Cells(i, j)) - 1) Next j Next i Wb.ActiveSheet.Range("A1").Select Wb.ActiveSheet.Paste Application.CutCopyMode = False Application.Dialogs(xlDialogSaveAs).Show End Sub Mon problème, c'est que je travaille souvent avec des documents qui comptent plusieurs tableaux, j'aurais donc voulu savoir s'il est possible d'adapter ce code pour copier l'ensemble des tableau d'un fichier word tout en gérant ces sauts de lignes et ce, quel que soit le nombre de tableaux dans le document. Merci d'avance,

Sujet | Forum

créer et enregistrer une tâche dans un sous dossier de tâches outlook.

pierre3401

Débutant XLPages

Inscription: 29/06/2011

Messages: 5

Système d'exploitation:

Version Excel utilisée:

2003,2007

Posté le : 23-01-2012 09h37

Bonjour,

Avec le code ci-dessous, j'arrive à créer un sous-dossier de tâches dans outlook et à créer une tâche, mais le problème est que la tâche ne s'enregistre pas dans le sous-dossier qui vient d'être créé, mais à la racine du dossier de tâches...
Quelqu"un d'assez aimable aurait-il la solution ?

Merci d'avance.

Sub CreateDossierTask()
 
    Dim monOutlook As New Outlook.Application
    Dim ns As NameSpace
    Dim dossier As MAPIFolder
    Dim myNewFolder As MAPIFolder
 
    Set ns = monOutlook.GetNamespace("MAPI")
    Set dossier = ns.Folders("Mailbox - BOULANGER PIERRE").Folders("Tasks")
    Set myNewFolder = dossier.Folders.Add("Test")
 
'appeller la fonction de création de la tâche
Creer_TacheOutlook
 
End Sub
 
Sub Creer_TacheOutlook()
 
    ' Dimensionner l'objet Outlook
    Dim oOutlook As Outlook.Application
    ' Dimensionner la tâche
    Dim oTache As TaskItem
 
        Set oOutlook = CreateObject("Outlook.Application")     ' Créer la tâche
        Set oTache = oOutlook.CreateItem(olTaskItem)           ' Affecter les propriétés à la tâche
 
 
With oTache
    .Status = olTaskInProgress
    .Importance = olImportanceHigh
    .StartDate = Now  'Date de épart
    .DueDate = Now + 5   ' Echéance
    .Subject = "Test " ' Objet
    .Body = "Test de création de tâches dans un sous-dossier"  ' texte explicatif
    .Save ' Enregistrer la nouvelle tâche
End With
 
' vider les objets pour libérer la mémoire
Set oTache = Nothing
Set oOutlook = Nothing
 
End Sub

Sujet | Forum

Re: Aide sur planning auto		#3
pierre3401 Débutant XLPages Inscription: 29/06/2011 Messages: 5 Système d'exploitation: PC Version Excel utilisée: 2003,2007	Posté le : 05-09-2011 07h38 Bonjour, En fait, sur le poste défaillant, j'ai essayé d'inscrire le fichier MSCOMCT2.OCX dans la base de registre (regsvr32 c:\windows\System32\MSCOMCT2.OCX), mais malheureusement je n'ai pas les droits d'accès... Le problème, est que le fichier est nommé en MAJUSCULE, alors que dans la base de registre, l'inscription existante est en minuscule, serait-ce là le problème ?

Sujet | Forum

Re: Aide sur planning auto		#4
pierre3401 Débutant XLPages Inscription: 29/06/2011 Messages: 5 Système d'exploitation: PC Version Excel utilisée: 2003,2007	Posté le : 22-08-2011 14h01 Bonjour, je me permets de relancer, n'ayant pas eu de réponse... entretemps, j'ai constaté un autre problème, au boulot, nous travaillons tous avec excel 2003 sp3, si le prog fonctionne bien pour la plupart d'entre-nous, ceratins on ce message lorsqu'ils veulent faire une réservation: "Object library invalid or contains réferences to object définitions that could not be found" Merci de votre aide... Ci-joint le lien ou télécharger mon fichier: Reservation vehicule1.zip Edité par pierre3401 le 22/08/2011 14:32:20

Sujet | Forum

Re: Aide sur planning auto		#5
pierre3401 Débutant XLPages Inscription: 29/06/2011 Messages: 5 Système d'exploitation: PC Version Excel utilisée: 2003,2007	Posté le : 29-06-2011 17h51 Bonjour, Je me suis permis de reprendre le fichier de Kelly (dernière version) et de le mettre à ma sauce perso, par exemple mes plages horaires sont 07h30-10hy00, 10h00-12h00, 12h00-14h00 et 14h00-16h00... Il me reste quatre questions: 1/ Malgré lez code " If Cells(Lig, Prem_Heure).MergeCells Or Cells(Lig, Der_Heure).MergeCells Then 'si les cellules trouvées sont fusionnées MsgBox "Créneau déjà utilisé" 'on prévient que le créneau est déjà pris le message n'apparaît pas et la nouvelle réservation remplace l'ancienne 2/ Est-il possible, en modifiant le code de ne laisser séléctionner que les véhicules disponible pour une plage donnée? C-à-d, sir je veux réserver un véhicule le 01/07/2011 entre 07h30 et 12h00, je ne peus choisir que les véhicules non encore réserver pour cette date et ces heures-là. 3/ Est-il possible de réservere l'usage du bouton d'annulation au seul administrateur du fichier? Je m'explique, plusieurs personne font des réservation et le parc de véhicule est souvent full, dès lors certains annulent une réservation pour placer la leur (( 4/ Enfin, si ce fichier fonctionne bien sous exell 2003, sous 2007, il lance un déboguage me disant qu'il manque des bibliothèques d'ojets ?!? Merci pour votre aide.

Sujet | Forum