Copie des données d'une feuille via macro Résolu/Fermé

Question

Bonjour,

Je sollicite à nouveau votre aide. Je dois réactualiser, régulièrement des données d'un fichier excel. Pour clà, j'ai créé la macro ci-dessous. Le hic c'est qu'il va bien me chercher les bonnes données mais qu'il les copie dans un nouveau classeur au lieu de le copier dans le classeur de départ (classeur_principal, dans le code). De plus, j'aimerais qu'il garde la même mise en page. Qui peut m'apporter la solution ? D'avance merci

Sub Mise_a_jour_PAA_VLT()

'
' Mise à jour PAA_VLT
'

Dim wbMyWb As Workbook
Dim Nom_Classeur As Variant
Dim Classeur_principal As Variant

Dim Faeff As String

Faeff = "PAA-VLT"

Classeur_principal = ActiveWorkbook.Name

If MsgBox("Voulez vous mettre à jour la liste des remarques VLT ? ", vbYesNo) = vbYes Then
            Effacer_données_feuille (Faeff)     ' efface les données de la feuille PAA-VLT
            ' ChDir "C:\xxxx\yyyy\fichier.xls"  pour imposer un répertoire spécifique
            Nom_Classeur = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") ' recherche du fichier de données
            If Nom_Classeur <> False Then
                Set wbMyWb = Workbooks.Open(Nom_Classeur)
                wbMyWb.Activate
            End If
            
                wbMyWb.Sheets(Faeff).Copy   'Copie les données de la feuille du classeur choisi
                Workbooks(Classeur_principal).Worksheets("PAA-VLT").Activate
                Cells(1, 1).Select
                ' ThisWorkbook.Sheets(Faeff).Activate  ' Met à jour les données dans le fichier initial
                ' ActiveSheet.Paste
                Selection.PasteSpecial Paste:=xlPasteValues
                
            'fermeture classeur
            wbMyWb.Activate
                      
            wbMyWb.Close False 'fermeture classeur sans sauvegarde (True si sauvegarde)
            
    Else
            
End If

End Sub

f894009 · Answer

Bonjour,

Sub Mise_a_jour_PAA_VLT()    Dim wbMyWb As Workbook    Dim Nom_Classeur As Variant    Dim Classeur_principal As Variant    Dim Faeff As String        Application.ScreenUpdating = False    Faeff = "PAA-VLT"    Classeur_principal = ActiveWorkbook.Name    If MsgBox("Voulez vous mettre à jour la liste des remarques VLT ? ", vbYesNo) = vbYes Then        'Effacer_données_feuille (Faeff) ' efface les données de la feuille PAA-VLT        ' ChDir "C:\xxxx\yyyy\fichier.xls" pour imposer un répertoire spécifique        Nom_Classeur = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") ' recherche du fichier de données        If Nom_Classeur <> False Then            Set wbMyWb = Workbooks.Open(Nom_Classeur)        Else            MsgBox " Pas de fichier selectionne!!!!"            Exit Sub        End If        Worksheets(Faeff).Cells.Copy       'Copie les données de la feuille du classeur choisi        Workbooks(Classeur_principal).Worksheets("PAA-VLT").Activate        Cells(1, 1).Select        Application.DisplayAlerts = False        Selection.PasteSpecial Paste:=xlPasteAll        Application.DisplayAlerts = True        'fermeture classeur        wbMyWb.Close False 'fermeture classeur sans sauvegarde (True si sauvegarde    End IfEnd Sub

f894009 · Answer

Re,

ai ajouter obligation remplir cellules sur deplacement dans feuille

https://www.cjoint.com/c/EBfqGlFogdk

A+

f894009 · Answer

Re,

ou xx est le numéro du fichier, 1iere exécution de la macro-> 1, 2ième ->2, ...  
Y a pas de generation spontanee. Mettez votre fichier a dispo, car dans le code, il n'y pas de creation de classeur ni d'ouverture d'un troisieme

Copie des données d'une feuille via macro

3 réponses

Discussions similaires