Excel macro import valeur
karlitodu41
Messages postés
557
Statut
Membre
-
karlitodu41 Messages postés 557 Statut Membre -
karlitodu41 Messages postés 557 Statut Membre -
Bonjour,
je suis dans un classeur,
je souhaite récupérer toutes les valeurs (et uniquement les valeurs sans les formules ni la mise en forme)provenant d'une feuille d'un autre fichier et les mettre dans une feuille vide de mon fichier (toujours la même)
comment faire?
idéalement avec un bouton dans la feuille "importer données" bon après ça j'attribuerais la macro au bouton c'est pas lze plus difficile.
Merci de votre aide
je suis dans un classeur,
je souhaite récupérer toutes les valeurs (et uniquement les valeurs sans les formules ni la mise en forme)provenant d'une feuille d'un autre fichier et les mettre dans une feuille vide de mon fichier (toujours la même)
comment faire?
idéalement avec un bouton dans la feuille "importer données" bon après ça j'attribuerais la macro au bouton c'est pas lze plus difficile.
Merci de votre aide
A voir également:
- Excel macro import valeur
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
1 réponse
Je vien de faire une macro et ça me donne le code suivant en vb en vb mais comment faire pour que cela se fasse sans que le fichiers source soit ouvert? il faut préciser un chemin? si oui ou et comment? car j'ai essayé de mettre le chemin a la place du nom du fichier source mais ça bug donc il doit y avoir un truc que je ne fait pas.....
merci d'avance.
----------------------------------------------------------------------------------------------------------------
Sub essai1()
'
' essai1 Macro
' Macro enregistrée le 22/02/2011 par moi
'
'
Windows("dossier source.xls").Activate
Cells.Select
Selection.Copy
Windows("dossier travail.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
merci d'avance.
----------------------------------------------------------------------------------------------------------------
Sub essai1()
'
' essai1 Macro
' Macro enregistrée le 22/02/2011 par moi
'
'
Windows("dossier source.xls").Activate
Cells.Select
Selection.Copy
Windows("dossier travail.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
