Bonjour,
je bloque sur ligne de code pour paramétrer le chemin de destination

Résumé:
  1. je voudrais copier la feuille1 dans un nouveau classeur.
  2. je voudrais nommer ce nouveau classeur en prenant la valeur de la cellule D1 (par exemple) de la feuille1 et l'extension .xlsx
  3. et enfin fermer ce nouveau classeur sans l'ouvrir et atterrir à nouveau dans ma feuille1.
  4. Il manque des variables... pour les classeurs, les feuilles et le nom du fichier.xlsx (attribué par la valeur de la cellule D1)


J'ai tenté ci-dessous mais enregistre le fichier dans un dossier temp! je crois qu'il manque le chemin de destination, je voudrais qu'il soit dans un dossier nommé "certificat"
(le fichier source est dans un dossier c:\compta\)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
sub ()
 dim nomfichier as string
       nomfichier = sheets("feuille1").range("D1").value & "_" & ".xlsx"
 
  Worksheets("feuille1").Copy
          With ActiveWorkbook
                .SaveAs Filename:="cellule D1.xlsx", FileFormat:=xlOpenXMLWorkbook
                .Close SaveChanges:=False
            End With
end sub
J'ai également essayé ceci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
 NomFichier = activeworbook.Path & "\" & ActiveWorkbook.Name & " - " & ActiveSheet.Name & ".xls"
désolé du désordre... je suis noyé!

merci de votre aide.