Discussion :

[renaud59138]

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

[Philippe Tulliez]

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/

[Docmarti]

Bonjour

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

Code :

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

1
2
3
4
On Error Resume Next
MkDir dossier
On Error GoTo 0
activewoorkbook.SaveAs

[renaud59138]

Jai testé avec if else then...

Code :

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

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

[renaud59138]

Code :

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

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 :

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

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

[unparia]

Bonjour

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.

[renaud59138]

C'est bon ca fonctionne merci