Discussion :

[nickal]

Bonjour,

Pour gérer mes travaux j’ai mis en place un tableur que je souhaite rendre plus efficace avec une macro qui me permettrait de réaliser les actions suivantes:
1 – Créer un dossier lors du lancement de la macro. Ce dossier serait nommé comme la cellule G5.
Mon problème c’est que ma macro passe par cette cellule G5 (qui compile plusieurs données de la ligne 5) alors que je dois pouvoir le faire directement en programmant…

2 – Copier un fichier PDF depuis un emplacement fixe vers le nouveau dossier créé qui porte le nom de la cellule G5 du tableur XLS.
Mon soucis c’est que ma macro permet de copier un fichier mais le dossier de destination doit être mentionné à l’avance, je n’arrive pas à introduire la variable qui me le mettra directement dans le nouveau dossier qui porte le nom de la cellule G5.

3 – Renommer ce fichier également comme la cellule G5 (mais avec l’extension .pdf).
Là toutes mes solutions ont un bug…


Merci d’avance pour vos réponses.

[SfJ5Rpw8]

Bonjour,

tes demandes sont un peu trop dispersées contente-toi d'une question par discussion...


montre nous ou tu en est pour ta création de dossier , poste le code directement sur le forum en utilisant les balises [Code] ton code... [/Code]

et dis nous clairement ce que tu veux faire et ce qu'il ce passe....

[Igloobel]

Pour répondre à ta première question tu as à cette adresse le tuto miracle qui t'explique tout

http://warin.developpez.com/access/fichiers/

une fois que tu auras quelque chose et si tu bloque ou ne comprend pas revient vers nous

Bonne fin de journée

A+

[nickal]

Alors pour faire simple, voici le code que j'utilise pour créer un dossier. Mais j'aimerai le nommer en prenant les référence de plusieurs cellules (dans le code ci dessous j'ai choisi G5 mais je voudrai le renommer en A5 + année B5 + C5)...un tout petit truc m'échappe...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CreeDossier()
Sheets("REGISTRE A").Select
 
 
Dim Sep As String, Chemin As String
Sep = Application.PathSeparator
Chemin = ThisWorkbook.Path & Sep & Range("G5")
If Len(Dir(Chemin, vbDirectory)) = 0 Then
MkDir Chemin
End If
End Sub

[SfJ5Rpw8]

et il ce passe quoi à l’exécution de ce code ?

[nickal]

Quand je lance le code un dossier se crée à dans le répertoire ou se trouve mon fichier excel (donc ça c'est parfait) et le nom du nouveau dossier est renommé comme la cellule G5 qui est une cellule ou je fais une séquence de nommage à l'aide des valeurs de la cellule A5 + l'année de la cellule B5 + valeur de la cellule C5. En fait je voudrai simplement faire ça directement dans le code au lieu de passer par une cellule intermédiaire (la G5).