Bonjour
J'ai bien vu pas mal d'exemples ( même de ici en 2011) pour jongler entre 2 classeurs
mais pas ce que je cherche
Mon fichier 1 a un USF donc rempli de données , je clique sur OK et je dois aller ajouter ces données à la suite de la dernière ligne déjà remplie !!!!
Tout le début fonctionne sauf la 1ére ligne qui bloque déjà ???? la variable "chemin" est bonne :
Ici , le code INITIALIZE de l'USF du fichier de départ pour ouvrir le fichier à compléter
Donc voilà j'aimerai aller jusque "End Sub" de la SUB OK1.... sans problème si possible ?
Merci Bcp
J'ai bien vu pas mal d'exemples ( même de ici en 2011) pour jongler entre 2 classeurs
mais pas ce que je cherche
Mon fichier 1 a un USF donc rempli de données , je clique sur OK et je dois aller ajouter ces données à la suite de la dernière ligne déjà remplie !!!!
Tout le début fonctionne sauf la 1ére ligne qui bloque déjà ???? la variable "chemin" est bonne :
Code:
Private Sub OK1_Click()
prem_L = Workbooks(chemin).Sheets("data").Range("B19").End(xlDown).Row
If prem_L = 20 Then
prem_L = prem_L + 2
Else: prem_L = prem_L + 1
End If
Worksheets("data").Cells(prem_L, 2).Value = Forfait.Value
Worksheets("data").Range("B" & prem_L).Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Suiv.SetFocus
End Sub
Ici , le code INITIALIZE de l'USF du fichier de départ pour ouvrir le fichier à compléter
Code:
MsgBox " Selectionnez votre fichier Data"
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Doocument word", "*.xlsx", 1
.InitialFileName = Left(Cells(4, 5).Value, 11)
If .Show = 0 Then
erreurouverture:
CreateObject("Wscript.shell").Popup "Pas de fichier sélectionné", 2, "Fin de compilation", vbExclamation + vbOKOnly
GoTo fin2
Else
chemin = .SelectedItems(1)
End If
End With
Workbooks.Open (chemin)
Donc voilà j'aimerai aller jusque "End Sub" de la SUB OK1.... sans problème si possible ?
Merci Bcp