Re : Lignes automatiques si !
Bonjour,
A la volée:
ActiveCell.SpecialCells(xlLastCell).Select
If Range("l1").Value - Range("M1").Value > 0 Then
Application.Calculation = xlManual
For ii = 1 To Range("l1").Value - Range("M1").Value
ActiveCell.EntireRow.Insert shift:=xlDown
Next
Application.Calculation = xlAutomatic
End If
Pour le deuxième souci, utiliser le paramètre updatelinks; extrait de l'aide :
Méthode Open telle qu'elle s'applique à l'objet Workbooks.
Cette méthode ouvre un classeur.
Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
expression Obligatoire. Expression qui renvoie l'objet Workbooks.
FileName Argument de type String obligatoire. Nom de fichier du classeur à ouvrir.
UpdateLinks Argument de type Variant facultatif. Spécifie la façon dont les liens du fichier sont mis à jour. Si vous ne spécifiez pas cet argument, l'utilisateur est invité à indiquer comment les liens doivent être mis à jour. Dans le cas contraire, cet argument a l'une des valeurs répertoriées dans le tableau suivant.
Valeur Signification
0 Ne met à jour aucune référence
1 Met à jour des références externes mais pas des références distantes
2 Met à jour des références distantes mais pas des références externes
3 Met à jour des références distantes et des références externes
Bon courage!