Macro : pop up a renseigner au lancement

[iodaline]

Macro : copier/coller de données d'une feuille excel fermée

Bonjour,

Je suis nouvelle sur ce forum et j'espère que je pourrai y trouver un peu d'aide et de soutien car je suis complètement débutante et j'ai des macro à faire (vrai challenge pour moi)...

Voila, je suis en train de commencer une macro pour faire du rapprochement de données.


J'aurai besoin de remplir un onglet de ma feuille excel avec les données d'une autre feuille excel qui se situe dans le meme répertoire mais fermé, comment faire ?

==> J'y arrive mais uniquement qd la feuille est ouverte :

Sub test_rappatriement_data()

' test_rappatriement_data Macro

Windows("datas_feuille1.csv").Activate
Cells.Select
Selection.Copy
Windows("macro_traitement_datas_total.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub

Quelqu'un pourrait il m'aider ?

Merci beaucoup

 

[jpb388]

Re : Macro : copier/coller de données d'une feuille excel fermée

Bonjour
L'onglet de la feuille c'est où il y a marqué feuil1, feuil2 etc
un .csv c'est l'extension d'un fichier texte
met un exemple pour que l'on comprenne mieux
a+

 

[JNP]

Re : Macro : copier/coller de données d'une feuille excel fermée

Bonjour le fil 🙂,

un .csv c'est l'extension d'un fichier texte

Pas vraiment 🙄... .txt est un format texte, .csv est un format de données, séparateur ";" en général. La différence est qu'avec un .txt, Excel va demander le type d'importation si le .txt contient des données à importer, alors que .csv est reconnu directement comme un classeur avec un onglet unique du nom du fichier 😉.

==> J'y arrive mais uniquement qd la feuille est ouverte :

Comme dirait l'autre, ouvre le donc 😛...
Techniquement, le code suivant devrait marcher

Sub test_rappatriement_data()
Workbooks.Open Filename:=ThisWorkbook.Path & "\datas_feuille1.csv", Delimiter:=";"
Windows("datas_feuille1.csv").Activate
ActiveSheet.Cells.Copy ThisWorkbook.Sheets("Feuil1").Range("A1")
Windows("datas_feuille1.csv").Close
End Sub

mais bizarement, il copie en colonne A avec les ";" 😕...
Sinon, il peut être plus simple d'importer le .csv

Sub Test()
    With ActiveSheet.QueryTables.Add(Connection:= _
        [COLOR=red][B]"TEXT;" & ThisWorkbook.Path & "\datas_feuille1.csv",[/B][/COLOR] Destination:=Range("$A$1"))
        .Name = "datas_feuille1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

si tu est en 2007, sinon, il est possible qu'il y ait des différences, à ce moment là, il suffit de faire une importation avec l'enregistreur de macro et de modifier le résultat obtenu avec le morceau en rouge.
Bon WE 😎

 

[iodaline]

Re : Macro : copier/coller de données d'une feuille excel fermée

Bonjour,

Merci beaucoup pour ton aide JNP, ca fonctionne !!