VBA coller des valeurs

Résolu
Tobar4 Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   -  
Tobar4 Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je sais que ce sujet a posé de nombreuses questions sur ce forum mais je n'ai pas trouvé de réponse à mon besoin spécifique.

J'ai créé une macro qui me permet à partir d'un premier fichier d'en créer un second dans lequel l'onglet "Onglet publié" est automatiquement copier coller.

Le problème est que les informations qui figure dans cet onglet sont pour certaines (exemple cellule D10) des informations issues d'un autre onglet du premier tableau.

Je souhaiterai qu'une fois le nouveau fichier créé, il me remplace les valeurs de ces cellules (qui sont par exemple ='[02-01 Tableau de gestion des non-conformités.xlsm]NePasModifier'!D6) par leur valeur (qui ne sont pas des nombres).
En fait, ca revient à faire Copier / Coller les valeurs ou copier les valeurs / coller.

Voici ma macro :

Private Sub Cb_Publier_Click()




Dim intMsg As Integer
intMsg = MsgBox("Voulez-vous vraiment publier cette fiche ?", vbOKCancel)
If intMsg = 1 Then

'Je vais chercher la dernière ligne vide de la colonne AK

Dim Ligne4 As Long

Ligne4 = (Worksheets("NePasModifier").Range("AK1").End(xlDown).Row + 1)

Worksheets("NePasModifier").Range("AK" & Ligne4).Value = Worksheets("Onglet publié").Range("D8")

Dim Nom As String
Dim Chemin As String

Chemin = "S:\Exploitation Vehicules\DEX 01 Assistance & Expertise Véhicule\DEX3-02 Gestion des non conformités\"
If Chemin = "" Then Exit Sub
Nom = Worksheets("NePasModifier").Range("AG8")
Sheets("Onglet publié").Copy

ActiveWorkbook.SaveAs Chemin & Nom

'Worksheets("Onglet publié").Range("D10").Copy
'Worksheets("Onglet publié").Range("D10") = xlPasteValues

'Ces deux dernières lignes ne marchent pas...

Else

End If


A voir également:

1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonjour

quelque chose comme ça

Sheets(1).Range(cell1).Copy
Sheets(2).Range(cell2).PasteSpecial Paste:=xlPasteValues

bonne suite
6
Tobar4 Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   94
 
Ca marche nickel, merci beaucoup !
0