Urgent, copier d'une feuille dans une autre

[yoyol21]

Bonjour,

Je viens demander votre aide car j'ai un énorme problème depuis 4 jours avec mon fichier excel..

Alors voila je voudrais aller chercher une feuille dans un classeur et copier son contenu dans une feuille déjà existante de mon classeur actif.

Pour effectuer cette copie, l’utilisateur peut aller la chercher lui même grâce a une box d'ouverture.

j'arrive a sélectionner ma page et la copier dans une nouvelle feuille de mon classeur actif mais pas a copier le continue dans une feuille déjà existante nommée "info".

car j'ai bien essayer de renommer la nouvelle feuille qui me crée mais impossible de récupérer les info cellule directement sans refaire la liaison en manuel... alors je me dis que si je copie dans une feuille déjà créée ( feuille info) il va me mettre a jour le contenue directement avec les lien de feuille à feuille que j'aurais déjà fait au préalable.

Bonne idée non ? si oui je ne sais pas ou mettre que je veux copier ce contenu dans ma feuille "info" ....



un petit bout de code de mon VB :

Private Sub CommandButton1_Click() ' RECHERCHE DU CLASSEUR SOURCE

Dim CLASSEUR_CHOISI As Long
Dim CLASSEUR_DE_DESTINATION As String
Dim Wbk As Excel.Workbook
Select Case UserForm1.CommandButton1.Caption

Case "Feuille à Copier"

    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
               For CLASSEUR_CHOISI = 1 To .SelectedItems.Count
               Workbooks.Open (.SelectedItems(CLASSEUR_CHOISI))
               Next CLASSEUR_CHOISI
    End With
    
ActiveWorkbook.Saved = True ' Pour éviter le message de re-calcul des formules d'une version antérieure.

UserForm1.CommandButton1.Caption = "Copier cette Feuille"

' ICI L'ON PEUT CHOISIR LA FEUILLE A COPIER

Case "Copier cette Feuille"
For Each FEUILLE In ActiveWorkbook.Worksheets
  '  If FEUILLE.Name <> "ACCUEIL" Then
    FEUILLE.Activate
  '  End If
  '  Next
  

ActiveWorkbook.ActiveSheet.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

 Next

Application.DisplayAlerts = False
Application.DisplayAlerts = True
Application.DisplayAlerts = False
Worksheets("Feuil1").Delete
Application.DisplayAlerts = True
UserForm1.CommandButton1.Caption = "Mission Accomplie"
UserForm1.CommandButton1.BackColor = &HFFFF00
ActiveWorkbook.RefreshAll
    
    nomFichier = "nom_du fichier"
    extension = ".xls"
    Application.Dialogs(xlDialogSaveAs).Show nomFichier & extension
    ActiveWorkbook.RefreshAll
    

End Select

End Sub

Je vous remercie de me venir en aide ! ^^

Cordialement,

Yoann

 

[yoyol21]

Re : Urgent, copier d'une feuille dans une autre

Re bonjour,

Personne ne peut m'aider ?

Cordialement

 

[libellule85]

Re : Urgent, copier d'une feuille dans une autre

Bonjour yoyol21,

Bon à savoir sur un forum : le mot Urgent est rédhibitoire... car les personnes qui viendront te dépanner prennent sur leur temps...