XL 2019 importer le contenu d'une cellule sans ouvrir le fichier source VBA

[PascalPax]

bonjour a tous,
Je ne suis pas du tout expert en VBA, J'applique les codes utiles souvent récupérés et adaptés .
Aujourd'hui je butte sur la recup d'un contenu de cellule dans un classeur fermé en VBA (code joint).
Le code ne provoque pas d'erreur jusqu'à la msgbox.
Votre connaissance éclairera mon ignorance.
Merci

 

[PascalPax]

Bonjour,

A tester



Cordialement

Super !! Merci c'est exactement ça.

 

[PascalPax]

Super !! Merci c'est exactement ça.

mais je m'aperçois, que le 1911 à perdu sa notion de mois et année (yy,mm) il est possible de l'avoir directement ou il faut slitter ?

 

[PascalPax]

Super !! Merci c'est exactement ça.

mais je m'aperçois, que le 1911 à perdu sa notion de mois et année (yy,mm) il est possible de l'avoir directement ou il faut slitter ?

 

[patricktoulon]

re
il faudrait savoir c'est des dates ou des nombres

 

[PascalPax]

j'ai résolu merci a tous

 

[youky(BJ)]

Bonjour à tous,
Un petit truc ancien que je viens de retrouver derrière les fagots.
J'alimente en Macro4 un combobox à 2 colonnes
Il est impératif d'enregister les 2 fichiers dans le même dossier avant de lancer la macro
charpentes est le fichier source
Bruno

Sub vachercher()
With UserForm1
.ComboBox1.Clear
Chemin = "'" & ThisWorkbook.Path & "\"  'à adapter au besoin
Fichier = "[charpentes.xls]" ' le nom du fichier à lire
Onglet = "Tuiles'!" 'le nom de l'onglet à lire
For k = 7 To 65000 'commencer à lire à la ligne 7
ChampALire = "R" & k & "C1"               ' k est la ligne incrémentée C1 est col A C2 est B ainsi de suite
ChampALire2 = "R" & k & "C2"
.ComboBox1.AddItem Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire)
.ComboBox1.Column(1, .ComboBox1.ListCount - 1) = Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire2)
If .ComboBox1.List(.ComboBox1.ListCount - 1) = 0 Then
.ComboBox1.RemoveItem (.ComboBox1.ListCount - 1)
Exit For
End If
Next
.Show
End With
End Sub