Vba coller valeur cellule sur une autre cellule avec variable [Résolu]

walyddu59 53 Messages postés jeudi 29 mars 2012Date d'inscription 9 juin 2012 Dernière intervention - 14 mai 2012 à 09:39 - Dernière réponse : walyddu59 53 Messages postés jeudi 29 mars 2012Date d'inscription 9 juin 2012 Dernière intervention
- 14 mai 2012 à 13:19
Bonjour , le forum

Je bloque sur une chose toute bête , je n'arrive pas a coller la valeur cellule sur une autre cellule avec un variable j'ai tout tente mais rien n'y fais je vous joint la macro en espérant avoir une aide .

Cordialement .

Sub extraction()

Dim Lenom As String
Dim fichier As String 'variable qui pose probleme
Lenom = Range("A3").Value.Paste
fichier = Range("A3").Value ' variable pour copier la cellule
Columns("K").Select
Selection.Copy
Workbooks.Add
Sheets.Select
Columns("B").Select
ActiveSheet.Paste
Sheets.Select
Range("A1").Select& fichier ' code pour coller la cellulle
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="N:\Service RAMS - LCC\DN_Aff\Base de travail REX\Restitution qualité" & Lenom & ".xls"

End Sub
Afficher la suite 

3 réponses

Répondre au sujet
walyddu59 53 Messages postés jeudi 29 mars 2012Date d'inscription 9 juin 2012 Dernière intervention - 14 mai 2012 à 10:05
+3
Utile
j'ai résolus le proleme je poste la solution , merci a tous .

Lenom = Range("A3").Value
Range("A1").Select
Selection.Value = Lenom


Cordialement .
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de walyddu59
NHenry 14129 Messages postés vendredi 14 mars 2003Date d'inscription 19 avril 2018 Dernière intervention - 14 mai 2012 à 13:16
+3
Utile
Bonjour,

Pas la peine de passer par un Select :
Range("A1").Value=Range("A3").Value

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de NHenry
walyddu59 53 Messages postés jeudi 29 mars 2012Date d'inscription 9 juin 2012 Dernière intervention - 14 mai 2012 à 13:19
0
Utile
salut merci ça fonctionne je connaissais pas cette méthode .
Commenter la réponse de walyddu59

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.