XlPaste
ti_mouton
Messages postés
153
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'utilise un code qui m'a été donné sur ce forum mais je rencontre un message d'erreur au moment d'arriver à la ligne
Voici le code en entier :
Merci pour votre aide.
J'utilise un code qui m'a été donné sur ce forum mais je rencontre un message d'erreur au moment d'arriver à la ligne
PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Voici le code en entier :
Sub Copier_Coller_ATLANTIQUESII()
Dim classeurSource As Workbook, classeurDestination As Workbook
Dim maintenant As Date
Dim date_to_compare As Date
Dim date_to_use As Date
Dim Chemin As String
With ActiveSheet
.Range("B7:S1000").Delete
End With
maintenant = CDate(Format(Now(), "YYYY-MM-DD"))
Annee = Year(Now())
Mois = Month(Now())
date_to_use = maintenant
Annee_to_use = Year(date_to_use)
mois_to_use = Month(date_to_use)
Chemin = "W:\00-COMMUN\DD-TBM\03. DR Batiment Atlantique\00. Direction Régionale\06. Actualisation - Budget\" & Annee_to_use & "\2018 - 03"
Set classeurDestination = ThisWorkbook
Set classeurSource = Application.Workbooks.Open(Chemin & "\TdB Gestion DR BAT ATLANTIQUE" & ".xlsm*")
classeurSource.Sheets("2.1 Analyse SII DR").Range("B8:T300").Copy
With classeurDestination.ActiveSheet.Range("B7")
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.PasteSpecial Paste:=xlPasteFormats
End With
Application.DisplayAlerts = False
classeurSource.Close
Application.DisplayAlerts = True
End Sub
Merci pour votre aide.
