cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 15 janv. 2016 à 19:09
Bonjour à tous,
Nouvelle mise à jour. Fonctionne sous Windows 10.
Bonne programmation
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 6 août 2010 à 10:59
Deux questions MAITESIDUR:
As-tu un dossier "Mes Documents" sur ton PC?
Quand tu sélectionnes "Arborescence complète" y-a-t-il un bug?
Pour ceux qui auraient ce bug, en attendant une réponse.Dans le classeur "Diaporama PowerPoint depuis Excel" il y a un module: Sub AfficheFichiersEtChemins()
Il suffit de mettre dans le bouton: cmdopen
AfficheFichiersEtChemins à la place de ListFiles
@+ Le Pivert
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 6 août 2010 à 08:06
Merci MAITESIDUR pour ton commentaire. Je me sers de ce programme depuis sa création et je n'ai pas de bug.Donc il m'est difficile de trouvé d'où cela provient. Ce que je te conseille c'est de changer le module par un de ceux proposés par Bigfish_le Vrai qui avait fait une remarque à ce sujet.
Ses modules fonctionnent très bien tous les trois.
@+ Le Pivert
maitesidur
Messages postés1Date d'inscriptionsamedi 29 avril 2006StatutMembreDernière intervention 6 août 2010 6 août 2010 à 07:26
Salut Le Pivert, comme loana, je te confirme que ton projet, bien qu'excellent, beug à ce niveau ci (If Right(Directory, 1) <> ""), sous xp pro et excel 2003, lors de la sélection de dossier image:
Sub ListFiles()
Dim msg As String, answer As String
Dim Directory As String
Dim R As Integer
Dim i As Integer
msg = "Choisissez un endroit contenant les dossiers que vous voulez sélectionner."
Directory = GetDirectory(msg)
If Directory = "" Then Exit Sub
If Right(Directory, 1) <> "" Then Directory = Directory & ""
Bon courage pour ce superbe projet!
Si j'ai le temps, je verrais a regarder ce pb, au cas ou je te tiens au courant.
Bye.
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 18 mai 2010 à 17:53
Bonjour LOANA3000,
Cela bug dans le code de l'UserForm ou dans un module?
Je suis sur Excel 2003 OfficeXP SP3 et LOLPIRATAS m'a confirmé que cela fonctionné sur Excel 2007. A ce jour il y a eu 650 téléchargements et je n'ai eu aucun problème. Je vais faire des recherches.
@+ Le Pivert
loana3000
Messages postés3Date d'inscriptionmercredi 12 février 2003StatutMembreDernière intervention18 mai 2010 18 mai 2010 à 15:29
Bonjour,
j'ai un problème. Cela bugge à CHR, mid et la référence Microsoft PowerPoint 11.0 Object Library est cochée.
Merci d'avance
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 26 juil. 2009 à 11:41
Bonjour
Il est possible que lors du transfert des images, elles soient trop grandes ou trop petites dans la présentation.
J'ai réglé le diapo sur des images de: 1600 px X 1200 px et une résolution de 180 ppp, ce qui donne en cm : 22,58 X 16,94
La solution: redimensionner les images à: 22,58 cm sur le plus grand côté à l'aide du programme "Redimensionner Image" que vous pouvez télécharger sur:
http://www.vbfrance.com/codes/REDIMENSIONNER-IMAGE_50214.aspx @+ Le Pivert
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 18 mars 2009 à 18:50
Bonjour BIGFISH_LE VRAI,
J'ai réussi à trouvé un filtre pour les extensions et j'ai mis ta méthode 1 de sélection du répertoire.
Merci et @+ Le Pivert
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 17 mars 2009 à 14:37
Merci BIGFISH_LE VRAI pour ton commentaire. J'ai essayé les 3 méthodes, l'avantage de la 3ème est que tu restes sur le dernier dossier ouvert, par contre il faut aller jusqu'au bout dans "Ouvrir" sinon tu n'ouvres que le chemin des dossiers et non celui des fichiers.Je pense opter pour la 1ère méthode qui est la plus simple. Par contre j'aurais aimé trouver un système d'ouverture qui supprimerait les fichiers non images pour ne pas a avoir le faire manuellement.
@+ Le Pivert
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 17 mars 2009 à 11:51
Salut,
une petite remarque sur la selection du repertoire qui ne fonctionne pas tres bien et notament sur la selection des repertoires system tel que le repertoire MesImages.
La solution que tu utilises est une mauvaise methode largement rependu sur le web... comme quoi ce n'est pas forcement le meilleur qui ce repend ^^.
Je te propose donc 3 autres methodes dont 2 basées sur le shell.Application tel que ta methode
Function ChoisirDossier()
Dim objShell, objFolder, chemin As String, SecuriteSlash
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.Items.Item.Path
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = chemin
End Function
methode 2 ===========================================================
(methode qui vient du msdn et que je n'ai jamais vu ailleur)
Function ChoisirDossier() As String
Dim objShell As Object, objFolder2 As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder2 = objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
If (Not objFolder2 Is Nothing) Then
Dim objFolderItem As Object
Set objFolderItem = objFolder2.Self
If (Not objFolderItem Is Nothing) Then
ChoisirDossier = objFolderItem.Path
Else
ChoisirDossier = ""
End If
Set objFolderItem = Nothing
Else
ChoisirDossier = ""
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Function
Function ChoisirDossier(Optional ByVal LeChemin As String, Optional FolderDialogTitle As String) As String If FolderDialogTitle "" Then FolderDialogTitle "Select Default files location: "
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = FolderDialogTitle
.InitialFileName = LeChemin
If .Show = -1 Then
ChoisirDossier = .InitialFileName
Else ' bonton Cancel (annulé)
ChoisirDossier = ""
End If
End With
End Function
En ce qui me concerne j'ai une preference pour la methode 3 mais il ne faut pas que cela influence ton choix.
A+ :)
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 9 févr. 2009 à 11:23
Bonjour LolPiratas
Je te remercie de m'avoir stimulé, effectivement ayant trouver le code pour colorer les AR Plans, il m'a été facile de faire le reste: Délai, choix de transitions; Sonorisation. Je met tout cela au propre et j' envoie une MAJ
@+ Le Pivert
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 8 févr. 2009 à 20:43
Excuse-moi, je n'avais pas compris pour le minutage, je trouvais qu'avec la présentation ouverte c'était facile de choisir toutes les options. Je vais essayer d'adapter un code pour cela.
@+ Le Pivert
LolPiratas
Messages postés80Date d'inscriptionmardi 13 août 2002StatutMembreDernière intervention15 décembre 2010 8 févr. 2009 à 19:28
.........As-tu Excel 2007. J'aimerais savoir si cela fonctionne avec?
oui cela fonctionne avec 2007.
...........Tu vas dans la Barre de Menu: Diaporama et Transition. Tu sélectionnes ta 1ère image, à droite tu verras: "Passer à la diapositive suivante", tu sélectionnes "Automatique" après, tu mets le nombre de secondes et tu cliques sur "Appliquer à toutes les diapositives".
oui mais pourrez tu pas dans ton code ajouter directement les options (automatiques ......)
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 8 févr. 2009 à 17:49
Bonjour LolPiratas
Il faut sélectionner toutes les images que tu veux voir figurer dans ton diaporama et ne pas en laisser sinon tu as des diapos vierges.
Ensuite pour le défilement des images, je pense que tu dois parler de PowerPoint.Tu vas dans la Barre de Menu: Diaporama et Transition. Tu sélectionnes ta 1ère image, à droite tu verras: "Passer à la diapositive suivante", tu sélectionnes "Automatique" après, tu mets le nombre de secondes et tu cliques sur "Appliquer à toutes les diapositives".
As-tu Excel 2007. J'aimerais savoir si cela fonctionne avec?
@+Le Pivert
LolPiratas
Messages postés80Date d'inscriptionmardi 13 août 2002StatutMembreDernière intervention15 décembre 2010 8 févr. 2009 à 15:43
re j'ai donc refaite la manip et en faite il je devais selectionner la derniere image de la liste. c'est pas mal mais il faudrait y ajouter un code pour les images automatique car je doit cliquer pour voir l'image suivante.
LolPiratas
Messages postés80Date d'inscriptionmardi 13 août 2002StatutMembreDernière intervention15 décembre 2010 8 févr. 2009 à 15:36
salut
j'ai essayé mais il ne m'affiche qu'une seule image dans PowerPoint de la liste j'ai la derniere version PowerPoint
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 6 févr. 2009 à 12:04
Pour que le programme fonctionne faites:
Alt F11- Outils- Références, et cochez:
Microsoft PowerPoint 11.0 Object Library.
@+ Le Pivert
15 janv. 2016 à 19:09
Nouvelle mise à jour. Fonctionne sous Windows 10.
Bonne programmation
6 août 2010 à 10:59
As-tu un dossier "Mes Documents" sur ton PC?
Quand tu sélectionnes "Arborescence complète" y-a-t-il un bug?
Pour ceux qui auraient ce bug, en attendant une réponse.Dans le classeur "Diaporama PowerPoint depuis Excel" il y a un module: Sub AfficheFichiersEtChemins()
Il suffit de mettre dans le bouton: cmdopen
AfficheFichiersEtChemins à la place de ListFiles
@+ Le Pivert
6 août 2010 à 08:06
Ses modules fonctionnent très bien tous les trois.
@+ Le Pivert
6 août 2010 à 07:26
Sub ListFiles()
Dim msg As String, answer As String
Dim Directory As String
Dim R As Integer
Dim i As Integer
msg = "Choisissez un endroit contenant les dossiers que vous voulez sélectionner."
Directory = GetDirectory(msg)
If Directory = "" Then Exit Sub
If Right(Directory, 1) <> "" Then Directory = Directory & ""
Bon courage pour ce superbe projet!
Si j'ai le temps, je verrais a regarder ce pb, au cas ou je te tiens au courant.
Bye.
18 mai 2010 à 17:53
Cela bug dans le code de l'UserForm ou dans un module?
Je suis sur Excel 2003 OfficeXP SP3 et LOLPIRATAS m'a confirmé que cela fonctionné sur Excel 2007. A ce jour il y a eu 650 téléchargements et je n'ai eu aucun problème. Je vais faire des recherches.
@+ Le Pivert
18 mai 2010 à 15:29
j'ai un problème. Cela bugge à CHR, mid et la référence Microsoft PowerPoint 11.0 Object Library est cochée.
Merci d'avance
26 juil. 2009 à 11:41
Il est possible que lors du transfert des images, elles soient trop grandes ou trop petites dans la présentation.
J'ai réglé le diapo sur des images de: 1600 px X 1200 px et une résolution de 180 ppp, ce qui donne en cm : 22,58 X 16,94
La solution: redimensionner les images à: 22,58 cm sur le plus grand côté à l'aide du programme "Redimensionner Image" que vous pouvez télécharger sur:
http://www.vbfrance.com/codes/REDIMENSIONNER-IMAGE_50214.aspx
@+ Le Pivert
18 mars 2009 à 18:50
J'ai réussi à trouvé un filtre pour les extensions et j'ai mis ta méthode 1 de sélection du répertoire.
Merci et @+ Le Pivert
17 mars 2009 à 14:37
@+ Le Pivert
17 mars 2009 à 11:51
une petite remarque sur la selection du repertoire qui ne fonctionne pas tres bien et notament sur la selection des repertoires system tel que le repertoire MesImages.
La solution que tu utilises est une mauvaise methode largement rependu sur le web... comme quoi ce n'est pas forcement le meilleur qui ce repend ^^.
Je te propose donc 3 autres methodes dont 2 basées sur le shell.Application tel que ta methode
methode 1 ===========================================================
Function ChoisirDossier()
Dim objShell, objFolder, chemin As String, SecuriteSlash
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.Items.Item.Path
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = chemin
End Function
methode 2 ===========================================================
(methode qui vient du msdn et que je n'ai jamais vu ailleur)
Function ChoisirDossier() As String
Dim objShell As Object, objFolder2 As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder2 = objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
If (Not objFolder2 Is Nothing) Then
Dim objFolderItem As Object
Set objFolderItem = objFolder2.Self
If (Not objFolderItem Is Nothing) Then
ChoisirDossier = objFolderItem.Path
Else
ChoisirDossier = ""
End If
Set objFolderItem = Nothing
Else
ChoisirDossier = ""
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Function
methode 3 ===========================================================
Function ChoisirDossier(Optional ByVal LeChemin As String, Optional FolderDialogTitle As String) As String If FolderDialogTitle "" Then FolderDialogTitle "Select Default files location: "
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = FolderDialogTitle
.InitialFileName = LeChemin
If .Show = -1 Then
ChoisirDossier = .InitialFileName
Else ' bonton Cancel (annulé)
ChoisirDossier = ""
End If
End With
End Function
En ce qui me concerne j'ai une preference pour la methode 3 mais il ne faut pas que cela influence ton choix.
A+ :)
9 févr. 2009 à 11:23
Je te remercie de m'avoir stimulé, effectivement ayant trouver le code pour colorer les AR Plans, il m'a été facile de faire le reste: Délai, choix de transitions; Sonorisation. Je met tout cela au propre et j' envoie une MAJ
@+ Le Pivert
8 févr. 2009 à 20:43
@+ Le Pivert
8 févr. 2009 à 19:28
oui cela fonctionne avec 2007.
...........Tu vas dans la Barre de Menu: Diaporama et Transition. Tu sélectionnes ta 1ère image, à droite tu verras: "Passer à la diapositive suivante", tu sélectionnes "Automatique" après, tu mets le nombre de secondes et tu cliques sur "Appliquer à toutes les diapositives".
oui mais pourrez tu pas dans ton code ajouter directement les options (automatiques ......)
8 févr. 2009 à 17:49
Il faut sélectionner toutes les images que tu veux voir figurer dans ton diaporama et ne pas en laisser sinon tu as des diapos vierges.
Ensuite pour le défilement des images, je pense que tu dois parler de PowerPoint.Tu vas dans la Barre de Menu: Diaporama et Transition. Tu sélectionnes ta 1ère image, à droite tu verras: "Passer à la diapositive suivante", tu sélectionnes "Automatique" après, tu mets le nombre de secondes et tu cliques sur "Appliquer à toutes les diapositives".
As-tu Excel 2007. J'aimerais savoir si cela fonctionne avec?
@+Le Pivert
8 févr. 2009 à 15:43
8 févr. 2009 à 15:36
j'ai essayé mais il ne m'affiche qu'une seule image dans PowerPoint de la liste j'ai la derniere version PowerPoint
6 févr. 2009 à 12:04
Alt F11- Outils- Références, et cochez:
Microsoft PowerPoint 11.0 Object Library.
@+ Le Pivert