Vba - récupération données dans autre fichier

cemyr Messages postés 1 Date d'inscription jeudi 28 avril 2005 Statut Membre Dernière intervention 30 décembre 2010 - 29 janv. 2010 à 16:08
artgile Messages postés 61 Date d'inscription mercredi 20 janvier 2010 Statut Membre Dernière intervention 26 juin 2017 - 31 janv. 2010 à 11:33
Bonjour,

Je programme une macro excel afin de récupérer des données d'autres fichiers. J'ai écris :

Sheets("Feuille 1").Select
Sheets("Feuille 1").Copy Before:=ThisWorkbook.Sheets(1 _
)
Sheets("Base 1e").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
ActiveCell.Offset(1, -11).Range("A1").Select

ActiveCell.Formula = "='Feuille 1'!D2"
ActiveCell.Offset(0, 1).Range("A1").Select

Le problème est que lorsque la "case" 'Feuille 1'!D2 est vide ... je récupère un zéro. Comment puis-je mettre une condition du style
if "='Feuille 1'!D2" == "" then ActiveCell.Formula = "".


Merci,

2 réponses

cracos30 Messages postés 81 Date d'inscription vendredi 17 avril 2009 Statut Membre Dernière intervention 12 avril 2013
29 janv. 2010 à 19:30
Salut
Tordu ton code
Pour les zéros option Excel/options avancées decocher afficher un zero dans les cellules vides
0
artgile Messages postés 61 Date d'inscription mercredi 20 janvier 2010 Statut Membre Dernière intervention 26 juin 2017
31 janv. 2010 à 11:33
Bonjour,

Il y a ceci qui permet de décocher l'option valeur zéro directement dans le programme :

Application.ActiveWindow.DisplayZeros = False

C'est juste comme ça au cas ou.

Cordialement,

"Ce que tu garde est perdu à jamais, ce que tu donne est à toi pour toujours " (E.E.Schmitt)
0