Copier coller un bouton sur une autre feuille

Banzai si tu me lis, je sais que tu m'à deja aider pour ce genre de demande, mais il y avais un formulaire de recopie. et du coup je m’emmêle les pinceaux avec ce besoin.

j'ai une feuille qui s'appelle fiche consigne

sur cette feuille j'ai un bouton avec la macro ci-dessous qui me permet d'enregistrer la feuille active en xlsm et pdf sur le bureau et qui s'enregistre sous le nom des cellules E6 E8 et E9.

Je desire mettre ce bouton sur une feuille qui se nomme accueil, J'ai donc fait un copier/coller du bouton, je reaffecte la macro, ca m'enregistre bien les deux formats sur le bureau. Par contre mon fichier ne s'enregistre plus selon les cellules que j'ai choisi. quoi rajouter svp?

Sub enregistreconsigne()
Dim Chemin As String, Fichier As String

  Fichier = Range("E6") & " " & Range("E8") & " " & Range("E9")
  If Len(Trim(Fichier)) = 0 Then
    MsgBox "Pas de nom de fichier"
    Exit Sub
  End If

  With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "chemin à definir"
    If .Show = -1 Then    ' Clic sur Ok
     Chemin = .SelectedItems(1)
    Else
      ' Clic sur Annuler
     Exit Sub
    End If
  End With

  ActiveSheet.Copy
  With ActiveWorkbook
    .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    .Close
  End With

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub

Bonjour

Avant les cellules étaient dans la feuille contenant le bouton

Maintenant ce n'est plus le cas

Il faut préciser de quelle feuille sont les cellules

Le plus simple

Fichier = Sheets("Consigne").Range("E6") & " " & Sheets("Consigne").Range("E8") & " " & Sheets("Consigne").Range("E9")

Une autre manière

With Sheets("Consigne")
Fichier = .Range("E6") & " " & .Range("E8") & " " & .Range("E9")
End With

super et du coup je le place où ?

    Sub enregistreconsigne()
    Dim Chemin As String, Fichier As String

      Fichier = Range("E6") & " " & Range("E8") & " " & Range("E9")
      If Len(Trim(Fichier)) = 0 Then
        MsgBox "Pas de nom de fichier"
        Exit Sub
      End If

      With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "chemin à definir"
        If .Show = -1 Then    ' Clic sur Ok
        Chemin = .SelectedItems(1)
        Else
          ' Clic sur Annuler
        Exit Sub
        End If
      End With

      ActiveSheet.Copy
      With ActiveWorkbook
        .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        .Close
      End With

      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
    End Sub

Bonjour

C'est un gag ?

Où est la caméra ?

    Sub enregistreconsigne()
    Dim Chemin As String, Fichier As String

      Fichier = Sheets("Consigne").Range("E6") & " " & Sheets("Consigne").Range("E8") & " " & Sheets("Consigne").Range("E9")

lol pardon je suis trop fatigué, j'ai oublié de mettre le nom correct de ma feuille.

merci banzai.

merci infiniment de ta patience.

Looool alors là je buggggg total.

Je viens d'enregistrer pour tester, et ca m'enregistre ma feuille d'accueil

Bonjour

C'est bon ou pas ?

Si ce n'est pas bon joins le fichier en cause (habitude à prendre)

Banzai, à tu une idée de pourquoi ca m'enregistre la feuille d'accueil et non la feuille consigne?

voici le code qui fonctionne à merveille et merci encore.

mais comme dit plus haut, ca m'enregistre la feuille "accueil" et non la feuille "consigne"

Sub enregistreconsigne()
Dim Chemin As String, Fichier As String

  Fichier = Sheets("fiche consigne").Range("E6") & " " & Sheets("fiche consigne").Range("E8") & " " & Sheets("fiche consigne").Range("E9")
  If Len(Trim(Fichier)) = 0 Then
    MsgBox "Pas de nom de fichier"
    Exit Sub
  End If

  With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "g:\DE\Installations\"
    If .Show = -1 Then    ' Clic sur Ok
     Chemin = .SelectedItems(1)
    Else
      ' Clic sur Annuler
     Exit Sub
    End If
  End With

  ActiveSheet.Copy
  With ActiveWorkbook
    .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    .Close
  End With

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub

je cherche depuis tout a l'heure, j'essai de faire des comparaisons avec d'autre macro, je ne trouve pas.

Bonjour

Remplace cette ligne

 ActiveSheet.Copy

par

Sheets("fiche consigne").Copy

Remplace cette ligne

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False

par

Sheets("fiche consigne").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False

Pffffff TU ES UN GENIE BANZAI

merciiiiiiiiiiiiiiiiiiiiiiii

je suis sur que c'est toi qui à créée EXCEL

Bonjour à tous.

Pour continuer sur le meme sujet, j'ai un autre bouton qui se trouve sur la feuille Client et Prospect.

J'ai mis un bouton sur ma feuille accueil, j'ai attribuer la macro.

ca me recopie les données du formulaire sur ma feuille accueil alors que ca devrais allez sur Client et Prospect

Bonjour

A vérifier

Il faudrait donner une réponse

https://forum.excel-pratique.com/excel/regrouper-deux-codes-sur-une-macro-t73806.html

merci banzai