XL 2013 (RESOLU) Adapter un code

[chaelie2015]

Bonsoir le forum

Private Sub UserForm_Initialize() 'ok
    ' Remplir la ComboBox avec les noms des lots
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("BdD CEO")
    Dim numLots As Integer
    numLots = ws.Range("D4").Value
    Dim i As Integer
    For i = 1 To numLots
    ComboBox1.AddItem "Lot_" & Format(i, "00") ' Ajoute les noms de lot
     Next i
End Sub

Private Sub ComboBox1_Change()
ImprimerEtEnregistrerPDF ("Impression_" & Me.ComboBox1.Text)
End Sub

Sub ImprimerEtEnregistrerPDF(StrRange$)
      Dim plageAImprimer As String
      Dim nomFichier As String
      Dim RngImprime As String
      Dim Ok_Impression As VbMsgBoxResult 'ici
      '  Spécifiez la plage à imprimer
    RngImprime = ThisWorkbook.Names(StrRange).RefersTo
      ' définir le chemin complet et le nom du fichier PDF
    nomFichier = ThisWorkbook.Path & "\" & StrRange & ".pdf"
      ' Demandez la confirmation de l'utilisateur avant d'imprimer
   
    Ok_Impression = MsgBox("Voulez-vous imprimer et enregistrer en tant que fichier PDF ?", vbQuestion + vbYesNo, "Confirmation")

    If Ok_Impression = vbYes Then
 
    ' Imprimez et enregistrez la plage spécifiée en tant que fichier PDF
    ThisWorkbook.Sheets("BdD CEO").Range(RngImprime).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=nomFichier, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False

    ' Affichez un message lorsque l'opération est terminée a voir §
    MsgBox "Le fichier PDF a été créé et enregistré dans " & nomFichier, vbInformation
     Else
        MsgBox "L'opération a été annulée.", vbInformation
    End If
End Sub
Private Sub CommandButton1_Click()  'ok
Unload UserForm3
End Sub

Dans ce code j'ai un UserForm, qui contient une ComboBox et un bouton, je souhaite maintenant de remplacer 'Sub ImprimerEtEnregistrerPDF' par copier 'ctrl+c' la zone selectionné dans combobox
Merci

 

[chaelie2015]

Re
j'ai essayé avec cette fonction

Sub CopierPlageSelectionnee(ByVal StrRange As String)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("BdD CEO")
    
    ' Obtenez la plage à copier en fonction du nom sélectionné
    Dim RngImprime As Range
    On Error Resume Next
    Set RngImprime = ws.Range(ThisWorkbook.Names(StrRange).RefersTo)
    On Error GoTo 0
    
    If Not RngImprime Is Nothing Then
        ' Copiez la plage dans le Presse-papiers
        RngImprime.Copy
        ' Affichez un message lorsque la copie est terminée
        MsgBox "La plage sélectionnée a été copiée dans le Presse-papiers.", vbInformation
    Else
        MsgBox "La plage sélectionnée est introuvable.", vbExclamation
    End If
End Sub

elle affiche 'La plage sélectionnée est introuvable.'???
Merci

 

[TooFatBoy]

Bonjour,

Peut-être ceci :

Set RngImprime = ThisWorkbook.Names(StrRange).RefersToRange

 

[chaelie2015]

Bonjour,

Peut-être ceci :

Set RngImprime = ThisWorkbook.Names(StrRange).RefersToRange

Bonjour TooFatBoy
Merci pour votre réponse. Je suis en route et je vous informerai une fois que j'arrive , je vais le tester.
A+

 

[chaelie2015]

Re
Après avoir effectué des tests, j'ai constaté que les résultats étaient identiques au post#2. Cependant, j'ai identifié la solution en examinant ce code.
"CopierPlageSelectionnee ("Impression_" & Me.ComboBox1.Text)"
Je vous remercie pour votre réponse.
A+

 

[ChTi160]

Bonjour le Fil
Une fois encore je n'ai rien Compris !
C'était quoi la question ? Pas d'explication, du Pourquoi du comment de cette Solution Lol

CopierPlageSelectionnee ("Impression_" & Me.ComboBox1.Text)

Bonne Journée
Jean marie

 

[TooFatBoy]

Une fois encore je n'ai rien Compris !
C'était quoi la question ? Pas d'explication, du Pourquoi du comment de cette Solution Lol

Je pense que le français n'est pas sa langue d'origine, ce qui fait qu'après traduction en français ses messages ne comportent généralement pas d'explications ni même de question, et sont donc malheureusement toujours très difficiles, voire impossibles, à comprendre. 😔

 

[chaelie2015]

Je pense que le français n'est pas sa langue d'origine, ce qui fait qu'après traduction en français ses messages ne comportent généralement pas d'explications ni même de question, et sont donc malheureusement toujours très difficiles, voire impossibles, à comprendre. 😔

Re
La participation au forum n'exige pas d'être francophone ou anglophone.
Mon souci est résolu.
Bonne nuit TooF at Boy 😉🇧🇪

 

[TooFatBoy]

La participation au forum n'exige pas d'être francophone ou anglophone.

Effectivement, et heureusement !

Et c'est pour ça qu'on essaye tout de même de répondre aux problèmes que tu rencontres dans le développement de tes classeurs. 😉