Forums XLPages

Tous les messages (MichelXld)

1 2 »
Re: créer un doc word à partir d'un tableau excel
#1
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 15-05-2009 17h36
Bonsoir,

Est ce que la transaction de publipostage Word pourrait répondre à ta demande ?

http://silkyroad.developpez.com/Excel/PublipostageWordExcel/

bon week end
michel
Hors Ligne
 Rapport   Haut 

Re: mDF-XLpages.com change de look !
#2
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 01-07-2008 21h25
bonjour à vous


Didier, félicitations pour cette nouvelle version de ton site.


bonne soirée
michel
Hors Ligne
 Rapport   Haut 

Re: WebBrowser
#3
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 27-03-2008 20h37
rebonsoir ... ;o)

voici la source initiale VB6 que j'avais adapté pour un fonctionnement en VBA

http://www.kbalertz.com/kb_185538.aspx


bonne soirée
michel
Hors Ligne
 Rapport   Haut 

Re: WebBrowser
#4
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 27-03-2008 17h49
bonjour à vous ... ;o)

juste pour info, voici la méthode que j'utilise pour forcer l'affichage dans le WebBrowser:

(à placer dans le module objet du UserForm)


Option Explicit

Dim WithEvents cible As SHDocVw.WebBrowser_V1

Private Sub cible_NewWindow(ByVal URL As String, _
    ByVal Flags As Long, ByVal TargetFrameName As String, _
    PostData As Variant, ByVal Headers As String, Processed As Boolean)

    Processed = True
    WebBrowser1.Navigate URL
End Sub



Private Sub UserForm_Initialize()
    Set cible = WebBrowser1
    WebBrowser1.Navigate2 "http://www.mdf-xlpages.com/smartsection+item.itemid+53.htm"
End Sub




bonne soirée
michel
Hors Ligne
 Rapport   Haut 

Re: Piloter des pages intranet est-il possible?
#5
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 07-03-2008 17h30
bonsoir


oui c'est possible de piloter des pages html par VBA

Passer par un webBrowser ne changera rien car tu devras ensuite manipuler le contenu de la même manière
un exemple pour piloter un bouton Radio

Sub piloterRadioBouton()
    'nécessite d'activer la référence Microsoft HTML Objects Library
    'nécessite d'activer la référence Microsoft Internet Controls
    Dim IE As internetExplorer
    Dim maPageHtml As HTMLDocument
    Dim Helem As HTMLElementCollection
    
    Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
    IE.navigate "http:laPage.html"
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop 'attend la fin du chargement
    
    Set maPageHtml = IE.document
    
    ' getElementsByName("test") est le nom du bouton Radio
    'Item(1) correspond à la 2eme option dans la liste des boutons
    Set Helem = maPageHtml.getElementsByName("test").Item(1)
    Helem.setAttribute "checked", "true"
End Sub




Un exemple pour les liste déroulantes (combobox)

Set Hsel = maPageHtml.getElementsByTagName("select")

'0 est le 1er element de la liste 
'1 est le 2eme element de la liste 
'...etc...
'0 premier combobox dans la page
'4 index de l'élément dans la liste déroulante
Hsel(0).selectedIndex = 4



bon week end
michel
Edité par MichelXld le 07/03/2008 18:49:03
Hors Ligne
 Rapport   Haut 

Re: Photo dans userform
#6
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 10-02-2008 16h48
bonjour


tu peux tester cette adaptation


Private Const Fichier As String = "C:\ImageTemp.gif"
Private Const FichDrapeau As String = "C:\ImageTempDrapeau.gif"

Private Sub Liste_noms_Change()
    Dim Nb As Integer
    Dim Sh As Shape
    
    'Affiche le prénom
    Prénoms = Cells(Me.Liste_noms.ListIndex + 2, 2)
   
    Application.ScreenUpdating = False
    
    '------------------
    'Supprime l'image temportaire si elle existe
    If Dir(Fichier) <> "" Then Kill Fichier
    Set Sh = Feuil1.Shapes(Me.Liste_noms)
    Sh.CopyPicture
    
    With Feuil1.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste
        .Export Filename:=Fichier, filtername:="GIF"
    End With
    
    'Affiche l'image dans l'UserForm
    Photos.Picture = LoadPicture(Fichier)
    
    Nb = Feuil1.ChartObjects.Count
    'supprime le graphique
    Feuil1.ChartObjects(Nb).Delete
    DoEvents
    
    '------------------
    If Dir(FichDrapeau) <> "" Then Kill FichDrapeau
    Set Sh = Feuil1.Shapes("Drapeau" & Me.Liste_noms)
    Sh.CopyPicture
    
    With Feuil1.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste
        .Export Filename:=FichDrapeau, filtername:="GIF"
    End With
    
    'Affiche l'image dans l'UserForm
    Drapeaux.Picture = LoadPicture(FichDrapeau)
    
    Nb = Feuil1.ChartObjects.Count
    'supprime le graphique
    Feuil1.ChartObjects(Nb).Delete
    
    Application.ScreenUpdating = True
    
