Problème avec chemin d'accès

Re bonjour,

Je n'arrive pas a comprendre pourquoi dans mes chemins d'accès mes fichiers ne s'enregistrent pas dans le bon.

J'ai trois dossier : devis, factures et avoir. Une macro pour chacun et le chemin correspondant pour chacun.

Lors de l'enregistrement les devis vont dans factures, les factures dans avoir et les avoir dans factures.

Ces dossiers sont dans le même répertoire et je ne comprend pas ou le problème se pose.

Merci d'avance pour votre aide

Bien cordialement

Bonjour,

si le décalage est constant, changer le nom des macros ...

sinon demander à celui qui les a créées ...

sinon comment peut on savoir ce qui cloche sans éléments à étudier ??

A+

Bonjour,

J'ai changé le nom des macros et devis s'enregistre dans facture...

Voici le code :

Sub ENREGISTRERD()

nomquelconque = MsgBox("Etes vous sûre de bien vouloir valider ce devis ?", vbYesNo + vbQuestion, "Information")
If nomquelconque = vbYes Then
MsgBox ("Devis validé & enregistré")

'export devis au format PDF
LaDate = Format(Date, "mm-yyyy")
LeNom1 = Sheets("DEVIS").Range("H11")
LeNom2 = ("DEV")
LeNom3 = Sheets("DEVIS").Range("K2")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     LaDate & "_" & LeNom2 & "_" & LeNom3 & "_" & LeNom1 & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
ChDir "C:\Users\mggar\Documents\FACTURATION\DEVIS"

Sheets("DEVIS").Range("K2") = Sheets("DEVIS").Range("K2") + 1

Range("H11").Value = Empty
Range("A21:I31").Value = ""
Range("A33:I40").Value = ""
Range("I41:I42").Value = ""
Range("D49").Value = ""

ElseIf nomquelconque = vbNo Then
MsgBox ("Devis non validé & non enregistré")

End If
Sheets("TABLEAU DE BORD").Select
End Sub

Pour facture et avoir c'est le même, change juste de chemin et de feuille.

Merci de votre aide

Bien cordialement