Aller au contenu


Photo

Boite de dialogue choix Dossier


  • Please log in to reply
4 replies to this topic

#1 patyom

patyom

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 372 Messages :
  • Sexe:Masculin
  • Localisation:Livernon (Lot)

Posté 02 août 2019 - 00:15

Bonjour,

 

J'essaie de récupérer des noms de Dossiers qui se trouvent dans un autre dossier.

 

Pas moyen d'y arriver, je passe par un MacScript(xxx) qui me donne des fichiers mais pas les dossier.

 

quelqu'un aurait-il une idée ?

 

A+


MacBook Pro - 13" - 6Go - 1 To
Emac 1GHz - 640 MB - 40 Go


#2 Aliboron

Aliboron

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 242 Messages :
  • Sexe:Masculin
  • Localisation:Toulouse.cong

Posté 02 août 2019 - 11:48

Tu devrais trouver des éléments de réponse sur MacScripter. Par exemple dans cet échange...


Bernard

MacMini 2009 & iMac 2008 + tout un tas d'accessoires -- FAQ Office Macintosh

#3 zekiller28

zekiller28

    Admin qui mord

  • Administrateurs
  • PipPipPipPipPipPipPipPipPip
  • 10 695 Messages :
  • Configuration:Toutes sortes de Mac du PPC à l'Intel et toute sorte de MacOS X De Panther Client à Maverick.
  • Sexe:Masculin
  • Localisation:Saint-Hilarion (78)

Posté 02 août 2019 - 19:02

Hello,

en quel langage essayes-tu de faire ça ?


Le site de ToolsX
Le site de ToolsXOptimizer

Apple Certified Mac Management Basics 10.12
Apple Certified Mac Management Basics 10.9 English
Apple Certified Mac Integration Basics 10.9 English
Apple Certified Associate Mac Integration 10.8
Apple Certified Mac Management Basics 10.8

#4 Aliboron

Aliboron

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 242 Messages :
  • Sexe:Masculin
  • Localisation:Toulouse.cong

Posté 02 août 2019 - 23:24

Hello,

en quel langage essayes-tu de faire ça ?

 

A priori, MacScript() est une instruction VBA dans Office 2011, permettant d'exécuter un Applescript...

 

Dans la version 2016/2019, c'est maintenant MacScriptTask() qu'il faut utiliser, du fait des restrictions "bac à sable" aux interactions entre applications.


Ce message a été modifié par Aliboron - 02 août 2019 - 23:39 .

Bernard

MacMini 2009 & iMac 2008 + tout un tas d'accessoires -- FAQ Office Macintosh

#5 patyom

patyom

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 372 Messages :
  • Sexe:Masculin
  • Localisation:Livernon (Lot)

Posté 04 août 2019 - 23:15

Sorry,

 

J'étais perdu dans mes recherches,

Pour te répondre zekiller28 en Applescript

Cool Aliboron, je garde ces exemples au chaud.

 

J'ai fais çà en m'inspirant du script tiré d'internet :

on run
	
	set ListeDossiers to choose folder with prompt "Choisissez le dossier à explorer" without invisibles
	faisLaListeDossiers(ListeDossiers as list)
	
end run

-- Fais la liste des éléments du dossier -- Garder intact pour l'exploration des sous-dossiers
on faisLaListeDossiers(CheminDossierChaine)
	
	tell application "Finder"
		set theList to CheminDossierChaine
		set liste to every item of folder CheminDossierChaine -- liste tous les éléments du dossier
		repeat with lElement in liste -- pour chaque élément
			if kind of (lElement as alias) is in {"Folder", "Dossier"} then -- si c'est un dossier
				--my traiteDossier(lElement as alias) -- Traite le dossier
				set the end of theList to name of lElement
			end if
		end repeat
	end tell
	get theList
	return theList
	log theList
end faisLaListeDossiers


-- Traitement des dossiers
on traiteDossier(lElement)
	
	set CheminDossierChaine to lElement as string
	display dialog ("Dossier: " & return & CheminDossierChaine) giving up after 1 -- affiche le nom du dossier
	--faisLaListeDossiers(CheminDossierChaine) -- pour explorer le contenu des sous-dossiers
	
end traiteDossier


j'ai mis le traitement des sous dossiers en commentaires.

 

En fait, je pars d'un programme d'excel VBA mais comme la fonction DIR ne marche sur ExcelMac 2011, j'inclus des appels en Applescript pour accéder à la liste des dossier ou fichiers. J'ai d'ailleurs créé un autre post pour avoir des retours pour le passage de paramètres de VBA vers AS avec retour de liste.

 

Merci à tous, c'est passionnant.


MacBook Pro - 13" - 6Go - 1 To
Emac 1GHz - 640 MB - 40 Go





0 utilisateur(s) en train de lire ce sujet

0 membre(s), 0 invité(s), 0 utilisateur(s) anonyme(s)