Copiers des données spécifiques vers un autre fichier

Y compris Power BI, Power Query et toute autre question en lien avec Excel
J
Jeanba
Membre habitué
Membre habitué
Messages : 62
Inscrit le : 14 octobre 2016
Version d'Excel : 2010

Message par Jeanba » 30 décembre 2016, 07:12

Bonjour à tous,

Quelqu'un a-t-il une idée de la raison pour laquelle cette macro (voir fichiers joints post précédent) ne marche pas s'il vous plaît?

Voici l'algo:
Option Explicit

Dim WbData As Workbook         ' WbData = Classeur de données source
Dim WbExp As Workbook          ' WbExp = Classeur destinataire
Dim ShData As Worksheet           ' ShData = Feuille du classeur de données source, sélectionné sur l'userform 08
Dim ShExpP As Worksheet           ' ShExpP = Feuille du classeur destinataire nommé "PARAMETRES"
Dim ShExpD As Worksheet          ' ShExpD = Feuille du classeur destinataire nommé "DONNEES"
Dim mois, i&

' *********************************

Private Sub USF08_CommandButton1_Click()
    Unload Me
End Sub

' ************************************

Private Sub USF08_CommandButton2_Click()
    Application.ScreenUpdating = False
    mois = (Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", _
            "Décembre"))

    For i = 1 To 12
        If Me.Controls("USF08_OptionButton" & i).Value = True Then
            Set ShData = WbData.Sheets(mois(i - 1))
            DeverrouillerFeuille
            On Error GoTo OuvrirFichier
            Set ShExpP = WbExp.Sheets("PARAMETRES")
            Set ShExpD = WbExp.Sheets("DONNEES")
            ShExpP.Range("B2") = ShData.Range("A7")
            ShExpD.Range("A4").CurrentRegion.Offset(1, 0).ClearContents
            ShData.Range("A8:C" & ShData.Range("A" & Rows.Count).End(xlUp).Row).Copy
            ShExpD.Range("A4").PasteSpecial xlPasteValues
            ShData.Range("E8:H" & ShData.Range("A" & Rows.Count).End(xlUp).Row).Copy
            ShExpD.Range("D4").PasteSpecial xlPasteValues
            Exit For
        End If
    Next i
    ShData.Copy
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Sauvegarde Journal " & Format(i, "00") & " " & WbExp.Range("parametres!B2") & ".pdf"
    ActiveWindow.Close False
    WbExp.Close
    Unload Me
    Application.CutCopyMode = False
    MsgBox "Génération du Fichier Comptable: " & Chr(13) & Chr(10) & "Etape 1: Export des données du mois exécutée à 100%!"
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Inventaire.xlsm"
Exit Sub
OuvrirFichier:
    MsgBox "Vous devez ouvrir le fichier ''Feuille export.xlsm''", 16
    Unload Me
End Sub

'*******************************************

Private Sub UserForm_Initialize()
    Set WbData = ActiveWorkbook
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Feuille export.xlsm"
    Set WbExp = ActiveWorkbook
    WbData.Activate
End Sub
Merci beaucoup!

Jeanba
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'055
Appréciations reçues : 388
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 30 décembre 2016, 12:42

Bonjour

Essaie ça :

Pour ce qui est de la cerise, ce n'est pas dans mes cordes. Fais un nouveau post !
Bye !
Source à copier vers Feuille export.xlsm
(306.27 Kio) Téléchargé 10 fois
J
Jeanba
Membre habitué
Membre habitué
Messages : 62
Inscrit le : 14 octobre 2016
Version d'Excel : 2010

Message par Jeanba » 30 décembre 2016, 14:44

Bonjour gmb,

Content d'avoir de tes nouvelles.
J'ai essayé ton fichier, il bug avec ce message, je sais vraiment pas ce qu'il se passe:
Erreur exécution 30 12.JPG
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'055
Appréciations reçues : 388
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 30 décembre 2016, 15:47

Désolé ! Je n'ai jamais rencontré ce message...
Bye !
J
Jeanba
Membre habitué
Membre habitué
Messages : 62
Inscrit le : 14 octobre 2016
Version d'Excel : 2010

Message par Jeanba » 30 décembre 2016, 20:59

Bonsoir gmb,

Non, ne sois pas désolé!
A l'impossible nul n'est tenu. Tu m'as déjà énormément aidé.
Gratitude ++

Bonnes fêtes à tous et Meilleurs voeux pour 2017!

Jeanba
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message