DIAPORAMA POWERPOINT DEPUIS EXCEL

cs_Le Pivert
Messages postés
7784
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 juin 2022
- 6 févr. 2009 à 12:04
cs_Le Pivert
Messages postés
7784
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 juin 2022
- 15 janv. 2016 à 19:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/49191-diaporama-powerpoint-depuis-excel

cs_Le Pivert
Messages postés
7784
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 juin 2022
129
15 janv. 2016 à 19:09
Bonjour à tous,

Nouvelle mise à jour. Fonctionne sous Windows 10.

Bonne programmation
cs_Le Pivert
Messages postés
7784
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 juin 2022
129
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és
7784
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 juin 2022
129
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és
1
Date d'inscription
samedi 29 avril 2006
Statut
Membre
Derniè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és
7784
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 juin 2022
129
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
Afficher les 17 commentaires