Pimprenelle9
XLDnaute Nouveau
Bonjour à tous,
je dois ajouter un lien vers un fichier dans une cellule (un vlookup serait bien aussi mais c'est un autre problème)
voici la macro crée mais ca ne fonctionne pas (je met le message d'erreur):
Un grand merci
For Line = 1 To number
Lineliste = Line + 3
If Range("C" & Lineliste) = "" Then
Fichier = Range("Mailsauto!A18") & Range("D2") & "\NC" & Range("D2") & "-" & Line '"C:\Users\xx\xx\xx\" & Range("B2") & "\NC" & Range("D2") & "-" & Line
Fichier = Fichier & ".xlsm"
'Range("B" & linelist).Value = Fichier
Set classeurSource = Application.Workbooks.Open(Fichier, , True) 'ouvrir le classeur source (en lecture seule)
Set classeurDestination = ThisWorkbook 'définir le classeur destination
MsgBox Fichier
ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & linelist), Address:=Fichier, TextToDisplay:="Lien"
classeurSource.Close False
End If
Range("E" & Lineliste).FormulaR1C1 = DatePart("ww", Range("D" & Lineliste))
Range("F" & Lineliste).FormulaR1C1 = Month(Range("D" & Lineliste))
Range("G" & Lineliste).FormulaR1C1 = Year(Range("D" & Lineliste))
'Range("AJ" & Lineliste).Value = WorksheetFunction.VLookup(Range("AI" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("AO" & Lineliste).Value = WorksheetFunction.VLookup(Range("AN" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("AU" & Lineliste).Value = WorksheetFunction.VLookup(Range("AT" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("AZ" & Lineliste).Value = WorksheetFunction.VLookup(Range("AY" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("BF" & Lineliste).Value = WorksheetFunction.VLookup(Range("BE" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("BK" & Lineliste).Value = WorksheetFunction.VLookup(Range("BJ" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("BQ" & Lineliste).Value = WorksheetFunction.VLookup(Range("BP" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("BV" & Lineliste).Value = WorksheetFunction.VLookup(Range("BU" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("CB" & Lineliste).Value = WorksheetFunction.VLookup(Range("CA" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("CG" & Lineliste).Value = WorksheetFunction.VLookup(Range("CF" & Lineliste).Value, Sheets("listenomsmail").Range("A2:B40"), 2, False)
Next Line
End Sub
je dois ajouter un lien vers un fichier dans une cellule (un vlookup serait bien aussi mais c'est un autre problème)
voici la macro crée mais ca ne fonctionne pas (je met le message d'erreur):
Un grand merci
For Line = 1 To number
Lineliste = Line + 3
If Range("C" & Lineliste) = "" Then
Fichier = Range("Mailsauto!A18") & Range("D2") & "\NC" & Range("D2") & "-" & Line '"C:\Users\xx\xx\xx\" & Range("B2") & "\NC" & Range("D2") & "-" & Line
Fichier = Fichier & ".xlsm"
'Range("B" & linelist).Value = Fichier
Set classeurSource = Application.Workbooks.Open(Fichier, , True) 'ouvrir le classeur source (en lecture seule)
Set classeurDestination = ThisWorkbook 'définir le classeur destination
MsgBox Fichier
ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & linelist), Address:=Fichier, TextToDisplay:="Lien"
classeurSource.Close False
End If
Range("E" & Lineliste).FormulaR1C1 = DatePart("ww", Range("D" & Lineliste))
Range("F" & Lineliste).FormulaR1C1 = Month(Range("D" & Lineliste))
Range("G" & Lineliste).FormulaR1C1 = Year(Range("D" & Lineliste))
'Range("AJ" & Lineliste).Value = WorksheetFunction.VLookup(Range("AI" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("AO" & Lineliste).Value = WorksheetFunction.VLookup(Range("AN" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("AU" & Lineliste).Value = WorksheetFunction.VLookup(Range("AT" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("AZ" & Lineliste).Value = WorksheetFunction.VLookup(Range("AY" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("BF" & Lineliste).Value = WorksheetFunction.VLookup(Range("BE" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("BK" & Lineliste).Value = WorksheetFunction.VLookup(Range("BJ" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("BQ" & Lineliste).Value = WorksheetFunction.VLookup(Range("BP" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("BV" & Lineliste).Value = WorksheetFunction.VLookup(Range("BU" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("CB" & Lineliste).Value = WorksheetFunction.VLookup(Range("CA" & Lineliste).Value, Sheets("Feuil3").Range("A2:B40"), 2, False)
'Range("CG" & Lineliste).Value = WorksheetFunction.VLookup(Range("CF" & Lineliste).Value, Sheets("listenomsmail").Range("A2:B40"), 2, False)
Next Line
End Sub