Pierre2009
XLDnaute Nouveau
Bonjour,
Pouvez-vous me donner les lignes de code à rajouter pour que seuls les valeurs soient copiées. Merci
Sub COPIESTRUCTURE()
Dim Sortie As Workbook
Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet
'Référence la feuille origine des données à copier
Set FeuilleOrigine = ThisWorkbook.Sheets("Export QP")
NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
' On verifie que l'on a selectionné un nom de classeur
If NomFichierSortie <> False Then
' On ouvre le classeur
Set Sortie = Workbooks.Open(NomFichierSortie)
'Référence la feuille de destination des cellules copiées
Set FeuilleDestination = Sortie.Sheets("Fichier")
' On copie les cellules de la feuille désirée vers la feuille de sortie
With FeuilleOrigine
.Range("A13:AJ13").Copy Destination:=FeuilleDestination.Range("A65536").End(xlUp)(2)
End With
' On ferme le classeur
Sortie.Close
End If
End Sub
Pouvez-vous me donner les lignes de code à rajouter pour que seuls les valeurs soient copiées. Merci
Sub COPIESTRUCTURE()
Dim Sortie As Workbook
Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet
'Référence la feuille origine des données à copier
Set FeuilleOrigine = ThisWorkbook.Sheets("Export QP")
NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
' On verifie que l'on a selectionné un nom de classeur
If NomFichierSortie <> False Then
' On ouvre le classeur
Set Sortie = Workbooks.Open(NomFichierSortie)
'Référence la feuille de destination des cellules copiées
Set FeuilleDestination = Sortie.Sheets("Fichier")
' On copie les cellules de la feuille désirée vers la feuille de sortie
With FeuilleOrigine
.Range("A13:AJ13").Copy Destination:=FeuilleDestination.Range("A65536").End(xlUp)(2)
End With
' On ferme le classeur
Sortie.Close
End If
End Sub