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

C'est un poil plus complexe que ne le laisse envisager le titre de ce sujet : "Rechercher première ligne vide d'un fichier et ecrire", mais ça reste très abordable... Avec un peu d'habitude.

De rien, et oh non je ne suis pas "maître VBA".
N'hésite pas.
A+

Et après.......

Mi j'sus du 6-2, mais actuellement, je suis sur Lille.

Voici le code modifié, non testé. En gras les modifs.

Sub exporter()
Dim FichierA As Workbook, FichierB As Workbook, drLign As Long, Tb(), i As Integer
Dim StrToCompare As String, Lig As Long, TablDonnees(), TablAComparer(), j As Byte, p As Integer, Codauto As String

'Détermination du fichier source des données (on l'appelle FichierA)
Set FichierA = ThisWorkbook
'Stockage des données à exporter, dans une variable tableau
Tb = FichierA.Sheets("Prospect").Range("AN7:BG7").Value
'On créé une variable de type String qui concatène les données à comparer
    '-- Ici comme on ne veux que les 4 premières valeurs, on boucle de 1 à 4...
    'on aurait pu remplacer cette ligne par : StrToCompare = Tb(1, 1) & Tb(1, 2) & Tb(1, 3) & Tb(1, 4)
    'Mais c'est plus "évolutif" par une boucle
For i = 1 To 4
    StrToCompare = StrToCompare & Tb(1, i)                     ' A COMPARER
Next i

'TEST si le classeur Opérations.xlsx est ouvert, si non l'ouvre
    'sources [Ouskel'n'or]: https://www.developpez.net/forums/d98510/logiciels/microsoft-office/excel/macros-vba-excel/vba-e-tester-fichier-deja-ouvert/#post691146
On Error Resume Next
Workbooks("Opérations.xlsx").Activate
If Err <> 0 Then
    Set FichierB = Workbooks.Open("Y:/Partage/Opérations/Opérations.xslx")
Else
    Set FichierB = Workbooks("Opérations.xlsx")
End If
On Error GoTo 0

'Avec le Classeur FichierB que l'on vient d'activer
With FichierB
    'Dans la feuille patrimoine
    With .Sheets("Patrimoine")
        'on stocke le num de la première ligne vide colonne B
        drLign = .Range("B" & Rows.Count).End(xlUp).Row + 1
        'on stocke les valeurs contenues dans les 4 premières colonnes jusqu'à la dernière ligne
        'pour pouvoir les comparer cf ci-dessus "A COMPARER"
        TablDonnees = .Range("B1:E" & drLign - 1).Value
        'Concaténation de ces données dans une variable tableau
        For i = LBound(TablDonnees, 1) To UBound(TablDonnees, 1)
            ReDim Preserve TablAComparer(i)
            For j = 1 To 4
                TablAComparer(i) = TablAComparer(i) & TablDonnees(i, j)
            Next j
        Next i
        'Application.Match renvoie une erreur si les valeurs ne sont pas trouvées
        On Error Resume Next
        p = Application.Match(StrToCompare, TablAComparer, 0)
        'donc on traite l'erreur,
        'si pas trouvé alors
        If Err <> 0 Then
            'on les inscrit en dernières lignes
            .Range("B" & drLign).Resize(1, UBound(Tb, 2)) = Tb
        Else 'sinon
            'on indique à l'utilisateur à qu'elle ligne il peut les trouver......
            MsgBox "Ces données ont déjà été importées, cf ligne : " & p - 1
        End If
        On Error GoTo 0
        Codauto = .Range("A" & drLign).Value
    End With
End With
With FichierA.Sheets("Prospect") ' A ADAPTER tu ne m'as pas indiqué la feuille
    .Range("K6") = Codauto
End With
End Sub

Ben il y est... J'ai juste mis A ADAPTER au cas ou ça ne serait pas dans cette feuille là.
En fait, je n'avais pas vu que tu me l'indiquais...

Donc laisse comme ça. Le code est bon

arrête avec "maître" sinon j'm'en vais...

remplace :

With FichierA.Sheets("Prospect").Range("K6") = Codauto 

End With

par

With FichierA.Sheets("Prospect")
    .Range("K6") = Codauto 
End With

Mais est ce que Codauto est bien rempli??????
Pour cela vérifions d'abord en ajoutant un message :

With FichierA.Sheets("Prospect")
    MsgBox Codauto
    .Range("K6") = Codauto 
End With

Comment est complété le code automatique en cellule "A" dernière ligne?????
S'il n'y a rien au moment du copié collé, il n'y aura rien en K6...

Est ce que cela fonctionne??? ou pas...

Sinon, pas de souci, je suis à l'écoute.

Bonjour,

