Rechercher première ligne vide d'un fichier et ecrire

Donc l'idée initiale de créer un fichier intermédiaire n'était pas si sotte que cela Je n'ai jamais dit cela. Seulement, pour comprendre ta démarche sans les fichiers c'éatait impossible.

Une solution est d'écrire, depuis Erola.xlsm, la variable, dans un fichier txt, et qu'à l'ouverture de lola, il aille chercher cette variable dans le fichier txt... Pas utile car on peut se passer du fichier intermédiaire...

J'essayais juste de te faire valider que c'eût été une démarche plausible aussi ... Tu sais quand on patine, on patine ... Bon je teste et te tiens au courant ! A+

Franck, il semblerait que cela fonctionne pas trop mal ... Je suis en train de réécrire des formules qui déconnent ! Je te tiens au courant de sa version définitive ! En tout cas merci bien de ta précieuse aide jusque là et n'ayant qu'une parole, si tu passes dans le coin, fais-toi connaître (n° de tél supprimé par la Modération) , je t'emmène au resto ! Bien à toi et à très vite !
JPierre

bien content d'avoir pu t'aider.
A+
Franck

Bonjour Franck ! Comment vas-tu depuis notre dernier contact ? Moi je reprends juste après des problèmes de santé d'où mon silence .... D'ailleurs je vois que la modération du site à supprimé mon tél que je t'avais communiqué dommage pour le resto bon, je tente différemment supprimé par la Modération en espérant que ...
Bon je me permets de revenir vers toi pour une question qui doit te sembler simple ... Voilà j'essaie d'enregistrer le fichier que j'ai défini grâce à ta macro communiquée antérieurement et là tout marche bien seulement, j'aimerai qu'avant d'enregistrer, il vérifie que le fichier n'existe pas déjà dans le répertoire ... et là je coince car la macro ci-dessous enregistre sans problème mais même si le fichier existe déjà ... d'où mon souci !
Par ailleurs, j'aimerai une fois que le fichier est enregistré sous pdf, que celui-ci s'ouvre en pdf ...
Peux-tu me donner un petit coup de main ... encore ? Désolé et dans l'attente, bien à Toi !

Sub EnregFichierLola()

Dim x As Byte
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
'pied de page
.CenterFooter = Range("AD2")
End With
Next x

Dim chemin As String
Dim repertoire As String
Dim nom As String
Dim Nomfichier

chemin = "W:\07 - Espace collaboratif\Programmation\Opérations d'investissement\Opérations Erola\"
repertoire = ActiveSheet.Range("Z1") & "\"
nom = ActiveSheet.Range("AD2").Value
Nomfichier = Dir(chemin & repertoire & nom)
If Nomfichier = "" Then
Worksheets("LOLA").Range("A1:O237").ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & repertoire & nom, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Le Fichier " & nom & " a été créé"
ActiveWorkbook.Close

Else
MsgBox "Le Fichier " & nom & " existe déjà veuillez vérifier le n° de la simulation"
End If
End Sub

Merci Franck encore pour ton aide plus que précieuse ! Connaissant mes lacunes, l'aide apportée et le temps que je t'ai ennuyé, mes "valeurs" perso ont repris le dessus en te faisant une proposition ... honnête mais bon je vois que tu déclines ... Je suis bien en peine de pouvoir en retour t'aider en vba ... encore ! Mais au-delà des services demandés, une "amitié" aurait pu éventuellement se créer ... sous réserve que l'on puisse se joindre en direct !! Voilà pourquoi !
Donc mille merci et à très vite ! JPierre

Mais de rien, de rien.
A bientôt n'hésite pas.

Bonjour Franck ! Môssieur VBA mes respects du midi ...
Encore besoin de tes services et lumières un brin ... Toujours sur le même fichier, j'aimerai mettre des avertissements à travers des userforms sitôt que l'on sélectionne certaines feuilles. Je tripatouille dessus mais n'arrive à rien ...
Pour réitérer clairement ma question : quand je clique sur l'onglet "Prospect" j'aimerai faire apparaitre un userform de mise en garde avant que n'apparaisse la feuille est-ce possible ? D'avance merci et bonne journée ! JPierre