gestion dossier vba

Bonjour; je débute en vba et la je bloque sur un problème

J'aimerai créer un bouton d'enregistrement de facture.

il y a deux variable en fonction de ce qu'il y a dans les cellules.

variable n°1 le dossier doit porter le nom se référant a la cellule "B8"
variable n°2 le fichier doit porter le nom se référant a la cellule "D3 "et au format xlsx

mon problème c'est que le dossier peut ne pas exister et il faut donc que le code le crée; l'autre soucis c'est que si le dossier existe il n'y a pas besoin de le créer.

et la j'ai du mal.

en gros, j'ai la commande activewoorkbook.saveas....

après il me faut:
si erreur 1004 alors créer le dossier au nom "B8" et enregistrer dans ce dossier au nom "D3"
si pas d'erreur alors enregistrer au nom "D3"

si quelqu'un peut m'aider.
Merci

Bonjour,
Une structure décisionnelle telle que If...Then...Else ou Select Case est faite pour cela.

Un document pdf à lire (voir page 40) http://bidou.developpez.com/article/VBA/

Bonjour

Essaie de creer le dossier avant chaque sauvegarde.
En utilisant "On Error Resume Next" au cas ou le dossier existait deja.

Code:

---

1 2 3 4

On Error Resume Next MkDir dossier On Error GoTo 0 activewoorkbook.SaveAs

---

Jai testé avec if else then...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Bouton3_Cliquer() Dim nom As String nom = Range("B8")   If Dir("D:\Users\Renaud\jeremy\Facture\" & nom, vbDirectory) = "" Then MsgBox "ce repertoire n'existe pas" Else MsgBox "ce repertoire existe deja" End If   End Sub

---

ca me marque que le repertoire existe alors que non

Edit autant pour moi; si la case B8 est vide forcement ca marche pas :ptdr:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Bouton3_Cliquer() Dim chemin As String Dim fichier As String   chemin = "D:\Users\Renaud\jeremy\Facture" & "\" & Range("B8") fichier = Range("D3")   If Dir(chemin, vbDirectory) = "" Then MkDir (chemin) MsgBox "le dossier client a été créé, relancer la sauvegarde" Else ActiveWorkbook.SaveAs (chemin & "\" & fichier)   End If     End Sub

---

la creation du dossier fonctionne; j'ai le message comme quoi il faut rappuyer sur sauvegarde mais j'ai une erreur 1004
la je bloque

le debogage surligne

Code:

---

activeworkbook.saveas 'chemin & "\" & fichier)

---

Edit :
apparement c'est le format de la cellule qui deconne
elle est en =aujourdhui() donc une date format 99/99/9999
J'ai rentré le mot test a la place et le bouton fonctionne

quelle est la formule pour laisser =aujourdhui() dans la cellule et que le fichier soit enregistré sans bugger?

merci

Bonjour

Citation:

---

apparement c'est le format de la cellule qui deconne
elle est en =aujourdhui() donc une date format 99/99/9999

---

Un nom de fichier ne saurait contenir le caractère "/", tout simplement.
Formate donc autrement cette cellule et utilise sa propriété text plutôt que sa propriété value.

C'est bon ca fonctionne merci