Si tu disposes d'Excel >= 2007, et que ta question est bien :
Maintenant j'aimerai enregistrer Calcoto sous "323-Lille-Calcoto-date.pdf"
Voici la réponse :
- Fichier
- Enregistrer sous
- nom de fichier : 323-Lille-Calcoto-date
- type : choisir pdf

Alors quand souhaites tu enregistrer automatiquement ce fichier en pdf? A la fin d'une macro? Si oui, passe nous le code.
Lorsque l'utilisateur cliques sur un bouton? Quand il ferme le classeur? Quand il change de feuille?
Quand, comment, etc... veux tu que se lance ta procédure d'enregistrement en pdf.

Je suppose que tu sauras comment récupérer les informations permettant de trouver le nom du répertoire et le nom du fichier...
Donc le code du bouton (à insérer dans la feuille que tu souhaites exporter en pdf) est :

Private Sub CommandButton1_Click()
Dim Rep As String, NomFic As String
Rep = "C:\Ici\LeChemin\D'accès\Aton\Répertoire" 'A ADAPTER
NomFic = "nomDuFichierSansExtension" 'A ADAPTER
ChDir Rep
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep & "\" & NomFic
With ThisWorkbook
    .Save
    .Close
End With
End Sub

Mais là je suis paumé !!! Merci

Ca ne nous aide pas à savoir ce que tu n'arrives pas à faire.....

Bon, créer un fichier "intermédiaire" ça à l'air d'aller.
Ensuite, pour "aller chercher" des infos dans d'autres classeurs, je te recommande de ne pas utiliser de formule (FormulaR1C1). Par contre, tu utilises des = tout simplement, en faisant attention de bien nommer les fichiers.
Par exemple, si les deux classeurs sont ouverts, :

ActiveCell.FormulaR1C1 = "='[Erola-6.xlsm]Prospect'!R1C17" 

à remplacer par :

WorkBooks("Intermédiaire.xlsx").Sheets("NomDeLaFeuill").Range("A1").Value = WorkBooks("Erola-6.xlsm").Sheets("prospect").Range("Q1").Value

Même chose pour l'autre.

Ou alors, tu peux également passer par des variables...

Oui, je sais pourquoi...

Tu as une macro dans ce fichier intermédiaire.xlsx.
Donc, par conséquent, tu dois l'enregistrer sous l'extension .xlsm.
De plus, le fileformat d'uin fichier contenant des macros n'est pas xlNormalWorkbook, mais xlOpenXMLWorkbookMacroEnabled
Donc, ton code deviendrait :

ActiveWorkbook.SaveAs Filename:= _
        "X:\EROLA\Intermédiaire.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Tu créées un fichier juste pour garder une donnée?????
Mets la dans une variable.
Genre :

Dim MaVar As String
MaVar = Workbooks("Erola-6.xlsm").Sheets("Prospect").Range("Q1").Value
Workbooks.Open(Filename:="X:\EROLA\LOLA.xla").RunAutoMacros Which:= _ 
xlAutoOpen 
Workbooks("LOLA.xls").Sheets("LOLA").Range("Z1").Value = MaVar

Ou alors, si tu ne fermes pas ton classeur Erola :

Workbooks.Open(Filename:="X:\EROLA\LOLA.xla").RunAutoMacros Which:= _ 
xlAutoOpen 
Workbooks("LOLA.xls").Sheets("LOLA").Range("Z1").Value = Workbooks("Erola-6.xlsm").Sheets("Prospect").Range("Q1").Value

Je ne sais pas.
1- je n'ai jamais ouvert de classeur .xla par macro,
2- je ne sais pas quel est le message d'erreur...

Mais au fait, Lola c'est un .xla ou .xls........Mmmmm

Franck Merci ! Je sors juste de réunion ... Prends la voiture et me tape les 70kms qui me séparent de mon domicile ! Je vois cela demain matin et vous tiens au courant ! Bonne soirée qd même et merci encore pour votre dévouement !
JPierre

Bonjour Franck ! Non je ne vous ai pas laissé tomber sans même un merci mais j'ai été un peu débordé et un we de folie ...
Bon pour revenir à nos moutons ...
J'ai une macro ci-dessous qui fonctionnait bien mais qui là ne fonctionne plus (erreur 1004 La méthode 'SaveAs' de l'objet '_workbook' a échoué) que je en comprends pas ... Voici le code :
Sub EnregFichier()


Dim chemin As String
Dim repertoire As String
Dim nom As String
Dim extension As String
chemin = "W:\07 - Espace collaboratif\Programmation\Opérations d'investissement\Opérations Erola\"
repertoire = ActiveSheet.Range("AF1") & "\"
nom = ActiveSheet.Range("AF1")
extension = ".xlsm"
ActiveWorkbook.SaveAs Filename:=chemin & repertoire & nom & extension, FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub
Pouvez-vous tenter de m'éclairer un brin ? D'avance merci !

