Bonjour à tous,
Je travaille sur la base de 2 classeurs. Un classeur2 venant alimenter mon Classeur1, sur lequel se trouve le bouton de commande qui lance la macro. J'ai déclaré ma variable classeur2 (Workbook as wb) avec la macro se terminant par wb.close, une fois les infos voulues récupérées sur le classeur1.
Le souci est que le classeur2 s'ouvre tout le temps sur une fenêtre avec le message suivant :
"Ce classeur contient une fois ou plusieurs liaisons qui ne peuvent pas être mises à jour". Impossible de modifier les liaisons (problème de password apparement...). Du coup je voudrais que la macro que je lance puisse directement fermer la fenêtre comme si elle cliquait sur la X à ma place pour fermer.
Pour info, mon code est le suivant :
Sub MAJData()
Dim wb As Workbook
Dim ws As Worksheet
Dim Ligne, Ligne2 As Integer
Set wb = Workbooks.Open("C:\users\nomdufichier.xlsm")
Set ws = wb.Sheets("data")
Ligne = 14
Ligne2 = 3
For Ligne2= 3 To ws.Cells(ws.Rows.Count, 32).End(xlUp).Row
If ws.Range("AF" & Ligne2) <> "" Then
Feuil1.Range("A" & Ligne) = ws.Range("AF" & Ligne2)
Ligne = Ligne + 1
End If
Next Ligne2
wb.Close
End Sub
Je ne sais pas comment m'y prendre, peut-être un truc du genre IF Msgbox... Then... ?
Merci à toutes les âmes volontaires.
Je travaille sur la base de 2 classeurs. Un classeur2 venant alimenter mon Classeur1, sur lequel se trouve le bouton de commande qui lance la macro. J'ai déclaré ma variable classeur2 (Workbook as wb) avec la macro se terminant par wb.close, une fois les infos voulues récupérées sur le classeur1.
Le souci est que le classeur2 s'ouvre tout le temps sur une fenêtre avec le message suivant :
"Ce classeur contient une fois ou plusieurs liaisons qui ne peuvent pas être mises à jour". Impossible de modifier les liaisons (problème de password apparement...). Du coup je voudrais que la macro que je lance puisse directement fermer la fenêtre comme si elle cliquait sur la X à ma place pour fermer.
Pour info, mon code est le suivant :
Sub MAJData()
Dim wb As Workbook
Dim ws As Worksheet
Dim Ligne, Ligne2 As Integer
Set wb = Workbooks.Open("C:\users\nomdufichier.xlsm")
Set ws = wb.Sheets("data")
Ligne = 14
Ligne2 = 3
For Ligne2= 3 To ws.Cells(ws.Rows.Count, 32).End(xlUp).Row
If ws.Range("AF" & Ligne2) <> "" Then
Feuil1.Range("A" & Ligne) = ws.Range("AF" & Ligne2)
Ligne = Ligne + 1
End If
Next Ligne2
wb.Close
End Sub
Je ne sais pas comment m'y prendre, peut-être un truc du genre IF Msgbox... Then... ?
Merci à toutes les âmes volontaires.
