XL 2013 (RESOLU) Adapter un code

chaelie2015

XLDnaute Accro
Bonsoir le forum
VB:
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
 
Solution
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+

chaelie2015

XLDnaute Accro
Re
j'ai essayé avec cette fonction
VB:
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
 

chaelie2015

XLDnaute Accro
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+
 

TooFatBoy

XLDnaute Barbatruc
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

XLDnaute Accro
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 ;)🇧🇪
 

Statistiques des forums

Discussions
313 283
Messages
2 096 810
Membres
106 751
dernier inscrit
Souleymani