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

Question

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,

cracos30 · Answer

Salut
Tordu ton code
Pour les zéros option Excel/options avancées decocher afficher un zero dans les cellules vides

artgile · Answer

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)

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

2 réponses

Votre réponse

Discussions similaires