walyddu59
Messages postés53Date d'inscriptionjeudi 29 mars 2012StatutMembreDernière intervention 9 juin 2012
-
14 mai 2012 à 09:39
walyddu59
Messages postés53Date d'inscriptionjeudi 29 mars 2012StatutMembreDernière intervention 9 juin 2012
-
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
A voir également:
Vba copier valeur cellule dans une autre feuille
Vba copier cellule dans une autre feuille - Meilleures réponses
NHenry
Messages postés15069Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention29 mai 2023158 14 mai 2012 à 13:16
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 ---