choisir fichier via macro

VINCEGR · 8 Octobre 2010

bonjour le forum,

j'ai une macro dont détail ci-dessous que je souhaiterais améliorer.

Code:

Sub copiecolonne()
'
' copiecolonne Macro
' Macro enregistrée le 13/09/2010 par 
'

'
    Columns("A:F").Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "\\FACTURATION - FACTURES\MODEL FACTURE.xls" _
        , UpdateLinks:=0
    Sheets("ORIGINAL").Select
    Range("A1").Select
    ActiveSheet.Paste
    
End Sub

je voudrais la possibilité de choisir entre 2 fichier.

Comment modifier la macro ?

merci pour votre aide
@+

JNP · 8 Octobre 2010

Re : choisir fichier via macro

Bonsoir VinceGR ,
Au plus simple

Code:

Sub copiecolonne()
Dim Réponse As Integer
Réponse = MsgBox("Voulez-vous copier sur Facture ? (sinon ce sera Devis)")
If Réponse = vbYes Then
    Workbooks.Open Filename:= _
        "\\FACTURATION - FACTURES\MODEL FACTURE.xls" _
        , UpdateLinks:=0
    ThisWorkbook.ActiveSheet.Columns("A:F").Copy Sheets("ORIGINAL").Range("A1")
Else
    Workbooks.Open Filename:= _
        "\\FACTURATION - FACTURES\MODEL DEVIS.xls" _
        , UpdateLinks:=0
    ThisWorkbook.ActiveSheet.Columns("A:F").Copy Sheets("ORIGINAL").Range("A1")
End If
End Sub

Sinon, il va falloir passer soit par GetOpenFileName si tu veux laisser l'utilsateur cliquer sur le fichier, soit par un USF .
Bon courage

VINCEGR · 11 Octobre 2010

Re : choisir fichier via macro

Bonjour JNP,

merci pour code mais pas de collage des données dans fichier sélectionner.
est-il possible de modifier le message box en "oui" ou "non" ?
@+

JNP · 11 Octobre 2010

Re : choisir fichier via macro

Re ,
Désolé, un petit dérapage .
Le bon code est

Code:

Réponse = MsgBox("Voulez-vous copier sur Facture ? (sinon ce sera Devis)", vbYesNo)

Bon courage

VINCEGR · 11 Octobre 2010

Re : choisir fichier via macro

re,

merci pour aide JNP

bonne journée

choisir fichier via macro

VINCEGR

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

VINCEGR

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

VINCEGR

XLDnaute Occasionnel

Discussions similaires