modifier code Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
m
miche57
Jeune membre
Jeune membre
Messages : 15
Inscrit le : 4 mars 2014
Version d'Excel : 2010fr

Message par miche57 » 20 mars 2014, 16:19

Le code suivant me permet de copier le contenu d’une colonne dans une autre colonne dans un fichier différent. Le problème c’est que je souhaite copier/coller juste les valeurs et non pas les formules. Que dois ajouter au code? merci pour votre aide

Dim Fichier1
Fichier1 = Application.GetOpenFilename("Excel (*.xlsm), *.xlsm", , "a", , False)
If Fichier1 = False Then Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(Fichier1)
.Sheets("a").Range("A8", .Sheets("INV 1er semestre 2013").Range("A37")).Copy ThisWorkbook.Sheets("b").Range("A80")
.Close
End With
End Sub
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 20 mars 2014, 16:49

Bonjour à toi aussi

A tester
Sub test()
Dim Fichier1
Fichier1 = Application.GetOpenFilename("Excel (*.xlsm), *.xlsm", , "a", , False)
If Fichier1 = False Then Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(Fichier1)
.Sheets("a").Range("A8", .Sheets("INV 1er semestre 2013").Range("A37")).Copy
  ThisWorkbook.Sheets("b").Range("A80").PasteSpecial Paste:=xlPasteValues
.Close
End With
Application.CutCopyMode = False
End Sub
m
miche57
Jeune membre
Jeune membre
Messages : 15
Inscrit le : 4 mars 2014
Version d'Excel : 2010fr

Message par miche57 » 21 mars 2014, 09:07

Bonjour, merci pour votre réponse. Le soucis c'est quand j'ai modifié le code il me met erreur de compilation: attendu fin d'instruction .
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 21 mars 2014, 11:51

Bonjour

En joignant ton fichier comportant l'erreur, cela serait plus facile de t'aider
:joindre:
m
miche57
Jeune membre
Jeune membre
Messages : 15
Inscrit le : 4 mars 2014
Version d'Excel : 2010fr

Message par miche57 » 24 mars 2014, 10:29

Bonjour j'ai trouvé une autre formule, et ça marche. Merci pour votre aide

.Sheets("a").Range("A3", .Sheets("a").Range("A10")).Value = ThisWorkbook.Sheets("b").Range("A80")
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Code modifier
    par pompaero » 28 janvier 2018, 00:31 » dans Excel - VBA
    7 Réponses
    152 Vues
    Dernier message par gmb
    28 janvier 2018, 15:36
  • Modifier code
    par valmax » 4 août 2019, 09:14 » dans Excel - VBA
    1 Réponses
    84 Vues
    Dernier message par AlgoPlus
    4 août 2019, 11:03
  • Modifier code
    par valmax » 26 juillet 2019, 07:24 » dans Excel - VBA
    2 Réponses
    59 Vues
    Dernier message par valmax
    26 juillet 2019, 07:39
  • modifier code
    par valmax » 25 novembre 2018, 08:08 » dans Excel - VBA
    6 Réponses
    78 Vues
    Dernier message par valmax
    25 novembre 2018, 09:53
  • Modifier un code
    par valmax » 25 mars 2015, 15:49 » dans Excel - VBA
    4 Réponses
    132 Vues
    Dernier message par James007
    25 mars 2015, 19:03
  • Code de bouton Modifier
    par famdsm » 15 janvier 2018, 01:07 » dans Excel - VBA
    2 Réponses
    116 Vues
    Dernier message par Patty5046
    15 janvier 2018, 15:59