End Sub


Private Sub UserForm_Terminate()
   'Supprime l'image temporaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
   If Dir(FichDrapeau) <> "" Then Kill FichDrapeau

End Sub



 ' Documente le menu déroulant
Private Sub UserForm_Initialize()
    Range("A2").Select
  Do While ActiveCell <> ""
    Me.Liste_noms.AddItem ActiveCell
    ActiveCell.Offset(1, 0).Select
  Loop
End Sub


Private Sub Sortie_Click()
End
End Sub




il existe d'autres solutions, notamment en utilisant le module PastePicture de Stephen Bullen



ps
évite les accentuations dans le nom de tes controles car cela peut être une source d'erreur
(Prénoms = Cells(Me.Liste_noms.ListIndex + 2, 2))


bonne soirée
michel
Edité par MichelXld le 10/02/2008 18:18:17
Hors Ligne
 Rapport   Haut 

Re: mDF XLcalendar v1.0 pour Excel 2007 en téléchargement
#7
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 23-12-2007 16h07
bonjour à vous


Citation :
Par ailleurs, j'aurais éventuellement opté pour un onglet "mDF Applications", onglet qui aurait pu servir de conteneur pour recevoir d'autres macros complémentaires de ma fabrication. Mais, là je me suis confronté à une difficulté technique à laquelle je n'ai pas trouvé de réponse...


Didier, une solution à tester pour regrouper tous tes compléments dans un même onglet personnel:

Pour réaliser cette action, le fichier CustomUI.xml de chaque complément doit contenir certaines informations identiques:
Un nom identique (xmls:A="Mes macros complémentaires")
Un qualificateur identique (idQ="A:CibleAddIn")
L'attribut idQ (qualified ID) permet de spécifier un élément commun à plusieurs classeurs.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
            xmlns:A="Mes macros complémentaires">

<ribbon startFromScratch="false">
  <tabs>

    <tab idQ="A:CibleAddIn" label="Mes macros complémentaires" visible="true">


    </tab>

  </tabs>
</ribbon>
</customUI>






Tu peux ensuite ajouter les groupes et tes options personnelles dans chaque classeur. Par exemple:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
            xmlns:A="Mes macros complémentaires">

<ribbon startFromScratch="false">
  <tabs>

    <tab idQ="A:CibleAddIn" label="Mes macros complémentaires" visible="true">
      <group id="Projet01" label="Projet 01">

        <button id="btnLance01" label="Lancement 01"
         onAction="ProcLancement01" 
         size="normal" imageMso="Repeat" />

     </group>
    </tab>

  </tabs>
</ribbon>
</customUI>




bonnes fêtes de noel
michel
Hors Ligne
 Rapport   Haut 

Re: mdf_doublon non active sous excel 2007
#8
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 21-11-2007 08h27
bonjour

Et est ce que cette simple macro permet d'afficher le complément ?
Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
    
    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)
    
    'Ajout de 3 boutons dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        'Définit "l'image" qui va s'afficher sur le bouton
        .FaceId = 133
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "Macro1"
    End With
    
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 134
        .OnAction = "Macro2"
    End With
    
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
         .FaceId = 135
        .OnAction = "Macro3"
    End With
    
    CmdBar.Visible = True





pour supprimer ensuite la barre d'outils:
On Error Resume Next
    Application.CommandBars("MaBarrePerso").Delete



bonne journée
michel
Hors Ligne
 Rapport   Haut 

Re: mdf_doublon non active sous excel 2007
#9
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 11-11-2007 15h43
Hello

Lorsque tu es dans l'éditeur de macros, est ce que tu vois "doublons.xla" dans l'explorateur de projet ?



michel
Hors Ligne
 Rapport   Haut 

Re: mDF XLcalendar v1.0 pour Excel 2007 en téléchargement
#10
MichelXld
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 27-10-2007 07h08
bonjour

Citation :
je vous recommande : L'espace personnel de SilkyRoad (Developpez.com),

je ne peux que te féliciter pour tes saines lectures ... ;o)



Citation :
En deuxième, si j'ai bien compris, il n'est pas possible d'afficher ou masquer l'onglet personnalisé par VBA.

à mon avis ça doit être possible car des onglets complémentaires s'affichent ou sont masqués en standard, en fonction des objets sélectionnés (graphiques, tables, tcd ...etc ..)


Citation :
Par ailleurs, j'aurais éventuellement opté pour un onglet "mDF Applications", onglet qui aurait pu servir de conteneur pour recevoir d'autres macros complémentaires de ma fabrication. Mais, là je me suis confronté à une difficulté technique à laquelle je n'ai pas trouvé de réponse... malgré plusieurs tentatives, je me suis retrouvé systématiquement avec un onglet supplémentaire (même titre) pour chaque application chargée !

Il s'agit d'un défi interessant à relever... ;o)



bon week end
michel
Edité par MichelXld le 27/10/2007 07:23:57
Hors Ligne
 Rapport   Haut 

1 2 »