Problème code VBA sur Excel

Version imprimable

10/12/2019, 00h35
cyrpio

1 pièce(s) jointe(s)

Problème code VBA sur Excel

Bonjour,

Je ne comprends pas car mon code ne fonctionne plus. Il a fonctionné au début mais d'un coup il ne veut plus...:?

Est-ce que quelqu'un peut m'aider à comprendre ?

Merci

Pièce jointe 523092

1 pièce(s) jointe(s)

Voici votre code corrigé (Voir fichier en annexe):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub EnregistreFacture()
 
    'Déclaration des variables
    Dim NomDossier As String
    Dim CheminDossier As String
 
 
    'Nom de dossier
    'Utilisez plutôt "Nom du fichier" car "dossier" fait allusion à un répertoire (ou chemin)
    NomDossier = Application.InputBox("Nom du fichier :", "Fichier")
    CheminDossier = "C:\Users\Cyril\Documents\Audrey\Forever\Factures\Factures clients\2019" & NomDossier & "\"
 
    'Enregistrement au format PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    CheminDossier & "Facture_" & Range("H4").Value & " - " & Range("C12").Value & ".pdf", quality:= _
    xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
    from:=1, to:=1, openafterpublish:=True
 
    'On réinitialise et on incrémente le numéro de la facture
    With Sheets("Facture 2019") 'Le nom de votre feuille était "Facture", alors qu'elle s'appelle "Facture 2019"
        .Range("C12:C15").ClearContents 'Si les cellules sont fusionnées, cette opération ne fonctionnera pas.
        .Range("B19:F41").ClearContents
        .Range("H4").Value = .Range("H4").Value + 1
    End With
 
End Sub

10/12/2019, 11h05
Philippe Tulliez

Bonjour,
Si je puis me permettre, il faut éviter de "hardcoder" des chemins, nom de ficher à sauver, etc. comme par exemple

Code:

CheminDossier = "C:\Users\Cyril\Documents\Audrey\Forever\Factures\Factures clients\2019" & NomDossier & "\"

En privilégiant, une feuille contenant les paramètres (ou éventuellement fichier INI), on rend pérenne l'application.
10/12/2019, 12h22
Pierre Fauconnier

2 pièce(s) jointe(s)

Salut

100% d'accord avec Philippe

On nomme les plages, et on utilise les plages nommées dans le code.

Pièce jointe 523207

Pièce jointe 523211
10/12/2019, 23h02
cyrpio

2 pièce(s) jointe(s)

Bonsoir,

Désolé de vous répondre à cette heure. Merci à vous d'avoir répondu. Mais je suis vraiment débutant et vous m'avez déjà perdu :oops:

Mais j'ai toujours la même erreur :

Pièce jointe 523355

Pièce jointe 523353

Est-ce que je fais mal quelque chose ?

Quand je clique sur le bouton, le pop up s'ouvre, je lui met "decembre", le dossier de destination du pdf. Et du coup, j'ai l'erreur...
10/12/2019, 23h20
cyrpio

J'ai trouvé, c'est à priori parcque j'ai rajouté "2019" à la fin de :

Code:

CheminDossier = "C:\Users\Cyril\Documents\Audrey\Forever\Factures\Factures clients\2019" & NomDossier & "\"

Mais je ne comprends pas pourquoi, si quelqu'un peut m'expliquer ?
11/12/2019, 05h53
TonyNiort79

Bonjour,

est-ce que le répertoire 2019NomDossier existe ?
je ne crois pas,
11/12/2019, 07h18
Pierre Fauconnier

Citation:

Envoyé par cyrpio

Mais je ne comprends pas pourquoi, si quelqu'un peut m'expliquer ?

"Je ne comprends pas pourquoi"... C'est toi qui a mis 2019 à la fin du chemin, puisque ce chemin est en dur dans ton code. Dès lors, nous saurions difficilement t'expliquer pourquoi tu as mis 2019 à la fin du chemin? Ta variable doit contenir le chemin exact du dossier dans lequel tu vas déposer ton fichier. C'est à toi de vérifier que ce que tu passes à ta variable est correct.

Une bonne façon de s'assurer de cela est d'ouvrir ton explorateur, d'aller sur le dossier concerné, et de copier l'adresse affichée dans la barre d'adresse. Tu la colles dans ton code sur la ligne de la valorisation de la variable, entre guillemets ;)
11/12/2019, 22h27
cyrpio

Bonjour,

J'avais bien créé le dossier 2019, j'avais fait un copier /coller du chemin dans le code, c'est pour ça que je ne comprends pas.

J'ai modifié le code en finissant par

Code:

CheminDossier = "C:\Users\Cyril\Documents\Audrey\Forever\Factures\Factures clients 2019\" & NomDossier & "\"

Et là, tout fonctionne.

Donc c'est résolu mais sans comprendre.

Tant pis, merci à tous pour m'avoir aider.
12/12/2019, 06h32
TonyNiort79

Bonjour,

le code (Factures clients et rattaché avec 2019)

Code:

CheminDossier = "C:\Users\Cyril\Documents\Audrey\Forever\Factures\Factures clients 2019\" & NomDossier & "\"

n'est pas identique à celui-ci

Code:

CheminDossier = "C:\Users\Cyril\Documents\Audrey\Forever\Factures\Factures clients\2019" & NomDossier & "\"

et ici 2019 est rattaché avec NomDossier