Bonjour,

Pouvez-vous tenter de m'éclairer un brin ?
Ben pas vraiment. Ce code fonctionne super bien chez moi........

Alors je penche pour une erreur d'utilisateur.
Vérifie bien tout... L'orthographe, la cellule AF1 etc etc...
Remplace peut être ActiveShhet pas Sheets("NomDeLaFeuille")...

Fait des tests en écrivant en "dur" tes variables une par une : [changements en gras]

Sub PremierTest() 
Dim chemin As String 
Dim repertoire As String 
Dim nom As String 
Dim extension As String 

chemin = "W:\07 - Espace collaboratif\Programmation\Opérations d'investissement\Opérations Erola\"
 repertoire = "2013 CCM\" 
nom = ActiveSheet.Range("AF1") 
extension = ".xlsm" 
ActiveWorkbook.SaveAs Filename:=chemin & repertoire & nom & extension, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

Sub SecondTest() 
Dim chemin As String 
Dim repertoire As String 
Dim nom As String 
Dim extension As String 

chemin = "W:\07 - Espace collaboratif\Programmation\Opérations d'investissement\Opérations Erola\"
 repertoire = "2013 CCM\" 
nom = "2013 CCM"
extension = ".xlsm" 
ActiveWorkbook.SaveAs Filename:=chemin & repertoire & nom & extension, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

Reviens me dire si ça cloche encore.
Attention également aux caractères interdits par Windows dans les noms de fichier : ", /, \, *, ?, <, >, |, :

Franck, les 2 tests se plantent toujours sur la même ligne ... Quand je lance la macro depuis le bouton, il me dit que le répertoire ".... \Opérations Erola\" existe déjà ... Je comprends pas je veux qu'il créé un répertoire dans "Opérations Erola \" !!!

Franck ! Je viens de trouver ... Une erreur de référencement de cellule après modif ... Bon je me penche sur la macro que vous m'avez adressée jeudi am maintenant et je pense que le tour sera joué ... A tout de suite ! Merci encore

Bonjour Franck ! Quel temps à Lille ? Ici brumeux mais belle journée annoncée ... On attend !
Bon je reprends pied dans mon fichier .... Alors pour répondre à votre question "je créé aussitôt un code pour cette opération ==> J'ai pas compris... ". Si vous vous rappelez, je rapatrie un code auto qui va me permettre d'identifier mon opération ("321" dans l'exemple 321-Lille ). Vous m'aviez même demandé comment s'attribuait le code auto.
Pour le reste du code macro communiquer, je le mets dans mon fichier et vous dit ! Bien à Vous,
JPierre

Salut JP,

Pluie, temps maussade pour toute la journée. Une belle journée de printemps qui s'annonce!

Euh JP, depuis le temps (73 messages), il est temps de se tutoyer non?

Ok Franck ... D'accord pour le tutoiement ! Bon je vois que le Nord demeure le Nord .... Lol !
Bon la macro suivante ne fonctionne pas ... Je ne récupère pas MaVar d'Erola-6.xlsm dans Lola.xlsx cellule Z1, peux-tu jeter un oeil ? D'avance merci :

Sub Ouvrelola()

Dim MaVar As String
MaVar = Workbooks("Erola-6.xlsm").Sheets("Prospect").Range("AF1").Value
'enregistrement sous 123-Lille
Workbooks.Open(Filename:="X:\EROLA\LOLA.xla").RunAutoMacros Which:=xlAutoOpen
With Workbooks("LOLA.xls")
.Sheets("LOLA").Range("Z1") = MaVar
End With

End Sub

1- Essaye de placer un MsgBox après l'implémentation de MaVar, pour voir ce qu'elle contient :

Sub Ouvrelola() 
Dim MaVar As String 

MaVar = Workbooks("Erola-6.xlsm").Sheets("Prospect").Range("AF1").Value 
MsgBox MaVar
'enregistrement sous 123-Lille 
Workbooks.Open(Filename:="X:\EROLA\LOLA.xla").RunAutoMacros Which:=xlAutoOpen 
With Workbooks("LOLA.xls") 
     .Sheets("LOLA").Range("Z1") = MaVar 
End With 
End Sub

2- tu as du mal avec les extensions de fichier... Tu parles de .xlsx, dans ton code c'est toujours .xla et hier c'était .xls.... Faudrait savoir.

Alors MaVar contient bien l'info demandée elle s'affiche dans le MsgBox ...
Par contre comme je te l'ai dit il y a quelques messages, je suis obligé de passer par Lola.xla pour ouvrir Lola.xls ... car il réinitialise entre autres, les calculs de Lola.xls
A te lire,