Créer un dossier dans un dossier

Fermé
Elvt - 22 mai 2014 à 08:01
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 23 mai 2014 à 19:06
Bonjour,

Je souhaiterais qu'à partir d'un classeur excel, je puisse mettre un bouton qui permettrait de créer un dossier vide dans un dossier spécifique, en lui attribuant le nom d'une cellule particulière, tout en enregistrant dans ce dossier créé ma page excel au format PDF avec le contenu d'une cellule comme nom.
Quelle serait la ligne de commande pour ces 2 actions ?
Merci

A voir également:

4 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
22 mai 2014 à 09:11
Bonjour,

Quelle serait la ligne de commande pour ces 2 actions ?
Une ligne de commande ne fait qu'une action.

dans un dossier spécifique
Il est évolutif ou fixe ?

le nom d'une cellule particulière,
Quelle est cette cellule et est-elle évolutive ou fixe ?

au format PDF avec le contenu d'une cellule comme nom.
idem question précédente.
0
Bonjour
Par ligne de commande je voulais dire programme

J'ai un dossier source sur mon disque dur, je l'appelle ici "dossier client", il est fixe

Dans ce dossier, je veux qu'en cliquant sur le bouton, se créer un nouveau dossier, portant le nom du dernier élément entré dans le tableau excel en colonne A

Ensuite je souhaite que s'enregistre la fiche du client dans le sous dossier qui vient d'être créé, en pdf, et portant le nom du dernier élément de la colonne B


Est-ce plus clair ?
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
23 mai 2014 à 09:08
Bonjour,

Créer le nouveau dossier : OK

s'enregistre la fiche du client
Elle est où cette fiche ?
0
La fiche c'est l'onglet excel où se trouve le bouton
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
23 mai 2014 à 19:06
Bonjour,

Tes réponses sont vraiment minimalistes, alors avec ce qui est dit, tu devrais pouvoir le faire avec cette procédure en adaptant ton "dossier client" avec ton nom à toi :

Public Sub sauve_fiche()            ' crée sous-répertoire et fiche PDF
Const rep = "C:\dossier client\" ' chemin présent du répertoire de base
Dim srp As String, fic As String
srp = Cells(Rows.Count, 1).End(xlUp).Value
fic = Dir(rep, vbDirectory)
While fic <> "" And fic <> srp
fic = Dir
Wend
If fic = "" Then MkDir rep & srp
fic = Cells(Rows.Count, 2).End(xlUp).Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=rep & srp & "\" & fic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Fiche " & fic & vbLf & "créée dans " & rep & srp
End Sub
0