Discussion :

[flovba]

Bonjour,

Tout d'abord, je voulais vous prévenir que je débute en VBA et sur developpez.com donc je m'excuse par avance si vous ne comprenez pas tout de suite le but de ma demande

Néanmoins, je vais essaie d'être précis:

Je voudrais savoir si il est possible de créer une macro sur un bouton pour pouvoir créer en cliquant dessus
Premièrement : Créer un dossier nommer par une cellule (ex:F7)
Deuxièmement : Enregistrer le classeur xls nommer par une cellule (ex:F7) dans ce dossier
Troisièmement : Enregistrer la feuille 1 en pdf sous un nom de deux cellules + "CLT" dans ce dossier

Actuellement j'ai réussit à moitié car je n'est pas réussit à nommer le dossier et j'ai un problème lors du ré-enregistrement avec le même bouton on me re-crée un dossier dans le premier dossier

Voila ma macro actuelle :
Sub CLT_PDF()
MkDir ThisWorkbook.Path & "\A renommer"
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\A renommer\" & ActiveSheet.[F7] & ".xls"
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\A renommer\" & ActiveSheet.[F7] & " CLT " & ActiveSheet.[E14] & ".pdf"
End Sub

Merci d'avance à tous !

[illight]

Salut et bienvenue sur developpez !

Tout d'abord, n'oublie pas, lorsque tu écris un message, de mettre ton code dans les balises CODE, de façon à avoir une meilleure lisibilité pour ceux qui essayent de t'aider


Dans ton énoncé, il y a déjà une incohérence : le nom de ton classeur et ton dossier sont dans la même cellule (F7) ? ça va être difficile ? à moins que ton nom de classeur et le même nom que le dossier ?

Sinon, pour répondre àt on besoin, je reprend ta macro :

Code :

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

1
2
3
4
5
6
 
Sub CLT_PDF()
MkDir ThisWorkbook.Path & "\" & range("F7").value
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\A renommer\" & range("F7").value & ".xls"
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\A renommer\" & ActiveSheet.[F7] & " CLT " & ActiveSheet.[E14] & ".pdf"
End Sub

Par contre, je te conseille, avant de créer ton dossier de vérifier s'il existe. Tu peux le faire à l'aide de cette fonction :

Code :

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

1
2
3
4
5
 
Public Function Rep_exists(ByRef Repertoire As String) As Boolean
    On Error Resume Next
    Rep_exists = CBool(GetAttr(Repertoire) And vbDirectory)
End Function

Du coup, ton code donnerait :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub CLT_PDF()
REP = ThisWorkbook.Path & "\" & range("F7").value & "\"
If Not Rep_exists(REP) Then
   MkDir (REPREP )
End If
ThisWorkbook.SaveCopyAs REP  & range("F7").value & ".xls"
ThisWorkbook.SaveCopyAs REP  & range("F7").value & " CLT " &  range("E14").value & ".pdf"
End Sub

Par contre, pour le PDF, je te laisse voir, ne connaissant pas parfaitement cette commande, mais l'enregistreur de macro devrait t'aider à savoir quoi écrire

[flovba]

Tout d'abord merci, car le dossier prend bien le nom de la cellule comme voulut néanmoins le fichier excel et pdf ne se range pas dans ce même dossier avec ta première macro et la troisième blocs sur la compilation de " Rep_exists(REP)"

Et pour répondre à ton interrogation le fichier xls et pdf porte le même nom car cela constitue le dossier de mon client en gros je développe un devis automatiser par excel pas facile

[flovba]

Sub CLT_PDF()
MkDir ThisWorkbook.Path & "\" & range("F7").value
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\A renommer\" & range("F7").value & ".xls"
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\A renommer\" & ActiveSheet.[F7] & " CLT " & ActiveSheet.[E14] & ".pdf"
End Sub

C'est bon j'ai réussi j'ai repris ta première requête et j'ai remplacé "\A renommer\" par "\" & Range("F7").Value & "\" et c'est parfait !!!!

Merci beaucoup pour ton aide car ça faisait déjà 4 jours de combat, ça fait plaisir l'aide des professionnel

[illight]

3 choses :
- il faut que la fonction Rep_exists que tu la mette dans ton module, sinon effectivement la fonction ne sera pas reconnue
- si ton problème est réglé, n'oublie pas de cliquer sur le bouton résolu !
- si une réponse à répondu à ton besoin, n'oublie pas de cliquer sur la petite main verte

[casefayere]

Merci beaucoup pour ton aide car ça faisait déjà 4 jours de combat, ça fait plaisir l'aide des professionnel

et

si une réponse à répondu à ton besoin, n'oublie pas de cliquer sur la petite main verte

eh oui, je viens de le rappeler à deux reprises sur d'autres sujets

Oui, mais vous oubliez un peu trop souvent les encouragements se traduisant par un click sur en bas du message de celui qui vous a favorablement répondu, en l'occurence, ici llight