Bonjour,

J'ai réalisé un petit bout de code, dans lequel je copie le contenu d'un onglet vers un nouveau classeur.
Tout fonctionne bien sur mon PC. Mais quand j'installe cela sur un autre pc, un coup ça marche, un coup ça marche pas (ça dépend des pc).

En debuggant, j'ai trouvé la ligne qui me génère une erreur 400.

Si quelqu'un à une idée, je lui serait grandement reconnaissant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
nom_cct = dir_destination & "\" & fich_nom & ".xlsx"
FichierOùCopier = ActiveWorkbook.Name
Application.Workbooks.Add
FichierOùColler = ActiveWorkbook.Name
Sheets("Feuil3").Select
 
	'ici ça marche pas partout
    Sheets("Feuil3").Copy Before:=Workbooks(FichierOùColler).Sheets(1)
 
 
Workbooks(FichierOùColler).Activate
ActiveWorkbook.SaveAs nom_cct
ActiveWorkbook.Close
Workbooks(FichierOùCopier).Activate