Voila j'ai réussis a faire quelque chose qui resemble a ce que je désire faire. J'ai un soucis, lorsque je désire ouvrir un fichier qui l'est déjà, il le ferme et de ce fait je perd mes donnée.
Y a t'il une macro qui me permet de "enregistrer, fermer et reouvrir le fichier sélectionner?
Voici ma macro:
Sub Copie_liste()
'
' Copie_liste Macro
' Macro enregistrée le 04.11.2008 par P.Didier
'
' Touche de raccourci du clavier: Ctrl+Maj+A
Range("A16:H30").Select
Selection.Copy
'nom du fichier de liste de pièces où exporter
'
nomFichier = Application.GetOpenFilename
If nomFichier = False Then
Exit Sub
Else
On Error Resume Next
Workbooks.Open (nomFichier)
Set nomListePiece = GetObject(nomFichier)
End If
Sheets("commande_visserie").Select
Range("A16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A16").Select
ActiveWindow.SmallScroll Down:=2
' Windows("visserie1.xls").Activate
End Sub
j'imagine que l'on peux faire plus simple.
Merci de votre aide.