Erreur d'execution '1004

Bonjour j'essaie de faire un copier coller valeur sur tous les onglets de mon workbook pour ensuite les envoyés par mail.

J'avais réussi a le faire quand il s'agissait de TCD, donc j'ai essayé d'adapter le code mais ça ne fonctionne pas ;(

il me met erreur d'execution '1004'

Qu'est ce que je rate ?

merci pour votre aide

'Copie valeur et format de la feuille active dans un nouveau classeur
sh.Copy
Set Dest = Workbooks.Add
With Dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Name = sh.Name
.Cells(1).Select
Application.CutCopyMode = False
End With

Bonjour, au lieu de faire un copier coller vous ne pensez pas que l'enregistreur de macro vous apporterai le code

correcte pour un "Duppliquer" l'onglet dans un nouveau fichier ?

Bonjour,

Il me duplique l'onglet dans un nouveaux fichier, mais le problème c'est qu'il garde les formules et c'est ça que je ne veux pas

Bonjour Jo75

Comme dit précédemment, si vous effectuer les manipulations correctement, l'enregistreur enregistre ce qu'il faut

1) Vous créez une copie de la feuille dans un autre classeur

2) Dans le classeur actif, vous sélectionnez toutes les cellules : CTRL+C et collage spécial valeur

Vous avez le code qui devrait être à peut près celui-ci une fois modifié

'Copie valeur et format de la feuille active dans un nouveau classeur
sh.Copy
Set Dest = ActiveWorkbook
With Dest.Sheets(1)
  .Cells.Copy
  .Cells.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False

A+

Super merci beaucoup.

C'est exactement ça

Dernière chose peut être que vous allez pouvoir m'aider aussi.

Je souhaite faire une recherchev pour mettre de l'HTML dans mon corps de texte selon une donnée. J'y arrive que je selectionne une cellule prédéfini, mais je n'y arrive pas avec l'application vlookup.

vous seriez comment faire ?

Voici ce qu'il me met

Car a priori dans le modul de mailling ça ne fonctionne pas il me met erreur 91

comme ci dessous

module mailling

Re,

Il semble que vous n'ayez rien suivi de ce je vous ai mis

Merci de joindre la version actuelle de votre fichier SVP

A+

je vous fais une version

Voici la version Actuelle

Re,

Ouille youille quand je vois ça

https://www.excel-pratique.com/fr/vba/variables

Vous avez déclaré "Dim Rng As Range", supprimez "On Error Resume Next" SVP

          On Error Resume Next
          'Only the visible cells in the selection
          Set rng = Application.WorksheetFunction.VLookup(sh.Range("J9").Value, ThisWorkbook.Sheets("Mapping").Range("A:K"), 11, False)
          'You can also use a fixed range if you want
          'Set rng = Sheets("YourSheet").Range("D4:D12").SpecialCells(xlCellTypeVisible)
          On Error GoTo 0

Si vous avez une erreur à ce niveau, c'est que ce qui est retourné à "Rng" n'est pas une plage, mais une valeur... donc rien à voir

Donc lorsque vous appelez ensuite

 RangetoHTML(rng)

Vous avez forcément droit à une erreur

Comme je ne sais pas ce que vous voulez faire exactement sur votre feuille "Mapping"

A+