VBA copier coller

Bonjour

J'ai saisi ce code et j'ai le message erreur d'instruction.

Ma feuille source s'appelle bien DAS et la cible RESULTAT

Sub DAS()
    Sheets("DAS").Select
    Range("I:Z,AC:AC,AF:AF").Select
    Selection.Copy
    Sheets("RESULTAT").Select
    Range("A2:Y2" ).Select
    ActiveSheet.Paste
End Sub

Quelqu'un pourrait il m'aider

Cdt

Bonjour,

peut être comme ceci :

Option Explicit
Sub test()
Sheets("DAS").Range("I:Z,AC:AC,AF:AF").Copy Sheets("RESULTAT").Range("A:A")
End Sub

bonne journée

@+

Bonjour

Merci beaucoup

Comment puis je faire pour copier dans ma feuille DAS un fichier csv que j'irais chercher dans un répertoire via une msgbox ?

Avez vous une idée SVP

Re,

plus rien à voir avec la question initiale.... regarde du coté de l'importation de données, sous 2003 barre de menu => données => données externes => importer des données... en utilisant l"enregistreur de macro tu auras un premier code...

MON IDEE C'EST UNE FOIS QUE J'AI EXTRAIT MON FICHIER CSV ET ENREGISTRE, JE PUISSE LE COPIER AUTOMATIQUEMENT VIA UNE MSG BOX DANS MA FEUILLE DAS

JE SUIS SOUS EXCEL 2010, JE NE PENSE PAS POUVOIR L'AUTOMATISER DE LA FACON DONT VOUS ME DITES

QU'EN PENSEZ-VOUS ?

CDT

Re,

JE SUIS SOUS EXCEL 2010, JE NE PENSE PAS POUVOIR L'AUTOMATISER DE LA FACON DONT VOUS ME DITES

QU'EN PENSEZ-VOUS ?

devrait pouvoir le faire même sous 2010... le meilleur moyen de le savoir est de tester...

Je viens d'essayer ca me l'importe avec des virgules ca devient compliquer ensuite compliquer pour recopier certaines colonnes dans une autre feuille dans ce cas

Une autre idée ?

Merci beaucoup

Cdt

Re,

pas ce souci chez moi.. un code comme celui ci fonctionne même sous 2010 :

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;\\Client\G$\Docs\excel\test.csv", _
        Destination:=Range("$A$1"))
        .Name = "Test"
        .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 = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 5)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Merci

Est ce que ce code me permet d'aller sélectionner mon repertoire qui peut varier

Cdt

Re,

Est ce que ce code me permet d'aller sélectionner mon repertoire qui peut varier

encore une question différente ca... non code juste pour l'importation des données....

Bonjour,

un petit coucou à Pierrot aussi !

Fmailys, merci d'éviter d'écrire en majuscules (dans le titre et dans le post). Pour ton info, cela revient à "crier" sur un forum.

Au besoin lis ces quelques lignes qui t'aideront dans tes demandes et réponses à d'utres forumeur --> https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html

Merci de ta participation

Amicalement

désolé

cdt

Je vais cloturer ce post et en ouvrir un autre pour ma recherche et ouverture de fichier dans un répertoire

Merci