Enregistrement fantôme

Bonjour à tous !

J'édite complètement mon message... le problème précédent étant résolu.

Cependant, j'ai un autre problème lors de l'enregistrement de mes fichiers. Ils s'enregistrent bien, vu que la macro s'éxécute... Le problème est que je ne sais pas où !

Avec ce même code, pour un autre classeur, les fichiers s'enregistraient par défaut dans le dossier du classeur où la macro était exécutée. Mais là, nada...

Comment retrouver ces fichiers fantômes dans mon espace de travail ?

Si dessous, mon code. Je vous remercie par avance de votre aide !

Sub Générer()
Dim c, FicheCom, Fc
Set FicheCom = ActiveSheet

For Each c In Range("Q10:Q70" & Range("Q70").End(xlUp).Row)
    If c.Value <> "" Then
    Workbooks("FicheCom.xlsm").Sheets("FicheComPLH").Visible = True
    Workbooks("FicheCom.xlsm").Sheets("FicheComPLH").Copy Before:=Sheets(1)
    ActiveSheet.Name = Range("X10")
    Set Fc = ActiveSheet
    Workbooks("FicheCom.xlsm").Sheets("FicheComPLH").Visible = True
    Sheets("FicheComPLH").Range("X10") = "'" & c.Value

    ActiveSheet.Copy
                ActiveWorkbook.Colors = Workbooks("FicheCom.xlsm").Colors
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=c.Offset(0, 1)
            ActiveWindow.Close False
            Application.DisplayAlerts = False
            ActiveSheet.Delete
            Application.DisplayAlerts = True
    End If
Next c
End Sub

Bonjour Pixelle,

Comme ton programme l'indique,

Le dossier de destination est indiqué dans la colonne un cran à gauche Filename:=c.Offset(0, 1) de chacunes des cellules de ta plage initiale For Each c In Range("Q10:Q70" & Range("Q70").End(xlUp).Row).

Faire une recherche de Pdf avec le recherche fichier de windows pour contrôler.

Tu peux aussi changer ta macro si tu souhaites toi-même redéfinir le chemin

chemin = ThisWorkbook.Path & "\" & "essai.pdf"
Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin

Sinon, tu renvoie le fichier...

Je te remercie !

Je teste ça dans la foulée

EDITION : C'est parfait ! Merci beaucoup !!