zone_1 = Sheets("LIENS")(Feuil1.Cells(num_ligne, 1))et maintenant la nouvelle :
zone_1 = Sheets("LIENS").Cells(num_ligne, 1)
Sub Import() ' ' Import Macro ' Importe les données Dim num_ligne As Integer Dim Ville_Overture As String Dim Ville As String Dim zone_1 As String Dim zone_2 As String Dim zone_3 As String Dim zone_4 As String Dim fic_n As String On Error Resume Next num_ligne = 2 Do While Mid(Feuil1.Cells(num_ligne, 1), 1, 3) <> "" Sheets("LIENS").Select Ville_Overture = Sheets("LIENS").Cells(num_ligne, 1) 'C:\Users\IT.xls Ville = Mid(Ville_Overture, InStrRev(Ville_Overture, "") + 1) zone_1 = Sheets("LIENS").Cells(num_ligne, 4) 'B4:H4 zone_2 = Sheets("LIENS").Cells(num_ligne, 5) 'I4:O4 zone_3 = Sheets("LIENS").Cells(num_ligne, 6) 'M7:S7 zone_4 = Sheets("LIENS").Cells(num_ligne, 7) 'U7:AA7 mon_classeur = ActiveWorkbook.Name Application.ScreenUpdating = False 'Je teste si le fichier est déjà ouvert Application.DisplayAlerts = False On Error GoTo deja_ouvert Workbooks.Open Filename:=Ville_Overture, UpdateLinks:=0 On Error GoTo 0 deja_ouvert: Workbooks(mon_classeur).Activate Sheets("SERVEUR").Range(zone_1).Value = Workbooks(Ville).Sheets("SYNTHESE").Range(zone_3).Value Sheets("SERVEUR").Range(zone_2).Value = Workbooks(Ville).Sheets("SYNTHESE").Range(zone_4).Value Workbooks(Ville).Close (False) num_ligne = num_ligne + 1 Loop Sheets("LIENS").Select MsgBox ("FIN") End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionzone_1 = (Feuil1.Cells(num_ligne, 1)) zone_1 = Mid(zone_1, InStrRev(zone_1, "") + 1)
zone_1 = Sheets("LIENS")(Feuil1.Cells(num_ligne, 1)) zone_1_bis = Mid(zone_1, InStrRev(zone_1, "") + 1) '... Workbooks.Open Filename:=Range(zone_1), UpdateLinks:=0 '... Sheets("SERVEUR").Range(zone_2).Value = Workbooks(zone_1_bis).Sheets("SYNTHESE").Range(zone_4).Value
zone_1 = Sheets("LIENS")(Feuil1.Cells(num_ligne, 1)) zone_1_bis = Mid(zone_1, InStrRev(zone_1, "") + 1) '... Workbooks.Open Filename:=zone_1, UpdateLinks:=0 '... Sheets("SERVEUR").Range(zone_2).Value = Workbooks(zone_1_bis).Sheets("SYNTHESE").Range(zone_4).Value
Debug.Print Sheets("SERVEUR").Range(zone_2).Value Debug.Print Sheets("SERVEUR").Name Debug.Print Workbooks(zone_1_bis).Sheets("SYNTHESE").Range(zone_4).Value Debug.Print Workbooks(zone_1_bis).Sheets("SYNTHESE").Name Debug.Print Workbooks(zone_1_bis).Name
Sheets("SERVEUR").Range(zone_2).Value = Workbooks(zone_1_bis).Sheets("SYNTHESE").Range(zone_4).Value
Debug.Print Sheets("SERVEUR").Range(zone_2).Value Sheets("SERVEUR").Range(zone_2).Value = Workbooks(zone_1_bis).Sheets("SYNTHESE").Range(zone_4).Value