VBA Probleme macro import

actaris51

XLDnaute Occasionnel
Bonjour,
J'utilise la macro ci dessous pour importer des données dans mon fichier.
Le problème, c'est qu'au passage :
Set classeurSource = Application.Workbooks.Open(Fichier_Travail, , True)
il me met le message d'erreur : le fichier source est déja ouvert, voulez vous le réouvrir etc...
Est-ce a cause du .open ?
J'ai utilisé cette macro pour ouvrir un autre fichier, et ce message n'apparait pas, je ne comprend pas.
Pouvez vous m'aider ?
Merci


Sub Import_Risks()
Application.ScreenUpdating = False

Dim Fichier_Travail As String, Fichier As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim classeurSource As Workbook, classeurDestination As Workbook

ChDrive CHEMIN2
ChDir CHEMIN2

'Set une variable qui va contenir le nom et le chemin du fichier à ouvrir.
Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls", 1, "Select the supplier extract") 'On ouvre la fenêtre et conserve le nom du fichier choisi dans une variable

'Test si un fichier a été sélectionné
If Fichier = "Faux" Then
Msg = "Aucun fichier sélectionné. SVP, veuillez recommencer !" ' Définit le message.
Style = vbOKOnly ' Définit les boutons.
Title = "Abandon de la procédure !" ' Définit le titre.
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
Exit Sub 'Sort de la macro puisqu'aucun fichier n'a été sélectionné
Else 'Sinon, on ouvre le fichier sélectionné
Workbooks.OpenText Filename:=Fichier
Fichier_Travail = ActiveWorkbook.Name 'On donne à une variable le nom de ce fichier qu'on vient d'ouvrir.
End If
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open(Fichier_Travail, , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook

'copier les données du classeur source vers le classeur destination

classeurSource.Sheets("Risks").Range("A1:BE1000").Copy
With classeurDestination.Sheets("Risks_Database").Range("A1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats 'Optionnel
End With


'Vide le presse papiers
Application.CutCopyMode = False
'fermer le classeur source
classeurSource.Close False
End Sub
 

BrunoM45

XLDnaute Barbatruc
Re : VBA Probleme macro import

Salut Actaris51,

Pour moi il y a effectivement 2 fois l'ouverture du même fichier
Code:
...
Else 'Sinon, on ouvre le fichier sélectionné
[COLOR=red][B]Workbooks.OpenText[/B][/COLOR] Filename:=Fichier
[COLOR=blue][B]Fichier_Travail = ActiveWorkbook.Name[/B][/COLOR] 'On donne à une variable le nom de ce fichier qu'on vient d'ouvrir.
End If
'ouvrir le classeur source (en lecture seule)
Set classeurSource = [COLOR=red][B]Application.Workbooks.Open[/B][/COLOR]([COLOR=blue][B]Fichier_Travail[/B][/COLOR], , True)
...
Alors c'est normal ;)

A+
 

Discussions similaires

Réponses
1
Affichages
312

Statistiques des forums

Discussions
290 902
Messages
1 911 287
Membres
177 117
dernier inscrit
Bicycle74
Haut Bas