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 :
Je vous remercie de me venir en aide ! ^^
Cordialement,
Yoann
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