Copier la valeur d'une cellule et pas sa formule
Bonjour,
Je suis nouveau dans le monde des VBA et j'aurais besoin d'aide pour copier seulement la valeur des cellules sélectionnées
Voici mon code
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim FS As String 'décalre la variable FS (Fichier Source)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim DEST As Range 'déclare la variable DEST (celllue de DESTination)
'Chemin d'accès
CA = "S:\esp-polpi-ci\UVSQ\Indicateurs suivi\Engagements juridiques\Commandes\Résultat data\Centrefi\" & anneeselect & "\" & moisselect & "\"
Set CD = ThisWorkbook 'définit le classeur destination CD
Set OD = CD.Sheets(1) 'définit l'onglet destination OD
FS = Dir(CA & "*.xlsx") 'définit le premier fichier source Excel contenu dans le dossier ayant CA comme chemin d'accès
Do While FS <> "" ' exécute tant qu'il existe des fichiers source
Workbooks.Open CA & FS 'ouvre le fichier source FS
Set CS = ActiveWorkbook 'définit la classeur source CS
Set OS = CS.Worksheets("Data") 'définit l'onglet source OS
'*******************************************************************************************
' cette partie correspond à la macro du copier/coler
'définit la cellule de destination DEST (première cellule vide de la colonne A)
Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
OS.Range("AC3:AD13").Copy DEST 'copie la plage de l'onglet source et la colle dans DEST
'*******************************************************************************************
CS.Close False 'ferme le classeur source CS (sans enregistrer)
FS = Dir 'définit le prochain fichier source excel du dossier ayant CA comme chemin d'accès
Loop 'boucle
Merci d'avance
Bonjour,
Avec cette ligne normalement
DEST.PasteSpecial Paste:=xlPasteValuesBonjour,
Peut-être que je ne l'ai pas bien placé mais cela crée un bug dans la macro
Si tu peux m'indiquer comment l’intégrer ou me donner une autre solution stp
Je dirais comme ceci,
' cette partie correspond à la macro du copier/coler
'définit la cellule de destination DEST (première cellule vide de la colonne A)
Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
OS.Range("AC3:AD13").Copy
DEST.PasteSpecial Paste:=xlPasteValues