Création dossier avec excel
Bonjour,
A partir d'un fichier listing excel d'une seule colonne de noms, je souhaite créer pour chaque nom un dossier dans lequel je mettrai des photos etc
Merci de votre aide
A partir d'un fichier listing excel d'une seule colonne de noms, je souhaite créer pour chaque nom un dossier dans lequel je mettrai des photos etc
Merci de votre aide
5 réponses
-
Contributeur
-
-
Contributeurhttps://fr.wikipedia.org/wiki/Microsoft_Excel#Macros
et https://excel-malin.com/codes-sources-vba/creation-dossiers-et-sous-dossiers-en-vba/
sinon peut etre une bonne ame ici pourra d'aider à le faire si tu partages ton fichier -
@regcalj ai besoin d'un exemple de a à z et je devrais y arriver non.
Ou dois je envoyer un fichier test? -
-
@regcal/Users/terreappro2014/Desktop/HARAS DU PIN/CCI3*.xlsx
-
-
-
ContributeurDonc si une bonne ame peut aider Steen37 à lui montrer comment faire cette macro, merci d'avance
-
ContributeurDe quelle version d'Excel est-il question ? En quel niveau de mise à jour ? Sur quelle version de Mac OS X ?
-
ContributeurTu devrais être en version 14.7.6 actuellement.
Ceci dit, pour créer des dossiers sur le bureau avec les noms contenus dans les cellules A1:A3, tu peux utiliser la macro suivante :
Sub AutreTest()
Lignes = 3 ' dernière ligne de la plage à traiter
For i = 1 To Lignes
NomDossier = Worksheets("Feuil1").Range("A" & i).Value
MonScript = "tell application " & Chr(34) & "Finder" & Chr(34) & Chr(13) & _
"do shell script ""mkdir -p "" & quoted form of posix path of (" & _
Chr(34) & "/Users/TonNomAbrégé/Desktop/" & NomDossier & Chr(34) & ")" & _
Chr(13) & "end tell"
On Error Resume Next
MacScript (MonScript)
On Error GoTo 0
Next i
End Sub
C'est évidemment à adapter à ton besoin particulier (si ta plage est A6:A42 il faut commencer la lecture à 6 et pas à 1 et la valeur de la variable Lignes doit être 42 et pas 3 - si tu ne veux pas créer les dossiers sur le bureau, il te faut adapter le chemin, etc.)
Bonjour chez vous !
Bernard