2 classeurs (onglets) à enregistrer vers 2 dossiers

Bonjour à tous,

J'ai mon fichier macro qui fait des calculs sur plusieurs onglets.

Une fois terminé , j'aimerais enregistrer les onglets "Onglet1 et Onglet2" vers 2 fichiers qui n'ont pas le même dossier

Je voudrais enregistrer les 2 onglets ==> Onglet1 et Onglet2

Un exemple dans mon fichier ci joint

En fait si je fais ça, bien pas de problème

With ActiveWorkbook
     .SaveAs Filename:="C:\Users\moi\Desktop\1\jj", FileFormat:=xlOpenXMLWorkbook
     .Close SaveChanges:=False
End With

alors que si je fais ça il me fait une erreur

Fichier = Sheets("Accueil").Range("Q11").Value & "\" & DossierType & "\" & "fichier" ' & ".xlsx"
With ActiveWorkbook
     .SaveAs Filename:=Fichier, FileFormat:=xlOpenXMLWorkbook
     .Close SaveChanges:=False
End With

Bonjour,

Personne pour m'aider ?

Bonjour Jefekoi

Vous pouvez utiliser l'enregistreur de macro pour avoir un début de code

Sinon voici

Sub EnregistrementOnglets()
  Dim Wbk As Workbook

  ThisWorkbook.Sheets(Array("Onglet1", "Onglet2")).Copy
  ' Définir le classeur actif celui de la copie des onglets
  Set Wbk = ActiveWorkbook
  ' Enregistrer le nouveau classeur
  Wbk.SaveAs "C:\Temp\NomDuFichier.xlsx", FileFormat:=xlOpenXMLStrictWorkbook ' ou xlOpenXMLWorkbookMacroEnabled ' avec macro
  Wbk.Close SaveChanges:=False
End Sub

@+

Merci Bruno

C'est ce que j'avais fait

Le souci c'est cette façon de fait qu'il n'accepte pas

Wbk.SaveAs "C:\Temp\NomDuFichier.xlsx"

Chez moi c'est plutôt comme ceci :

Wbk.SaveAs Fichier

Re,

Peu importe, il faut seulement que la variable "Fichier" contienne le chemin souhaité

Nota : "Fichier" comme variable pour une chemin d'accès n'est pas le bon choix du tout

Il faut utiliser des noms de variable explicites, on ne cesse de le répéter

@+

Bigreeee je viens de trouver ...

alors là c'est une erreur toute bête

dans ma cellule à la fin du lien j'ai mis \

dans ma source j'ai mis :

Sheets("Accueil").Range("Q11").Value & "\" & DossierType & "\"

ce qui donne : c:\dossier\\NomDuFichier.xlsx

Je viens d'en supprimer un sur les deux et ça marche ...

Bigreee et rebigreeee