Nom de fichier ou numéro incorrect

Le nom de mon fichier porte a chaque fois certaines informations:

fichier = Format(Range("F6"), "0000") & "-" & Range("F7") & "-" & Format(Range("F9"), "dd mm yyyy")

-Format(Range("F6"), "0000") : Numero d'ordre

-Range("F7"): Nom de la ville

-Format(Range("F9"), "dd mm yyyy") : Date de validation

Le code lancé tel que libellé fonctionne une fois. Mais lorsqu'on le lance pour une deuxième fois ya problème.

Sub export()

Dim chemin$, a, i&, chem$
Dim fichier As String

fichier = Format(Range("F6"), "0000") & "-" & Range("F7") & "-" & Format(Range("F9"), "dd mm yyyy")
chemin = ThisWorkbook.Path & "\DossierA\" & Month([Menu!A4]) & "-" & Format([Menu!A4], "mmm yyyy") & "\" & fichier
        a = Split(chemin, "\")
        For i = 0 To UBound(a) - 1
            chem = chem & a(i) & "\"
            If Dir(chem, vbDirectory) = "" Then MkDir chem
        Next i

             With ActiveSheet
                .PageSetup.PrintArea = "$A$1:$L$246"
                .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             chemin, Quality:=xlQualityStandard, _
             IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

          End With

End Sub

Bonjour

Mais lorsqu'on le lance pour une deuxième fois y a problème.

Lors de l'erreur :
- est-ce le même nom de fichier ?
- quelle est la valeur de la variable Chemin et fichier ?

J'ai testé en reconstituant votre fichier, cela à l'air de fonctionner.

Vérifier aussi vos dates

Cordialement

Dan a écrit :

Bonjour

Mais lorsqu'on le lance pour une deuxième fois y a problème.

Lors de l'erreur :
- est-ce le même nom de fichier ?
- quelle est la valeur de la variable Chemin et fichier ?

J'ai testé en reconstituant votre fichier, cela à l'air de fonctionner.

Vérifier aussi vos dates

Cordialement

Mes variables fichier et Chemin sont de type string

Une première fois pas de soucis

Mais en reprenant , l'erreur intervient. Il faut mettre fin et en relançant c"est ok. C'est bizarre quand même!!

Re

Mes variables fichier et Chemin sont de type string

Oui cela j'ai vu mais ce n'est pas de cela que je parlais mais de savoir quelle était la valeur de la variable Chemin (c:\......\) et de même pour fichier.

Mais au fait pourquoi vous relancer le code une deuxième fois ?

Autre question, tout en haut de votre module (à la première ligne), vous n'avez pas une déclaration de variable ?

Dan a écrit :

Re

Mes variables fichier et Chemin sont de type string

Oui cela j'ai vu mais ce n'est pas de cela que je parlais mais de savoir quelle était la valeur de la variable Chemin (c:\......\) et de même pour fichier.

Mais au fait pourquoi vous relancer le code une deuxième fois ?

Autre question, tout en haut de votre module (à la première ligne), vous n'avez pas une déclaration de variable ?

J'avais déclaré mes variables hors de ma macro ( Apres Option Explicite)

Re

Si vous les déclarez après option explicit, c'est qu'elles peuvent servir dans un autre code. Placées à cet endroit, elles conservent leur valeur même si vous sortez du code

Pour votre cas, mettez les uniquement après Sub export(), comme vous l'avez mentionné dans votre code ici. Vous ne devriez plus avoir de problème.

Vous avez fermé le fil, je suppose que le souci est donc résolu

Cordialement