Urgent, copier d'une feuille dans une autre

yoyol21

XLDnaute Nouveau
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 :

Code:
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
 

Discussions similaires

Réponses
9
Affichages
284

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson