Copier/coller

Question

Bonjour tout le monde,

Je veux créer une procédure qui me permette de copier dans un premier classeur les cellules que je souhaite ensuite ouvrir un second classeur pour enfin coller ce que je viens de copier du 1er classeur au second.


voici mes lignes de codes :
Sub ouverture_classeur_analyse_coll()

Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet

    Range("BA2:BC18").Select
    Selection.Copy

   
'Ouvrir le classeur dont on a besoin avec tout le chemin...
    Set xlBook = xlApp.Workbooks.Open("C:\***.xlsx")
    Set xlSheet = xlBook.Sheets("Feuil2")  ' si on veut utiliser une feuille en particulier
    
    
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Columns("Q:Q").EntireColumn.AutoFit
    Columns("R:R").EntireColumn.AutoFit
    Columns("S:S").EntireColumn.AutoFit


    xlBook.Save
    xlBook.Close
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

        
        

End Sub

bigfish_le vrai · Answer

salut,

c'est le jeopardy  donc il faut que l'on trouve la question 

non sans rire quel est la question ?

A+

Copier/coller

1 réponse

Votre réponse

Discussions similaires