Excel macro import valeur
Fermé
karlitodu41
Messages postés
482
Date d'inscription
jeudi 8 janvier 2009
Statut
Membre
Dernière intervention
6 juin 2014
-
22 févr. 2011 à 20:28
karlitodu41 Messages postés 482 Date d'inscription jeudi 8 janvier 2009 Statut Membre Dernière intervention 6 juin 2014 - 22 févr. 2011 à 21:20
karlitodu41 Messages postés 482 Date d'inscription jeudi 8 janvier 2009 Statut Membre Dernière intervention 6 juin 2014 - 22 févr. 2011 à 21:20
A voir également:
- Excel macro import valeur
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
1 réponse
karlitodu41
Messages postés
482
Date d'inscription
jeudi 8 janvier 2009
Statut
Membre
Dernière intervention
6 juin 2014
144
22 févr. 2011 à 21:20
22 févr. 2011 à 21:20
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